login.asp

一般的,简单的的的的的的的的饿的饿恶毒 一般的,简单的的的的的的的的饿的饿恶毒 一般的,简单的的 的的 饿的饿恶毒

<!--#include file="conns.asp"-->
<%
username=request.form("username")
userpass=request.form("userpass")
if username<>"" and userpass<>"" then
	sql="select * from users where username='"&username&"'"
	set rs=Server.CreateObject("ADODB.Recordset")
	rs.open sql,conn,1,3
		if rs.recordcount=0 then
				response.write("<Script language='javascript'>alert('你的用户名输入错误！请确用户名后重新登陆！');location.href=('../index.asp');</Script>")
		else
			if userpass=rs("userpass") then
				session("username")=rs("username")
				session("Rank")=rs("Rank")
				conn.execute("delete from(Online) where username='"&username&"'")
				conn.execute("update Online set username='"&username&"' where OnlyID='"&session("OnlyID")&"'")
				rs.update
				rs("dlcs")=rs("dlcs")+1
				rs.update
				response.write("<Script language='javascript'>alert('您已经成功登陆,\n欢迎参加技术交流和问题讨论！\n\n提醒：\n当您离开本站时请点击“退出按钮”。');location.href=('../index.asp');</Script>")
			else
				response.write("<Script language='javascript'>alert('你的密码输入错误！请确认密码后重新登陆！');location.href=('../index.asp');</Script>")
			end if
		end if
	rs.close

else
	response.redirect("../index.asp")
end if

%>