global.asa

来自「ASP企业网络管理系统」· ASA 代码 · 共 49 行

<SCRIPT LANGUAGE="VBScript" RUNAT="Server">
Sub Application_OnStart
	Application("online") = 0
	Application("str_conn") = "Provider=SQLOLEDB;Data Source=localhost;Initial Catalog=aspspecial;User ID=sa;Password=;"
	'Application("str_conn") = "provider=microsoft.jet.oledb.4.0;data source=" & Server.MapPath("db.mdb")
	dim rs
	set rs = Server.CreateObject("adodb.recordset")
	rs.Open "select [count] from [count] where [id] = 1",Application("str_conn")
	Application("count") = rs("count")
	rs.Close
	set rs = nothing
End Sub
'=========================================================
SUB Application_OnEnd
  dim conn
  set conn = Server.CreateObject("adodb.connection")
	conn.Open Application("str_conn")
	conn.Execute "UPDATE [count] SET [count].[count] = "&Application("count")&" WHERE ([id]=1)",,&H0001 + &H00000080
	'Response.Write "UPDATE [count] SET [count].[count] = "&Application("count")&" WHERE ([id]=1)"
	set conn = nothing
	Application("count") = 0
	Application("online") = 0
End Sub
'=========================================================
Sub Session_OnStart
	Application.Lock()
	Application("count") = Application("count") + 1
	Application("online") = Application("online") + 1
	Application.UnLock()
	
	set session("conn") = Server.CreateObject("adodb.connection")
	session("conn").Open Application("str_conn")
	set session("rs") = Server.CreateObject("adodb.recordset")
	set session("rsnews") = Server.CreateObject("adodb.recordset")
End Sub
'=========================================================
Sub Session_OnEnd 
	Application.Lock()
	Application("online") = Application("online") - 1
	Application.UnLock()

	session("conn").close
	set session("conn") = nothing
	if session("rs").state = AdStateOpen then
		session("rs").close
	end if 
	set session("rs") = nothing
End Sub
</SCRIPT>