global.asa

来自「书店的管理系统。不错的一个源程序。提供给大家。」· ASA 代码 · 共 48 行

<SCRIPT LANGUAGE=VBScript RUNAT=Server>

'You can add special event handlers in this file that will get run automatically when
'special Active Server Pages events occur. To create these handlers, just create a
'subroutine with a name from the list below that corresponds to the event you want to
'use. For example, to create an event handler for Session_OnStart, you would put the
'following code into this file (without the comments):

'Sub Session_OnStart
'**Put your code here **
'End Sub

'EventName              Description
'Session_OnStart        Runs the first time a user runs any page in your application
'Session_OnEnd          Runs when a user's session times out or quits your application
'Application_OnStart    Runs once when the first page of your application is run for the first time by any user
'Application_OnEnd      Runs once when the web server shuts down

Sub Session_OnStart
	Session("log_name")=""
	Session("after_log_to")=""
End Sub

Sub Session_OnEnd
	'set con=server.createobject("ADODB.Connection")
	'con.open "driver={SQL Server};server=ns2;database=db;uid=sa;pwd="
	
	'CommandText="delete tempgwc where s_id="&session.SessionID
	
	'con.Execute CommandText,RecordsAffected,adCmdText
End Sub


Sub Application_OnStart
	'set con=server.createobject("ADODB.Connection")
	'con.open "driver={SQL Server};server=pcgun;database=bookbbcDB;uid=faster;pwd=" 
	'set Application("con1")=con
	
	Application("str_con")="driver={SQL Server};server=sqlserver;database=bookbbcDB;uid=faster;pwd="
	Application("ZDID")="0000"
End Sub

Sub Application_OnEnd
	'Application("con1").close
End Sub
</SCRIPT>