userlogin.asp

来自「CC足球投注系统」· ASP 代码 · 共 37 行

<!--#include file="conn.asp"-->
<!--#include file="md5.asp"-->
<% 
Dim username,userpassword
if Request("login")="yes" then	
	username = trim(Request("username"))
	userpassword = md5(trim(Request("userpassword")))
	sql = "Select * from [User] where UserName='"& username & "'"
	set rs = conn.execute(sql)
	if rs.eof and rs.bof then
		rs.close
		set rs = nothing
		response.write "<script language='javascript'>" & chr(13)
   		response.write "alert('The user is not exist!');" & Chr(13)
   		response.write "window.document.location.href='javascript:history.back()';"&Chr(13)
   		response.write "</script>" & Chr(13)
   		Response.End
	else
		if Trim(rs("UserPassword"))<>userpassword then
		    response.write "<script language='javascript'>" & chr(13)
   		    response.write "alert('The password is incorrect!');" & Chr(13)
   		    response.write "window.document.location.href='javascript:history.back()';"&Chr(13)
   		    response.write "</script>" & Chr(13)
   		    Response.End
		else
			Session("UserID")=rs("UserID")
			session.timeout=45
			rs.close
			set rs=nothing
			response.write "<script>window.document.location.href='pronounce.asp'</script>"
		end if
	end if
else
	response.Redirect("./")
	response.End
end if
%>