www.gusucode.com > 云枫企业网站源代码第二版 2.0源码程序 > admin/login.asp

    <!--#include file="Conn.asp"-->
<%if Request.QueryString("no")<>"eshop" then%>
<html>
<head>
<title>企业网站后台管理系统</title>
<LINK href="images/bodystyle.css" rel=stylesheet type=text/css>
<SCRIPT language=JavaScript>
<!--
function CheckForm()
{ 
if (document.UserLogin.Name.value =="")
{
alert("请填写您的用户名!");
document.UserLogin.Name.focus();
return false;
}
var filter=/^\s*[.A-Za-z0-9_-]{5,15}\s*$/;
if (!filter.test(document.UserLogin.name.value)) { 
alert("用户名填写不正确,请重新填写!可使用的字符为(A-Z a-z 0-9 _ - .)长度不小于5个字符,不超过15个字符,注意不要使用空格。"); 
document.UserLogin.Name.focus();
document.UserLogin.Name.select();
return false; 
} 
if (document.UserLogin.Pwd.value =="") 
{
alert("请填写您的密码!");
document.UserLogin.Pwd.focus();
return false; 
}
var filter=/^\s*[.A-Za-z0-9_-]{5,15}\s*$/;
if (!filter.test(document.UserLogin.Pwd.value)) { 
alert("密码填写不正确,请重新填写!可使用的字符为(A-Z a-z 0-9 _ - .)长度不小于5个字符,不超过15个字符,注意不要使用空格。"); 
document.UserLogin.Pwd.focus();
document.UserLogin.Pwd.select();
return false; 

}
if (document.Login.CheckCode.value==""){
alert ("请输入您的验证码!");
document.Login.CheckCode.focus();
 return(false); 
} 
loginForm.submit();
return true; 
}

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>


<SCRIPT language=JavaScript src="images/showtitle.js"></SCRIPT>


<META content="MSHTML 5.00.3502.5390" name=GENERATOR><meta http-equiv="Content-Type" content="text/html; charset=gb2312"><style type="text/css">
<!--
body {
	margin-top: 50px;
}
-->
</style></HEAD>
<BODY>
<FORM ACTION="Login.asp?no=eshop" METHOD="post" name='UserLogin' onSubmit='return CheckForm();'>
  <table width="600" border="0" align="center" cellpadding="0" cellspacing="0">
    <tr>
      <td colspan="2"><img src="Images/Admin_Login1.gif" width="600" height="126"></td>
    </tr>
    <tr>
      <td width="508" valign="top" background="Images/Admin_Login2.gif"><table width="508" border="0" cellspacing="0" cellpadding="0">
        <tr>
          <td height="37" colspan="7">&nbsp;</td>
        </tr>
        <tr>
          <td width="75" rowspan="2">&nbsp;</td>
          <td width="126"><font color="#043BC9">用户名称:</font></td>
          <td width="39" rowspan="2">&nbsp;</td>
          <td width="131"><font color="#043BC9">用户密码:</font></td>
          <td width="33">&nbsp;</td>
          <td colspan="2">&nbsp;</td>
          </tr>
        <tr>
          <td><input name="name"  type="text"  id="name" maxlength="20" style="width:110px; BORDER-RIGHT: #F7F7F7 0px solid; BORDER-TOP: #F7F7F7 0px solid; FONT-SIZE: 9pt; BORDER-LEFT: #F7F7F7 0px solid; BORDER-BOTTOM: #c0c0c0 1px solid; HEIGHT: 16px; BACKGROUND-COLOR: #F7F7F7" onMouseOver="this.style.background='#ffffff';" onMouseOut="this.style.background='#F7F7F7'" onFocus="this.select(); "></td>
          <td><input name="Pwd"  type="password" id="Pwd" style="width:110px; BORDER-RIGHT: #F7F7F7 0px solid; BORDER-TOP: #F7F7F7 0px solid; FONT-SIZE: 9pt; BORDER-LEFT: #F7F7F7 0px solid; 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>
          <td>&nbsp;</td>
          <td width="53">&nbsp;</td>
          <td width="51">&nbsp;</td>
        </tr>
      </table></td>
      <td><input type="image" name="Submit" src="Images/Admin_Login3.gif" style="width:92px; HEIGHT: 126px;"></td>
    </tr>
  </table>
  </form></BODY></HTML>
<%else%>
<%
pwd=Replace(Request.form("pwd"),"'","")
name=Replace(Request.form("name"),"'","")
Set rs = Server.CreateObject("ADODB.Connection")
sql = "select * from Manage_User where UserName='" & name & "' And PassWord='"&encrypt(pwd)&"'"
Set rs = conn.Execute(sql)
If Not rs.EOF = True Then
Session("Name") =  rs("UserName")
Session("pwd") =  rs("PassWord")
Response.Redirect("manage_Index.asp")
Else
Response.Redirect "inc/MessageBox.asp?msg=您输入了错误的帐号或口令,请再次输入!"
End If
end if
%>