outlogin.asp

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

<%
	 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
		session("username")=empty
	response.write "<script>document.location.href='enter.asp';</script>"
	
%>