global.asa

聊天功能的实现

<SCRIPT LANGUAGE="VBScript" RUNAT="Server">
Sub Session_OnStart
Application("visitors")=Application("visitors")+1       
End Sub

Sub Session_OnEnd 
End sub

sub Application_OnStart 
   dim conn   
   dim connstr

   on error resume next
   connstr="DBQ="+server.mappath("../Data/chat.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
     set conn=server.createobject("ADODB.CONNECTION")
     conn.open connstr 
Set rs = Conn.Execute( "select count from count" )
 Application("visitors")=rs("count")+1

 Application("come")="暂不允许修改"
 Application("exit")="暂不允许修改"

 Application("tps")="500"
 Application("tnu")="3"
 Application("tpp")="　　竞选管理员，以公平、公开、公正为原则，取积分前20名者为候选人，各候选人可以拉选票（但不许以许愿、要挟等方式）。<br>　　凡是积分满500分者均可参与投票。<br>　　本次竞选将根据所得票数选出９级管理员２名，８级管理员３名，７级管理员４名。原临时管理员将会被取消。<br>　　选出的管理员必须以公正之心管理本聊天室，不许存有私心。将接受大家的监督。<br>　　当选的管理员必须经常来聊天室管理，不得长时间无故缺席。<br>　　本次当选的管理员完全是自愿的，属义务性质，若有不便，可以辞职。<br>　　管理员若有违规，站长有权将其降级或免职。"
rs.Close
End sub

sub Application_OnEnd
visitors=Application("visitors")
   dim conn   
   dim connstr

   on error resume next
   connstr="DBQ="+server.mappath("../Data/chat.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
     set conn=server.createobject("ADODB.CONNECTION")
     conn.open connstr 
Set rs = Conn.Execute( "update count set count='"&visitors&"'" )
rs.Close
End sub


</SCRIPT>