global.asa

酒店管理

<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
SUB Session_OnStart
set Application("conn")=server.createobject("ADODB.CONNECTION")
Application("conn").open Application("file_jingan1")

Application.Lock
Application("visitors")=cint(Application("visitors"))+2
t_visitors=cint(Application("visitors"))
Session("visitorID")=t_visitors
Application.UnLock
'If t-visitors MOD 3 = 0 Then
	Set FileObject = Server.CreateObject("Scripting.FileSystemObject")
	Set Out = FileObject.OpenTextFile(Application("visitorCountFileName"),2,True,false)
	Application.Lock
	Out.Write(t_visitors)
	Out=null
Application.UnLock

'创建十个用户输出通道，存储用户输出信息
for i=1 to 10
session("output" & i)=""
session("disp"&i)=""
next
'End If
'set session("objBrowsCap") = Server.CreateObject("MSWC.BrowserType")
'session("platfrom") = session("objBrowCap").platform
END SUB
'Session_OnEnd          Runs when a user's session times out or quits your applicatio n
'Application_OnStart    Runs once when the first page of your application is run for the first time by any user

Sub Session_OnEnd 
'when a user timeout then empty his application("user(i)")
for i=1 to 40
	if application("user" & i)=session("username") then
		application.Lock
		application("user" & i)=""
		application("Group" & i)=""
		application.UnLock
	end if
next
application("kickwho")=""
'session.Abandon
    
End sub

SUB Application_OnStart
	'==Visual InterDev Generated - startspan==
	'--Project Data Connection
		Application("file_jingan1") ="DRIVER={SQL SERVER};SERVER=ns1;UID=jingan;PWD=jingan;DATABASE=jingan"
		Application("conndfg_ConnectionTimeout") = 15
		Application("conndfg_CommandTimeout") = 30
		Application("conndfg_CursorLocation") = 3
'		Application("conndfg_RuntimeUserName") = "sa"
		Application("conndfg_RuntimePassword") = ""
	'-- Project Data Environment
		'Set DE = Server.CreateObject("DERuntime.DERuntime")
		'Application("DE") = DE.Load(Server.MapPath("Global.ASA"), "_private/DataEnvironment/DataEnvironment.asa")
	'==Visual InterDev Generated - endspan==
set Application("conn")=server.createobject("ADODB.CONNECTION")
Application("conn").open Application("file_jingan1")

visitorCountFileName = Server.MapPath("/VISITORS.txt")
Set FileObject = Server.CreateObject ( "Scripting.FileSystemObject" )
Set Out = FileObject.OpenTextFile (visitorCountFileName,1,true,False)
Application("visitors") = Out.ReadLine
Application("visitorCountFileName") = visitorCountFileName
'创建40个用户变量，存储用户名
for i=1 to 40
	application("user" & i)=""
next
for i=1 to 10
'	application("tosingle"&i)=""
	application("who" & i)=""
	application("output"&i)=""
next
End sub

'Application_OnEnd      Runs once when the web server shuts down
</SCRIPT>