ASP教程之在ASP使用中考证用户身份(5)
因为ASP脚本语言非常简单，因此其代码也简单易懂，结合HTML代码，可快速地完成网站的应用程序。还无法完全实现一些企业级的功能：完全的集群、负载均横。5、会话停止当ASP会话停止时会运转global.asa中的Session_OnEnd办法，能够在这里删除
保留在Application("Users")数组中因为超时而被停止会话的用户。纪录用户是由
于甚么缘故原由（超时仍是显式加入）停止会话常常很有效处，上面的代码经由过程更新Users
表的TimedOut字段完成该功效：
subSession_OnEnd
dimAppUsers
dimaUser
dimI
dimj
dimconn
dimsupportsCookies
dimfoundUser
onerrorresumenext
supportsCookies=Session("SupportsCookies")
Application.Lock
AppUsers=Application("Users")
foundUser=false
forI=0toubound(AppUsers)
setaUser=AppUsers(I)
ifsupportsCookiesthen
ifaUser("SessionID")=Session.SessionIDthen
foundUser=true
endif
elseifdateAdd("n",Session.timeout,aUser("LastActivity"))<now()
then
foundUser=true
endif
iffoundUserthen
setconn=server.createObject("ADODB.Connection")
conn.ConnectionString=Session("ConnectionString")
conn.ConnectionTimeout=Session("ConnectionTimeout")
conn.mode=Session("Mode")
conn.open
conn.execute"UPDATEUsersSETTimedOut=1WHEREUsers.Signon="&
aUser("Signon")&""
conn.close
setconn=nothing
setaUser=nothing
setAppUsers(I)=nothing
forj=Itoubound(AppUsers)-1
setAppUsers(j)=AppUsers(j+1)
next
ifubound(AppUsers)>0then
redimpreserveAppUsers(ubound(AppUsers)-1)
else
AppUsers=Array()
endif
exitfor
endif
next
Application("Users")=AppUsers
Application.UnLock
endsub
对用户来说可预见费用、节约费用，可以做到花少钱办大事。由于省去了购买软件和硬件等的前期费用，用户可以租用较高级的应用软件。ASP的收费是根据软件的类型、客制化程度、用户数量、服务期限来定的，对客户来说这笔费用是可以预见的。方便于客户应用软件的升级。 Application:这个存储服务端的数据，如果不清除，会直到web应用程序结束才清除(例如重启站点) 下载一个源代码，然后再下载一个VBScript帮助，在源代码中遇到不认识的函数或是其他什么程序，都可以查帮助进行解决，这样学习效率很高。 以HTML语言整合(HTML负责界面上，ASP则负责功能上)形成一个B/S(浏览器/服务器)模式的网页程序。 弱类型造成潜在的出错可能：尽管弱数据类型的编程语言使用起来回方便一些，但相对于它所造成的出错几率是远远得不偿失的。 以上是语言本身的弱点，在功能方面ASP同样存在问题，第一是功能太弱，一些底层操作只能通过组件来完成，在这点上是远远比不上PHP/JSP，其次就是缺乏完善的纠错/调试功能，这点上ASP/PHP/JSP差不多。 如何更好的使自己的东西看上去很不错等等。其实这些都不是问题的实质，我们可以在实践中不断提升自己，不断充实自己。 哪些内置对象是可以跳过的，或者哪些属性和方法是用不到的? Session:这个存储跟客户端会话过程的数据，默认20分钟失效
页:
[1]