login.asp

来自「网上购物源代码」· ASP 代码 · 共 41 行

<!-- #include file = "include/conndb.asp" -->
<%
dim szMemberID
dim strSQL, rsObj, strPwd
szMemberID  =  RealString(Request.Form("memberID"))
strPwd  =  RealString(Request.Form("password"))

if szMemberID = "" then
%>
	<script language = Javascript>
	alert("用户名不能为空！");
	window.history.go(-1);	
	</script>
<%
	response.End
end if
strSQL = "SELECT * FROM Member WHERE MemberID = '" & szMemberID & "'"
	'response.write sql
	'response.End
set rsObj  =  conn.Execute(strSQL)
		if not (rsObj.eof or err) then
			if strPwd  =  rsObj("Pwd") then
				session("memberID") = rsObj("memberID")
				response.redirect "default.asp"
			else
				Response.Write "<script language = Javascript>"
				Response.Write "alert('用户名或密码错误，请重新输入！');"
				Response.Write "window.history.go(-1);"	
				Response.Write "</script>"
				
			end if
else
%>
	<script language = Javascript>
	alert("用户名或密码错误，请重新输入！");
	window.history.go(-1);	
	</script>
<%	
	end if
%>