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="driver={Microsoft Access Driver (*.mdb)};dbq=C:\iSMSDemo.mdb"
  '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>