global.asa

功能简介： 前台: 1.用户名注册:登 录 名：密码：确认密码：性别：查询权限： 地址： 联系电话： 移动电话： E - mail： 工作单位 2.系统优点管理,公告新闻管理,联系我们管理

<SCRIPT LANGUAGE="VBScript" RUNAT="Server"> 
Sub Application_OnStart 
'Application_OnStart 当任何客户首次访问该应用程序的首页时运行 
session.timeout=5
End Sub 

Sub Session_OnStart 
'Session_OnStart 当客户首次运行 ASP 应用程序中的任何一个页面时运行 
End Sub 

Sub Session_OnEnd 
 dim username,users,users1
 username=session("username")
 users=application("users")
		if(users<>empty) then
			myArr=Split(users,",") 
			
			for i=0 to ubound(myArr)
				
				if trim(myArr(i))<>username then
					if(users1=empty) then
					users1=myArr(i)
					else
					users1=users1&","&myArr(i)
					end if
				end if		
		
			next
			
		
		
		end if
		application("users")=users1
End Sub 

Sub Application_OnEnd 
'Application_OnEnd 当该站点的 WEB 服务器关闭时运行 
End Sub 
</SCRIPT>