login_m.asp

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

<%@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&"' And Status='版主'"
	set rs=conn.execute(sql)
	if rs.eof then %>
  		<script language="javascript">
  		alert("您输入的版主名称错误，请重新输入！");
		window.location.href="index.asp";
 		 </script> 
	<%Session("HS")="Manager"
	else 
		if rs("PWD")=PWD then
			Session("UserName")=UID
			Session("Status")="版主"
		%>
     		<script language="javascript">
			window.location.href="index.asp";
  	 		</script>
 		 <%else%>
   			<script language="javascript">
			 alert("您输入的版主密码错误，请重新输入！");
  			 window.location.href="index.asp";
  			</script>  		
		<%Session("HS")="Manager"
		end if
	end if
end if%>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">