global.asa

自动化网络办公系统全部源码officeanywheresystem

<script LANGUAGE="VBScript" RUNAT="Server">

Sub Application_OnStart

End Sub

Sub Application_Onend

End Sub

Sub session_OnStart
 
End Sub

Sub session_Onend
dim oCon,oRS
set oCon=server.createobject("adodb.connection")
oCon.open "driver={SQL Server};server=127.0.0.1;uid=oa;pwd=oa123;database=OA;"
oCon.execute("update userinfo set online=0 where id="&session("userid")&"")
End Sub

</SCRIPT>