outlogin.asp

来自「功能简介： 前台: 1.用户名注册:登 录 名：密码：确认密码：性别：查」· ASP 代码 · 共 28 行

<%
	 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>"
	
%>