global.asa

ASP程序实现的科技期刊系统

<script language="vbscript" runat="server">
sub application_onstart
Application("AllUsers")=0
Application("NDPC")="031"
end sub

sub session_onstart
Application.Lock
Application("AllUsers")=Application("AllUsers") + 1 
Application.UnLock

'session("usercode")=""
'session("username")=""
'session("departcode")=""
'session("IP")=""
'session("restrict")=""

session("NDPC")=Application("NDPC")
'session("ProjectCode")=""
'session("ProjectName")=""
'session("ProjectType")=""
session("OrderType")=" asc"
session("rolebiaoshi")="n"
'session("view")=""
end sub

sub session_onend
session.Abandon 
Application.Lock
Application("AllUsers")=Application("AllUsers")-1 
Application.UnLock
end sub


sub application_onend

end sub
</script>