login.asp

来自「基于C#语言的一个物流信息网数据库系统开发案例的源代码 ,很实用」· ASP 代码 · 共 41 行

<!-- #include file="../Conn/conn.asp" -->
<% 
    username=request.Form("username")
    password=request.Form("userpassword")
	sql="select * from tb_UserMeg where UserName='"&username&"'"
	rs.open sql,conn
	if rs.eof or rs.bof then 
%>
		<script language="javascript">
			alert("用户名不存在");
			history.back();
		</script>	
<%  else	%>
<%
		if rs("PassWord")<>password then 
%>
			<script language="javascript">
				alert("密码错误");
				history.back();
			</script>
<%    
		else
			if rs("OverPass")="未通过" then 
%>
				<script language="javascript">
					alert("该账户还没有通过管理员验证，详细信息请参见帮助中心或本站公告");
					history.back();
				</script>
<%	
			else
				session("name")=username
     			response.redirect("../index.asp")
%>	
<% end if %>
<% end if %>
<% 
end if 
%>