global.asa

来自「iWebSMS2000是一个基于Web的短信平台 =============」· ASA 代码 · 共 25 行

<SCRIPT LANGUAGE="VBScript" RUNAT="Server">
Sub Application_OnStart
	
End Sub

Sub Application_OnEnd
	
End Sub
</SCRIPT>

<SCRIPT LANGUAGE=VBScript RUNAT=Server>
Sub Session_OnStart
  DBStr="DBQ=C:\iSMSDemo.mdb;DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};DriverId=25;FIL=MS Access;ImplicitCommitSync=Yes;MaxBufferSize=512;MaxScanRows=8;PageTimeout=5;SafeTransactions=0;Threads=3;UserCommitSync=Yes;"
  'DBStr="driver=sql server;server=(local);uid=iSMSDemo;password=sa;DSN="

  Set Session("iSMSDemo")=Server.CreateObject("ADODB.Connection")
  Session("iSMSDemo").Open DBStr
End Sub

Sub Session_OnEnd
    Session("iSMSDemo").close
    Set Session("iSMSDemo")=Nothing
End Sub
</SCRIPT>