ASP编程：用asp显现以后在线用户信息，不是复杂只...

想法是和程序员的想法不一样的.至于为什么.大家去想一想.跟心理学有关的显现|在线原东子

global.asa放在你的根目次
<objectrunat="Server"scope="Application"
id="rstActiveUsers"progid="ADODB.Recordset">
</object>

<scriptlanguage="VBScript"runat="Server">
Thefirstthingyoushouldnoticeisthetopline.
Itcreatesanapplicationscopedrecordsetobject
namedrstActiveUsersthatIllusetostoreall
ouruserinformation.

Note:Ivewrappeditforreadability

SubApplication_OnStart()
Selectedconstantsfromadovbs.inc
ConstadInteger=3
ConstadVarChar=200
ConstadDate=7

HereIsetupinmemoryactiveuserrecordset
byaddingthefieldsIwanttoitanddefining
theirdatatypes.
rstActiveUsers.Fields.Append"id",adInteger
rstActiveUsers.Fields.Append"ip",adVarChar,15
rstActiveUsers.Fields.Append"browser",adVarChar,255
rstActiveUsers.Fields.Append"started",adDate

NextIopenourrecordsetsothatwecanuseit.
Thatbasicallygetseverythingreadyforour
firstuser.
rstActiveUsers.Open
EndSub

SubSession_OnStart()
Setsessiontimeoutto20minutes
Session.Timeout=20

Setasessionstarttime.Thisisprettypointless,
butitdoesensurethatwestartasessionand
assigntheuserasessionidanditcanhelp
troubleshootingifweeverneedit.
Session("Start")=Now()

Movetotheendsorecordsareaddedinorder.
Againnotofanyrealimportance,butitkeepsour
usertableniceandorderly.
IfNotrstActiveUsers.EOFThenrstActiveUsers.MoveLast

Addarecordandinsertusersdata.Imjust
storingsomebasicinfo,butnaturallyyourefree
tostorewhateveryouwant.
rstActiveUsers.AddNew

rstActiveUsers.Fields("id").Value=_
Session.SessionID

rstActiveUsers.Fields("ip").Value=_
Request.ServerVariables("REMOTE_HOST")

rstActiveUsers.Fields("browser").Value=_
Request.ServerVariables("HTTP_USER_AGENT")

rstActiveUsers.Fields("started").Value=_
Now()

rstActiveUsers.Update

Nowthatwevegottheinformation,allthats
leftistodisplayit.Seetest_page.aspfora
demo.Itincludesthepagesshow_count.aspand
show_users.aspwhichcanalsobeused
individuallyifdesired.
EndSub

SubSession_OnEnd()
Selectedconstantsfromadovbs.inc
ConstadSearchForward=1
ConstadBookmarkFirst=1
ConstadAffectCurrent=1

Findtheappropriaterecord.Usingsessionidisthe
easiestwaysinceIusethisastheprimarykey.
Thislinepositionsusontheappropriaterecord.
rstActiveUsers.Find"id="&Session.SessionID,_
0,adSearchForward,adBookmarkFirst

问题是他们究竟是喜欢他们是使用软件时,速度快还是速度慢好.(当然在3秒以内).无论是他们输入资料时,查找资料时,分析资料时.

学习ASP其实应该上升到如何学习程序设计这种境界，其实学习程序设计又是接受一种编程思想。比如ASP如何学习，你也许在以前的学习中碰到过。以下我仔细给你说几点:

哪些内置对象是可以跳过的，或者哪些属性和方法是用不到的?

运用经典的例子。并且自己可以用他来实现一些简单的系统。如果可以对他进行进一步的修改，找出你觉得可以提高性能的地方，加上自己的设计，那就更上一个层次了，也就会真正地感到有所收获。

兴趣爱好，那么你无须学编程，申请一个域名和空间，在网上下载一些免费开源的CMS系统，你不用改代码，只须熟悉它们的后台操作，像office一样简单方便，很快就能建一个站点，很多站长都是这样做的

我认为比较好的方法是找一些比较经典的例子，每个例子比较集中一种编程思想而设计的。

ASP（ActiveServerPages）是Microsfot公司1996年11月推出的WEB应用程序开发技术，它既不是一种程序语言，也不是一种开发工具，而是一种技术框架，不须使用微软的产品就能编写它的代码，能产生和执行动态、交互式、高效率的站占服务器的应用程序。

多看多学多思。多看一些关于ASP的书籍，一方面可以扩展知识面一方面可以鉴借别人是如何掌握、运用ASP的;多学善于关注别人，向同学老师多多学习，不论知识的大小;多思则是要将学到的知识灵活运用。