广告
淘宝内部优惠券
当前位置: 开发异常方案库» Web 开发 » 求大神帮忙,asp登陆后台之后空白,多刷新几次运气好也可以进

求大神帮忙,asp登陆后台之后空白,多刷新几次运气好也可以进

开发异常方案库  收集整理于:2020-05-07 16:55:00  浏览:66次
网站是一个asp的,程序算比较老了的吧,登陆后台输入账号密码之后就会显示空白(win7)多刷新几次有时候也能进去,原来使用xp系统就一切正常,开始以为是浏览器太高,但我重新装了IE9,也不行,求大神们帮忙看下 进入的是  Admin_Index.asp  代码如下: <!--#include file="../inc/conn.asp"--> <!--#include file="../inc/code.asp"--> <!--#include file="adminchk.asp"--> <html> <head> <title><%=WebName%>--管理系统</title> <meta http-equiv="Content-Type" content="text/html; charset=gb2312"> </head> <script language="JavaScript"> document.write("<frameset rows=\"*\" cols=\"180,*\" frameborder=\"NO\" border=\"0\" framespacing=\"0\">") document.write("<frame name=\"leftFrame\" scrolling=\"AUTO\" noresize src=\"Admin_Index_Left.asp\" marginwidth=\"0\" marginheight=\"0\">") document.write("<frameset rows=\"20,*\" framespacing=\"0\" border=\"0\" frameborder=\"0\">") document.write("<frame name=\"top\" scrolling=\"no\" src=\"Admin_Index_top.asp\" NORESIZE frameborder=\"0\" marginwidth=\"10\" marginheight=\"0\" border=\"no\">") document.write("<frame name=\"main\" src=\"Admin_Index_main.asp\" scrolling=\"AUTO\" NORESIZE frameborder=\"0\" marginwidth=\"10\" marginheight=\"10\" border=\"no\">") document.write("</frameset></frameset>") </script> <noframes>   <body leftmargin="2" topmargin="0" marginwidth="0" marginheight="0">   <p>你的浏览器版本过低!!!本系统要求IE5及以上版本才能使用本系统。</p>   </body> </noframes> </html> 检测之后跳转到Admin_login.asp   代码如下: <%@language=vbscript codepage=936%> <% '强制浏览器重新访问服务器下载页面,而不是从缓存读取页面 Response.Buffer = True  Response.Expires = -1 Response.ExpiresAbsolute = Now() - 1  Response.Expires = 0  Response.CacheControl = "no-cache"  '主要是使随机出现的图片数字随机 %> <!--#include file="../inc/conn.asp"--> <!--#include file="../inc/code.asp"--> <!--#include file="../inc/md5.asp"--> <% dim Action,FoundErr,ErrMsg Action=trim(request("Action")) if Action="Login" then call ChkLogin() elseif Action="Logout" then call Logout() else call main() end if if FoundErr=True then call WriteErrMsg() end if call CloseConn() sub main() %> <html> <head> <title><%=WebName%>--后台管理系统--管理员登录</title> <meta http-equiv="Content-Type" content="text/html; charset=gb2312"> <link rel="stylesheet" href="css/style.css" 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);     } } function CheckBrowser()  {   var app=navigator.appName;   var verStr=navigator.appVersion;   if (app.indexOf('Netscape') != -1) {     alert("<%=SiteName%>提示你,你使用的是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("<%=SiteName%>提示你,您的浏览器版本太低,可能会导致无法使用后台的部分功能。建议您使用 IE6.0 或以上版本。");   } } //--> </script> </head> <body leftmargin="0" bottommargin="0" rightmargin="0" topmargin="0" marginheight="0" marginwidth="0"> <p> </p> <p> </p> <form name="Login" action="Admin_Login.asp" method="post" target="_parent" onSubmit="return CheckForm();"> <table cellpadding="1" cellspacing="0" border="0" align=center style="border: outset 3px;width:0;"> <tr><td> <table style="width:500" border=0 cellspacing=0 cellpadding=3 align=center class=tablefoot>     <tr><th valign=middle colspan=2 height=25><%=webname%>-管理登录</th></tr>     <tr>     <td valign=middle colspan=2 align=center class=forumRowHighlight style="background-image: url(images/loginbg.jpg);" height="75"> <table border="0" width="100%" height="100%">     <tr><td width="61%" height="100%" rowspan="3"></td> <td width="39%" height="0"></td></tr>     <tr><td height="" valign=top class=tdfoot style=""> </td></tr>     <tr><td height=""></td></tr> </table> </td></tr> </table> <table style="width:500" border=0 cellspacing=0 cellpadding=3 align=center> <tr>     <td valign=middle colspan=2 align=center class=forumRow1 height=4></td> </tr>     <tr>     <td valign=middle class=forumRow1 width="30%" align=right><b>用户名:</b></td>     <td valign=middle class=forumRow1><input name="UserName" onFocus="this.select(); "></td></tr>     <tr>     <td valign=middle class=forumRow1 align=right><b>密 码:</b></font></td>     <td valign=middle class=forumRow1><input type="password" name="Password" onFocus="this.select(); "></td></tr>     <tr>     <td valign=middle class=forumRow1 align=right><b>附加码:</b></td>     <td valign=middle class=forumRow1><input name="CheckCode" maxlength="6" onFocus="this.select(); ">&nbsp;请在附加码框输入 <img src="../inc/checkcode.asp"></td></tr> <tr>     <td valign=middle colspan=2 align=center class=forumRowHighlight1><input class=button type=image src=images/login.gif size  name="Submit" style="cursor:hand" value="登 录"><input type='hidden' name='Action' value='Login'></td> </tr> </table> </td></tr></table></form> <script language="JavaScript" type="text/JavaScript"> SetFocus();  </script> </body> </html> <% end sub sub ChkLogin() dim sql,rs dim username,password,CheckCode,RndPassword,aid username=replace(trim(request("username")),"'","") password=replace(trim(Request("password")),"'","") CheckCode=replace(trim(Request("CheckCode")),"'","") if UserName="" then FoundErr=True ErrMsg=ErrMsg & "<br><img src='images/loginerror.gif'>用户名不能为空!" end if if Password="" then FoundErr=True ErrMsg=ErrMsg & "<br><img src='images/loginerror.gif'>密码不能为空!" end if     If CheckCode = "" Then         FoundErr = True         ErrMsg = ErrMsg & "<br><img src='images/loginerror.gif'>验证码不能为空!"     End If     If Trim(Session("CheckCode")) = "" Then         FoundErr = True         ErrMsg = ErrMsg & "<br><img src='images/loginerror.gif'>你登录时间过长,请重新返回登录页面进行登录。"     End If     If CheckCode <> Session("CheckCode") Then         FoundErr = True         ErrMsg = ErrMsg & "<br><img src='images/loginerror.gif'>您输入的确认码和系统产生的不一致,请重新输入。"     End If if FoundErr=True then exit sub end if     If UserTrueIP = "" Then         TrueIP = Trim(Request.ServerVariables("HTTP_X_FORWARDED_FOR"))         If TrueIP = "" Then TrueIP = Request.ServerVariables("REMOTE_ADDR")     Else         TrueIP = UserTrueIP     End If password=md5(password,16) set rs=server.createobject("adodb.recordset") sql="select * from "&AdminTable&" where password='"&password&"' and username='"&username&"'" rs.open sql,conn,1,3 if rs.bof and rs.eof then FoundErr=True ErrMsg=ErrMsg & "<br><img src='images/loginerror.gif'>用户名或密码错误!!!" else if password<>rs("password") then FoundErr=True ErrMsg=ErrMsg & "<br><img src='images/loginerror.gif'>用户名或密码错误!!!" end if end if if FoundErr=True then session("AdminName")="" session("AdminPassword")="" session("RndPassword")="" Session("aid")="" rs.close set rs=nothing exit sub end if RndPassword=GetRndPassword(16) rs("LastLoginIP")=TrueIP rs("LastLoginTime")=now() rs("LoginTimes")=rs("LoginTimes")+1 rs("RndPassword")=RndPassword rs.update     Response.Cookies(webkey)("AdminName") = rs("username")     Response.Cookies(webkey)("AdminPassword") = rs("Password")     Response.Cookies(webkey)("RndPassword") = RndPassword     Session("aid")=Rs(0) rs.close set rs=nothing call CloseConn() Response.Redirect "Admin_Index.asp" end sub sub Logout() set rs=server.createobject("adodb.recordset") sql="select * from "&AdminTable&" where username='"&ReplaceBadChar(Trim(Request.Cookies(webkey)("AdminName")))&"'" rs.open sql,conn,1,3 rs("LastLogoutTime")=now() rs.update rs.close set rs=nothing     Response.Cookies(webkey)("AdminName") = ""     Response.Cookies(webkey)("AdminPassword") = ""     Response.Cookies(webkey)("RndPassword") = ""     Session("aid")="" call CloseConn() Response.Redirect "Admin_login.asp" end sub '**************************************************** '过程名:WriteErrMsg '作  用:显示错误提示信息 '参  数:无 '**************************************************** sub WriteErrMsg() dim strErr strErr=strErr & "<html><head><title>错误信息</title><meta http-equiv='Content-Type' content='text/html; charset=gb2312'>" & vbcrlf strErr=strErr & "<link rel='stylesheet' href='css/style.css' type='text/css'></head><body>" & vbcrlf strErr=strErr & "<br><table cellpadding=2 cellspacing=1 border=0 width=400 align=center class=tableBorder>" & vbcrlf strErr=strErr & "  <tr><th height='25'>错误信息</th></tr>" & vbcrlf strErr=strErr & "  <tr><td height='100' valign='top' class='forumrow'><b>产生错误的可能原因:</b><br>" & errmsg &"</td></tr>" & vbcrlf strErr=strErr & "  <tr align='center'><td height='30' class='forumRowHighlight'><a href='Admin_Login.asp'>&lt;&lt; 返回登录页面</a></td></tr>" & vbcrlf strErr=strErr & "</table>" & vbcrlf strErr=strErr & "</body></html>" & vbcrlf response.write strErr end sub %>

------网友观点--------------------
有人没,帮忙看下哈,可以付费

------网友观点--------------------
ql="select * from "&AdminTable&" where password='"&password&"' and username='"&username&"'" rs.open sql,conn,1,3 这都是连数据库的,咋看啊。。。

------网友观点--------------------
你的这个问题不是这么简单就能解决的,asp总会有些莫名其妙的问题,最常见的是sql语句执行完后rs中的对象莫名其妙的丢失,需要重点检查。造成这些问题最主要的原因和asp本身的bug和IIS升级后的支持变差。 要解决的办法就是逐行跟踪变量。

------网友观点--------------------
引用 2 楼 horizon_zpy 的回复:
ql="select * from "&AdminTable&" where password='"&password&"' and username='"&username&"'" rs.open sql,conn,1,3 这都是连数据库的,咋看啊。。。
   是的啊,但数据库没问题啊,有时候多刷新几次或者偶然就直接成功进去了,账号密码验证码肯定没错的呢

------网友观点--------------------
引用 3 楼 renjnet 的回复:
你的这个问题不是这么简单就能解决的,asp总会有些莫名其妙的问题,最常见的是sql语句执行完后rs中的对象莫名其妙的丢失,需要重点检查。造成这些问题最主要的原因和asp本身的bug和IIS升级后的支持变差。 要解决的办法就是逐行跟踪变量。
才发现我用xp系统进入一点事情没。。。win7就会出现这个问题,头大了

------网友观点--------------------
引用 5 楼 cqhr773 的回复:
Quote: 引用 3 楼 renjnet 的回复:
你的这个问题不是这么简单就能解决的,asp总会有些莫名其妙的问题,最常见的是sql语句执行完后rs中的对象莫名其妙的丢失,需要重点检查。造成这些问题最主要的原因和asp本身的bug和IIS升级后的支持变差。 要解决的办法就是逐行跟踪变量。
才发现我用xp系统进入一点事情没。。。win7就会出现这个问题,头大了
是不是浏览器不一样,win7和xp,还有客户端的用户组权限是不是都是admin

------网友观点--------------------
引用 6 楼 horizon_zpy 的回复:
Quote: 引用 5 楼 cqhr773 的回复:
Quote: 引用 3 楼 renjnet 的回复:
你的这个问题不是这么简单就能解决的,asp总会有些莫名其妙的问题,最常见的是sql语句执行完后rs中的对象莫名其妙的丢失,需要重点检查。造成这些问题最主要的原因和asp本身的bug和IIS升级后的支持变差。 要解决的办法就是逐行跟踪变量。
才发现我用xp系统进入一点事情没。。。win7就会出现这个问题,头大了
是不是浏览器不一样,win7和xp,还有客户端的用户组权限是不是都是admin
要给user权限吗,关键是刷新几次有时候又可以进,只要进去就可以用了

------网友观点--------------------
引用 6 楼 horizon_zpy 的回复:
Quote: 引用 5 楼 cqhr773 的回复:
Quote: 引用 3 楼 renjnet 的回复:
你的这个问题不是这么简单就能解决的,asp总会有些莫名其妙的问题,最常见的是sql语句执行完后rs中的对象莫名其妙的丢失,需要重点检查。造成这些问题最主要的原因和asp本身的bug和IIS升级后的支持变差。 要解决的办法就是逐行跟踪变量。
才发现我用xp系统进入一点事情没。。。win7就会出现这个问题,头大了
是不是浏览器不一样,win7和xp,还有客户端的用户组权限是不是都是admin
兄弟,今天才发现,我用vps里面的最新版chrome浏览器(64位)登录了几次都是一次性成功,还特地比对了下,系统08 64位,只不过我家里用的是win7,我也吧浏览器装成chrome 64位最新版,还是一样空白,这就真奇怪了

------网友观点--------------------
win7我估计是网络超时也有可能,看看换个移动4g的网络试试。。。

------网友观点--------------------
64位IIS和32位配置有区别的,需要改个地方才能运行。

------网友观点--------------------
引用 10 楼 哎算了 的回复:
64位IIS和32位配置有区别的,需要改个地方才能运行。
我用服务器进没问题呢,2008系统 64位,chrome 也是最新版64位的,ie版本是11的。。真的找不到原因了,

------网友观点--------------------
已经解决,谢谢 10楼的朋友
发布此文章仅为传递网友分享,不代表本站观点,若侵权请联系我们删除,本站将不对此承担任何责任。
软件开发 程序错误 异常 ybaby.netCopyright © 2020-2026  ybaby 版权所有  桂ICP备17004385号-2 网站地图