📄 login.asp

📁 网吧影印系统！很详细！可直接使用！请大家指点！
💻 ASP
字号:
<!--#include file="inc/md5.asp"-->
<!--#include file="articleconn.asp"-->
<%
 dim s
randomize timer
s=Int((8999)*Rnd +1000)
%><%if Request.QueryString("no")<>"eshop" then%><HTML><HEAD><TITLE>网站后台管理登录</TITLE><META http-equiv=Content-Type content="text/html; charset=gb2312"><LINK 
href="logimg/Admin_Style.css" rel=stylesheet><SCRIPT language=javascript>
<!--
function SetFocus()
{
if (document.Login.Name.value=="")
	document.Login.Name.focus();
else
	document.Login.Name.select();
}
function CheckForm()
{
	if(document.Login.Name.value=="")
	{
		alert("请输入用户名！");
		document.Login.Name.focus();
		return false;
	}
	if(document.Login.Pwd.value == "")
	{
		alert("请输入密码！");
		document.Login.Pwd.focus();
		return false;
	}
	if (document.Login.s.value==""){
       alert ("请输入您的验证码！");
       document.Login.s.focus();
       return(false);
    }
}

//-->
</SCRIPT><META content="MSHTML 6.00.2800.1400" name=GENERATOR></HEAD><BODY><P>　</P>
<FORM name=Login onsubmit="return CheckForm();" action="FindAccount.asp"
method=POST target=_parent>
<TABLE cellSpacing=0 cellPadding=0 width=600 align=center border=0>
  <TBODY>
  <TR>
    <TD colSpan=2><IMG height=126 src="logimg/Admin_Login1.gif"
    width=600></TD></TR>
  <TR>
    <TD vAlign=top width=508 background=logimg/Admin_Login2.gif>
      <TABLE cellSpacing=0 cellPadding=0 width=508 border=0>
        <TBODY>
        <TR>
          <TD colSpan=7 height=37>　</TD></TR>
        <TR>
          <TD width=75 rowSpan=2>　</TD>
          <TD width=126><FONT color=#043bc9>用户名称：</FONT></TD>
          <TD width=39 rowSpan=2>　</TD>
          <TD width=131><FONT color=#043bc9>用户密码：</FONT></TD>
          <TD width=33>　</TD>
          <TD colSpan=2><FONT color=#043bc9>验证码：</FONT></TD></TR>
        <TR>
          <TD><INPUT id=UserName
            onmouseover="this.style.background='#ffffff';"
            style="BORDER-RIGHT: #f7f7f7 0px solid; BORDER-TOP: #f7f7f7 0px solid; FONT-SIZE: 9pt; BORDER-LEFT: #f7f7f7 0px solid; WIDTH: 110px; BORDER-BOTTOM: #c0c0c0 1px solid; HEIGHT: 16px; BACKGROUND-COLOR: #f7f7f7"
            onfocus="this.select(); "
            onmouseout="this.style.background='#F7F7F7'" maxLength=20
            name="Name"></TD>
          <TD><INPUT onmouseover="this.style.background='#ffffff';"
            style="BORDER-RIGHT: #f7f7f7 0px solid; BORDER-TOP: #f7f7f7 0px solid; FONT-SIZE: 9pt; BORDER-LEFT: #f7f7f7 0px solid; WIDTH: 110px; BORDER-BOTTOM: #c0c0c0 1px solid; HEIGHT: 16px; BACKGROUND-COLOR: #f7f7f7"
            onfocus="this.select(); "
            onmouseout="this.style.background='#F7F7F7'" type=password
            maxLength=20 name="Pwd"></TD>
          <TD>　</TD>
          <TD width=53><INPUT onmouseover="this.style.background='#ffffff';"
            style="BORDER-RIGHT: #f7f7f7 0px solid; BORDER-TOP: #f7f7f7 0px solid; FONT-SIZE: 9pt; BORDER-LEFT: #f7f7f7 0px solid; WIDTH: 50px; BORDER-BOTTOM: #c0c0c0 1px solid; HEIGHT: 16px; BACKGROUND-COLOR: #f7f7f7"
            onfocus="this.select(); "
            onmouseout="this.style.background='#F7F7F7'" maxLength=4 size=6
            name="s"></TD>
          <TD width=51><b>&nbsp;<%=s%></b><input maxlength=20 name="s2" size=12 type=hidden value="<%=s%>"></TD></TR></TBODY></TABLE></TD>
    <TD><INPUT type=hidden value=Login name=Action> <INPUT
      style="WIDTH: 92px; HEIGHT: 126px" type=image
      src="logimg/Admin_Login3.gif" name=Submit></TD></TR></TBODY></TABLE>
      </form>
</BODY></HTML>
<%
else%><%
pwd = replace(request.form("pwd"),"'","")
name = replace(request.form("name"),"'","")
Set rs = Server.CreateObject("ADODB.Connection")
sql = "select * from users where UserName='"&name&"' And PassWord='"&md5(pwd)&"'"
Set rs = conn.Execute(sql)

s=Trim(Request.Form("s"))
s2=Request.Form("s2")
If s2<>s Then
	   	   Response.Write("<script language=javascript>alert('请输入正确的认证码！');history.back()</script>")
		   Response.End
else
    If Not rs.EOF = True Then
 session("quanxian") = rs("quanxian")
 Session("Name") =  rs("UserName")
 Session("pwd") =  rs("PassWord")
  Response.Redirect("Manage.asp")
 Else
 Response.Redirect "Loginsb.asp?msg=您输入了错误的帐号或口令，请再次输入！"
 end if
End If
end if
%>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -