login.asp

来自「建造工业系统所需的SQL源代码」· ASP 代码 · 共 34 行

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!-- #include file="Conn/Conn.asp" -->  <!--包含数据库连接文件-->
<% Session.Timeout=30
if Request.Form("UID")<>"" and request.Form("PWD")<>"" then
	UID=request.Form("UID")
	PWD=request.Form("PWD")
	sql="select UserName,PWD from tb_User where UserName='"&UID&"'"
	set rs=conn.execute(sql)
	if rs.eof then %>
  		<script language="javascript">
  		alert("您输入的用户名错误，请重新输入！");
		window.location.href="index.asp?HS=User";
 		 </script> 
	<%Session("HS")="User"
	else 
		if rs("PWD")=PWD then
			Session("UserName")=UID
		%>
     		<script language="javascript">
			window.location.href="index.asp";
  	 		</script>
 		 <%else%>
   			<script language="javascript">
			 alert("您输入的用户密码错误，请重新输入！");
			 window.location.href="index.asp?HS=User";
  			//history.back();
  			</script>  		
		<%Session("HS")="User"
		end if
	end if
end if%>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">