设为首页收藏本站新闻投稿

MOD中国同盟社

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 672|回复: 0

[求助] 帮个忙网站进不了后台看看这段源码有问题不? [复制链接]

Rank: 7Rank: 7Rank: 7

帖子
792
精华
0
声望
1640 点
金币
423 Mold
被赞许
0 次
注册时间
2010-3-18

可爱小猫 懒人勋章

发表于 2010-7-28 15:52:36 |显示全部楼层
老是登陆失败!请重新登陆

<!-- #Include File="../Include/Config.asp" -->
<!-- #Include File="../Include/YSvoid_Md5.asp" -->
<!-- #Include File="Include/Admin_Fir.asp" -->
<%
'=====================================================
'亿时空间 CMS V4.0 SP1 网站内容管理系统
'YSvoid CMS V4.0 SP1  Powered by YSvoid.com
'邮箱: webmaster@ysvoid.com
'QQ: 426295   
'网站: www.YSvoid.com
'Copyright (C) 2006 YSvoid.com All Rights Reserved.
'======================================================
If Action="logout" Then
Session.Abandon
Call Format_Redirect(YSvoid.CookiesPath)
End If
If YSvoid.Session_Get(Session_For&"Admin")="YSvoid_Admin" And YSvoid.Session_Get(Session_For&"Admins")=Login_UserName Then
Call Format_Redirect("Admins_Index.asp")
End If
Dim aChk,UserName2
tit="管理后台"
%>
<html>
<head>
<title><%Response.Write YSvoid.Web_Name%> - <%Response.Write tit%></title>
<meta http-equiv=Content-Type content=text/html; charset=gb2312 charset=gb2312>
<style>
<!--
body { background-color: #ffffff; background-image: url("images/login_bg.gif");}
body,p,td,th { font-family:Verdana, Arial, Helvetica, sans-serif, 宋体; font-size:12px; color:#000000 }
input.txt { border: 1px solid #c0c0c0; padding: 1px; background-color: #ffffff; height: 20px; }
input.btn
{
border: 1px solid #c0c0c0; background-color: #f7f7f7; background-image: url("/admin/image**g_btn.gif"); height: 20px;
padding-left: 10px; padding-right: 1px; padding-top: 2px; padding-bottom: 1px;
}
a { color: #000000; text-decoration: none }
a:hover { color: #ff3300; text-decoration: underline }
-->
</style>
<script language=javascript src='images/admin.js'></script>
<script language=javascript src='<%=YSvoid.CookiesPath%>style/select.js'></script>
<script language=javascript>
<!--
function admin_login_chk()
{
  var username=document.admin_frm.username.value;
  var password=document.admin_frm.password.value;
  if (username=="" || username==null)
  {
    alert("对不起!\n\n请先输入登陆用户名!");
    document.admin_frm.username.focus();
    return;
  }
  if (password=="" || password==null)
  {
    alert("对不起!\n\n请先输入登陆密码!");
    document.admin_frm.password.focus();
    return;
}
  document.admin_frm.**mit();
}
document.admin_frm.password.focus();
-->
</script>
</head>
<body topmargin=0 leftmargin=0>
<center>
<table border=0 width='100%' height='96%'>
<tr>
<td width='100%' height='100%' align=center>
<%
If YSvoid.Code_Admin("admin_log",1,0)="ok" Then
aChk=Admin_Chk()
If aChk Then
  Login_UserName=UserName2
  Call Admin_Event("成功登陆管理后台。")
  Call Format_Redirect("Admins_Index.asp")
Else
  Login_UserName=UserName2
  Call Admin_Event("登陆管理后台失败。")
  Response.Write YSvoid.Js_put("alert(""登陆失败!\n\n请重新登陆……"");history.back(1);",1)
End If
Else
Call Admin_Login()
End If
%>
</td></tr>
<%
Call Admin_Ender(tit)
** Admin_Login()
%>
<table border=0 cellspacing=0 cellpadding=0>
<form name=admin_frm action='admins_login.asp' method=post>
<input type=hidden name=admin_log value='ok'>
<tr><td><img src='images/al_top.gif' border=0 width=581 height=274></td></tr>
<tr align=center><td background='images/al_bg.gif' width=581 height=201>
  <table border=0 cellspacing=0 cellpadding=0>
    <tr><td>
      <table border=0 align=center>
   <tr><td>用 户 名:</td><td align=left><input tabindex=1 type=text class=txt name=username value='<%Response.Write Login_UserName%>' size=16 maxlength=20 style="width:120px;"></td></tr>
      <tr><td>登陆密码:</td><td align=left><input tabindex=2 type=password class=txt name=password value='' size=16 maxlength=20 style="width:120px;"></td></tr>
      <tr><td>验 证 码:</td><td align=left><input tabindex=3 type=password class=txt name=valcode value='' size=16 maxlength=20 style="width:120px;"></td></tr>
      <tr><td colspan=2>登陆前台&nbsp;<input type=checkbox name=logins value='yes'>&nbsp;&nbsp;&nbsp;<input tabindex=4 type=**mit value="管理登陆" clas**tn ></td></tr> </table>
    </td></tr>
<tr><td height=30></td></tr>
<tr><td height=30>版权所有 &copy; <a href="../"><%Response.Write YSvoid.Web_Name%></a> <font class=tims>5Wuc CMS V1.0 SP1 Beta</font></td></tr>
  </table>
</td></tr>
</form>
</table>
<%
End **
Function Admin_Chk()
Dim username,password,founderr,rs,sql,id,power,hidden,valcode,safety,logins
username=YSvoid.Code_Admin("username",1,20)
password=YSvoid.Code_Admin("password",1,20)
valcode=YSvoid.Code_Form("valcode")
logins=YSvoid.Code_Form("logins")
username2=username
founderr=""
Admin_Chk=False
If YSvoid.Is_Null(YSvoid.Web_AdminCodes)<>"" Then
  If YSvoid.Is_Null(valcode)="" Then Exit Function
  If YSvoid_md5(valcode,"short")<>YSvoid.Web_AdminCodes Then Exit Function
End If
If ChkName(username)=False Or ChkPassWord(password)=False Then Exit Function
If founderr="" Then
  password=YSvoid_md5(password,"short")
  SQL = "Select Top 1 Popedom From [YSvoid_UserData] Where Username='"&username&"' And Password='"&password&"' And Power='"&format_power2(1,1)&"' And Hidden=1"
  Set Rs=YSvoid.Exec(SQL,1)
  If Rs.Eof Then
   Rs.Close
   Exit Function
  End If
  If logins="yes" Then
   Response.Cookies(YSvoid.web_cookies)("login_username")=Username
   Response.Cookies(YSvoid.web_cookies)("login_password")=YSvoid.YSvoid_encrypt(password)
   Response.Cookies(YSvoid.web_cookies)("iscookies")="yes"
   Response.Cookies(YSvoid.web_cookies).expires=Date+365
  End If
  YSvoid.Session_Set Session_For&"Admin","YSvoid_Admin"
  YSvoid.Session_Set Session_For&"Admins",Username
  YSvoid.Session_Set Session_For&"Popedom",Rs("Popedom")
  Rs.Close
End If
Admin_Chk=True
End Function
'=====================================================
'亿时空间 CMS V4.0 SP1 网站内容管理系统
'YSvoid CMS V4.0 SP1  Powered by YSvoid.com
'邮箱: webmaster@ysvoid.com
'QQ: 426295   
'网站: www.YSvoid.com
'Copyright (C) 2006 YSvoid.com All Rights Reserved.
'======================================================
%>

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

回顶部