📄 admin_login.asp

📁 实用的拍卖源码。适合个人建站学习使用。仅供学习参考
💻 ASP
字号:
<!-- #include file="../inc/char.asp" -->
<!-- #include file="conn.asp" -->
<!--#include file="css.asp"-->
<!--#include file="../inc/vqqq_md5.asp"-->
<%if Request.QueryString("no")<>"check" then%>
<html>
<head>
<title>vqqq.com拍卖程序后台管理---联系QQ:6439358，联系邮箱vqqq59r@163.com，网站www.vqqq.com，谢谢大家对我们系统的支持</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<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.CheckCode.value==""){
       		alert ("请输入您的验证码！");
       		document.Login.CheckCode.focus();
      		 return(false);
	}
	if (isNaN(document.Login.CheckCode.value)){
       		alert ("验证码只能为4位数字！");
       		document.Login.CheckCode.focus();
      		 return(false);
	}
}

function CheckBrowser() 
{
  var app=navigator.appName;
  var verStr=navigator.appVersion;
  if (app.indexOf('Netscape') != -1) {
    alert("提醒：\n    你使用的是Netscape浏览器，可能会导致无法使用后台的部分功能。建议您使用 IE6.0 或以上版本。");
  } 
  else if (app.indexOf('Microsoft') != -1) {
    if (verStr.indexOf("MSIE 3.0")!=-1 || verStr.indexOf("MSIE 4.0") != -1 || verStr.indexOf("MSIE 5.0") != -1 || verStr.indexOf("MSIE 5.1") != -1)
      alert("提醒：\n    您的浏览器版本太低，可能会导致无法使用后台的部分功能。建议您使用 IE6.0 或以上版本。");
  }
}
//-->
</SCRIPT>
</head>
<body>
<FORM name=Login onsubmit="return CheckForm();" ACTION="admin_login.asp?no=check" METHOD="post">
  <p>&nbsp;</p>
  <TABLE cellSpacing=0 cellPadding=0 width=528 align=center border=0>
    <TBODY>
      <TR> 
        <TD vAlign=top width=508 background=images/AdminLogin.gif height=268>
	 <TABLE cellSpacing=0 cellPadding=0 width=528 border=0>
            <TBODY>
              <TR> 
                <TD colSpan=7 height=21><%=Request.QueryString("msg")%></TD>
              </TR>
              <TR> 
                <TD colSpan=7 height=120>&nbsp;</TD>
              </TR>
              <TR> 
                <TD width=100% colspan=7>
<table cellpadding=0 cellspacing=0 width=100% align=center>
<tr>
<td width=310></td>
<td align=center>
<table cellpadding=0 cellspacing=0 width=100% align=center>
<tr><TD width=90><FONT>用户名称：</FONT></TD>
		<TD width=200><INPUT id=Name 
            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=username></TD></tr>
<tr><TD ><FONT>用户密码：</FONT></TD>
                <TD ><INPUT name=password type=password id="Pwd" 
            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(); " onmouseover="this.style.background='#ffffff';" 
            onmouseout="this.style.background='#F7F7F7'" 
            maxLength=20></TD></tr>
<tr><TD ><FONT>验证码：</FONT></TD><td align=left><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=CheckCode value="">&nbsp;<img src=../inc/checkcode.asp></td></tr>
</table>
</td>
</tr>
<tr><td align=center width=310></td><td align=center height=58><INPUT type=hidden value=Login name=Action> <INPUT style="WIDTH: 92px; HEIGHT: 25px; border: 2px #fff7bd solid; background: #ffcc00" type="submit" name=Submit value="登陆"></td></tr>
</table>
		</TD>
              </TR>
            </TBODY>
          </TABLE>
	</TD>
      </TR>
    </TBODY>
  </TABLE>
  <center>
  </center>
</form>
</body>
<script language="JavaScript" type="text/JavaScript">
CheckBrowser();
SetFocus(); 
</script>
</html>
<%else
	if session("checkCode")<>cint(rst("CheckCode")) then
		response.write "<script language=javascript>alert('验证码错误，请重新登陆！');history.back(-1);</script>"
		response.end
	end if
	dim sql,rs,username,password
	username=replace(trim(rst("username")),"'","")
	password=replace(trim(rst("password")),"'","")
	password=md5(password)
	set rs=server.createobject("adodb.recordset")
	sql="select * from vqqqadmin where vqqqpass='"&password&"' and vqqqname='"&username&"'"

	rs.open sql,conn,1,1
 	if not(rs.bof and rs.eof) then
 		if password=rs("vqqqpass") then
			session("admin")=rs("vqqqname")
			'session("pass")=rs("vqqqpass")
			session("flag")=rs("flag")
                        session("sfadminname") = rs("vqqqname")
			'session("sfadminpw") = (password)
			session("super_admin") = super_admin
			Response.Redirect "index.asp"
 		else
			call Error
 		end if
	else
		call Error()
	end if

	sub Error()
		response.write "<script language=javascript>alert('身份验证失败，请重新登陆！');this.location.href='admin_login.asp';</script>"
		response.end
	end sub
	rs.close
	
	set rs=nothing
	
end if
%>
⌨️ 快捷键说明

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