global.asa

又一套宾馆全站源码

<SCRIPT LANGUAGE=VBScript RUNAT=Server>
Sub Application_OnStart
  Application("Connect_String") = "Driver=SQL Server;Server=www.tinetek.com;Catalog=www_zh-hotel_com;uid=www_zh-hotel_com;pwd=Y!pRUj4s"
End Sub

Sub Application_OnEnd
End Sub

Sub Session_OnStart
  Session.Timeout = 1150
End Sub

Sub Session_OnEnd
End Sub
</SCRIPT>