global.asa

所在类别： 随书资源/T 工业技术/TP 自动化技术、计算机技术/TP31 计算机软件 其他题名： 作者： 夏邦贵, 刘凡馨等编著 出版者： 机械工业出版社 出版年： 2006 I

<!--METADATA TYPE="typelib"
FILE="C:\Program Files\Common Files\System\ado\msado20.tlb"
-->
<SCRIPT LANGUAGE="VBScript" RUNAT="Server">
Sub Application_OnStart
  application("onlineusers")=0    '当网站启动时，将在线人数设置为0
End Sub
Sub Session_OnStart               '当客户访问网站时运行  
  session.timeout=5	          '设置session超时为5分钟
  session("adminlogon")=0         '设置管理员登录状态初始值
  '将在线人数加1
  application.lock
  application("onlineusers")=application("onlineusers")+1
  application.unlock
  '创建ADO Connection对象
  Set cn = Server.CreateObject("ADODB.Connection") 
  cn.connectionstring="Provider=SQLOLEDB;UID=sa;pwd=123;" & _
              "database=图书销售;Data Source=(local)"
  cn.Open 
  Set rs=Server.CreateObject("ADODB.Recordset")
  querystr = "SELECT * FROM 访问量"
  Set rs.ActiveConnection = cn
  rs.CursorType =1
  rs.LockType = 3
  rs.Open querystr
  session("usercount")=rs.fields(0)+1
  rs.fields(0)=rs.fields(0)+1
  rs.update
  rs.close
  cn.close
  set rs=nothing
  set cn=nothing
END Sub
Sub Session_OnEnd    
  '当客户离开网站时执行
  '将在线人数减1
  application.lock
  application("onlineusers")=application("onlineusers")-1
  application.unlock
END Sub
</SCRIPT>