global.asa

目前政府、企业信息化

<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>