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的;多学善于关注别人,向同学老师多多学习,不论知识的大小;多思则是要将学到的知识灵活运用。
页:
[1]