📄 default.asp

📁 .　缓存处理技术
💻 ASP
字号:
<!--#include file="sysconfig.asp"-->
<!--#include file="../inc/md5.asp"-->
<%
On Error Resume Next
Dim Act,LocalFileName
Act=Trim(Request.Form("LoginAct"))
LocalFileName=Request.ServerVariables("PATH_INFO")
if act="Success" then
	Dim Cnbbr_RndCode
	Cnbbr_RndCode=replace(trim(Request("CheckCode")),"'","")

	if Cnbbr_RndCode="" then
	   Call AlertInfo("验证码检验失败，请重新登陆系统！",LocalFileName,1)
 	elseif Cnbbr_RndCode<>cStr(rst("CheckCode")) then
	   Call AlertInfo("验证码检验失败，请重新登陆！",LocalFileName,1)
	else
	   session("Cnbbr_RndCode")=""
	end if

	CheckBBRForm
	dim username,password
	username=replace(trim(rst("username")),"'","")
	password=replace(trim(rst("passcnbbr")),"'","")
	password=md5(password,cBBRMd5Byte)
	set rs=server.createobject("adodb.recordset")
	sql="select * from bbradmin where bbrpass='"&password&"' and bbrname='"&username&"'"

	rs.open sql,conn,1,1
 	if not(rs.bof and rs.eof) then
 		if password=rs("bbrpass") then
			Response.Cookies(super_admin)("admin")=rs("bbrname")
			Response.Cookies(super_admin)("flag")=rs("flag")
			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='"& LocalFileName &"';</script>"
		response.end
	end sub
	rs.close
	set rs=nothing
end if
%>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<html>
<head>
<title>系统后台管理登陆</title>
<meta name="Author" content="www.cnbbr.com">
<meta name="Contact" content="cnbbr.com@gmail.com & QQ:90380256">
<meta name="Copyright" content="Cnbbr.com Inc. & XT QQ:80380256">
<link href="Images/LoginCss.css" rel="stylesheet" type="text/css">
<script language=javascript>
function SetFocus()
{
if (document.Login.UserName.value=="")
	document.Login.UserName.focus();
else
	document.Login.UserName.select();
}
function CheckForm()
{
	if(document.Login.UserName.value=="")
	{
		alert("请输入用户名！");
		document.Login.UserName.focus();
		return false;
	}
	if(document.Login.Password.value == "")
	{
		alert("请输入密码！");
		document.Login.Password.focus();
		return false;
	}
	if (document.Login.CheckCode.value==""){
       alert ("请输入您的验证码！");
       document.Login.CheckCode.focus();
       return(false);
    }
}
</script>
<SCRIPT language=JavaScript src="js/cnbbrsoftkeyboard.js"></SCRIPT>
</head>
<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0" onLoad="SetFocus();">
<center>
<table width="100%" height="100%"  border="0" cellpadding="0" cellspacing="0">
        <tr>
          <td>
<table width=526 border=0 align="center" cellpadding=0 cellspacing=0>
  <form name="login" method="post" action="<%=LocalFileName%>" onSubmit="return CheckForm();">
    <tr>
      <td colspan=2><img src='images/al_top.gif' border=0></td>
    </tr>
    <tr>
      <td colspan=2>
        <table border=0 cellspacing=0 cellpadding=0 width=526>
          <tr>
            <td width=155><img src='images/al_username.gif' border=0></td>
            <td width=105 background='images/al_body_bg.gif'><input name="UserName" class="input_login" size=12></td>
            <td width=93><img src='images/al_password.gif' border=0></td>
            <td width=105 background='images/al_body_bg.gif'><input name="passcnbbr"  class="input_login" type="Password" size=12><img src="Images/Dot_Info.gif" border="0" alt="" onkeydown=Calc.passcnbbr.value=login.passcnbbr.value title="点此使用小键盘输入密码，使你的帐号信息更安全！" 
		  onclick="inputpass=login.passcnbbr;showkeyboard();login.passcnbbr.readOnly=1;Calc.passcnbbr.value=''" 
		  readOnly onchange=Calc.passcnbbr.value=login.passcnbbr.value></td>
            <td width=68><img src='images/al_body_right.gif' border=0></td>
          </tr>
      </table></td>
    </tr>
    <tr>
      <td colspan=2  >
        <table border=0 cellspacing=0 cellpadding=0 width=526>
          <tr>
            <td width=77><img src='images/al_end_left.gif' border=0></td>
            <td width=339>
              <table border=0 cellspacing=0 cellpadding=0 width=339>
                <tr>
                  <td height=49 background='images/al_end_bg.gif' align=center>
                    <TABLE border=0>
                      <TR class=tr_val>
                        <TD class=>验证码：</TD>
                        <td class=a2 ><input name="CheckCode" class=input_val  size=6 maxlength="6"><img src="../inc/RndCode.asp"> </td>
                      </TR>
                  </table></td>
                </tr>
                <tr>
                  <td><img src='images/al_end_end.gif' border=0></td>
                </tr>
            </table></td>
            <td width=110><input name=Loginact type=hidden value=Success><input  name="Submit" type=image src="images/al_end_right.gif" width="110" height="88" border=0 ></td>
          </tr>
      </table></td>
    </tr>
  </form>
</table></td>
        </tr>
      </table>
</center>
</body>
</html>
⌨️ 快捷键说明

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