global.asa

来自「ASP仿QQ程序 web版的」· ASA 代码 · 共 18 行

<SCRIPT LANGUAGE=VBScript RUNAT=Server>
   Sub Session_OnEnd
            offline()
	session.Abandon()
End Sub
function offline
	connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="+server.mappath("msg.asp")
 	set conn=server.createobject("ADODB.CONNECTION")
 	set rs=server.createobject("adodb.recordset")
   	conn.open connstr
   	sql="select online from userinfo where user_id="&session("nmb")
	rs.Open sql,conn,1,3
	rs("online")=false
	rs.Update  
   	conn.close
   	set conn=nothing
end function
</SCRIPT>