IE6.0 sp1的怪问题，还请各位高手看看！！！！

wwwzjb 2004-05-08 08:44:12

我用ASP＋Server SQL 2000 +windows 2000 server sp4 做了一个系统，因我用了HVmenu及主页用的iframe，所以要IE6.0的支持，而问题来了，客户端若打上了IE sp1时，系统则不能登录，不论你的验证正确否，他都跑到sorry.asp中而不去main.asp!!!!

...全文

70 12 打赏收藏转发到动态举报

写回复

用AI写文章

12 条回复

切换为时间正序

请发表友善的回复…

发表回复

sfar 2004-05-08

打赏
举报

是程序的问题。

wwwzjb 2004-05-08

打赏
举报

不会吧

给出源代码而没有人来了呀！！

wwwzjb 2004-05-08

打赏
举报

关注中！！！

omgod 2004-05-08

打赏
举报

不应该是IE问题！

wwwzjb 2004-05-08

打赏
举报

而且在IE6.0下若有无用户或密码错误与否或接连超时等在sorry.asp中都有
Session("TheMessage")提示,而在IE6.0 SP1下,不论你什么原因,也没有啥提示呀!

liuyangxuan 2004-05-08

打赏
举报

不应该是IE问题！

wwwzjb 2004-05-08

打赏
举报

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>



<%
LoginAction = Request.ServerVariables("URL")
If Request.QueryString<>"" Then LoginAction =LoginAction + "?" + Server.HTMLEncode(Request.QueryString)

Username=CStr(Request.Form("UserName"))
Password=Base64encode(Request.Form("Password"))

If Username <> "" Then
redirectLoginSuccess="main.asp"
redirectLoginFailed="sorry.asp"

set RSLogin = Server.CreateObject("ADODB.Recordset")
SQLLogin= "SELECT QUseName FROM dbo.Q_User WHERE QUseName='" & Replace(Username,"'","''") & "'"
RSLogin.Open SQLLogin,conn,0,1

If Not RSLogin.EOF Or Not RSLogin.BOF Then
RSLogin.Close
SQLLogin= "SELECT QUserId, QUseName, QIDCard, QPassword, QGroup FROM dbo.Q_User WHERE QUseName='" & Replace(Username,"'","''") & "'"& "AND QPassword='" & Replace(Password,"'","''") & "'"
RSLogin.Open SQLLogin,conn,0,1
If Not RSLogin.EOF Or Not RSLogin.BOF Then
' username and password match - this is a valid user
Session("UserName")=RSLogin("QUseName")
Session("IDCard")=RSLogin("QIDCard")
Session("UserGroup")=RSLogin("QGroup")
Session("Password")=RSLogin("QPassword")
Session("UserID")=RSLogin("QUserId")
RSLogin.Close
set RSLogin = Nothing
Response.Redirect(redirectLoginSuccess)
else
RSLogin.Close
set RSLogin = Nothing
Session("TheMessage") ="密码错误，请核对后再登录！"
Response.Redirect(redirectLoginFailed)
End If
else
Session("TheMessage") ="以上用户不存在，请核对后再登录！"
Response.Redirect(redirectLoginFailed)
end if
call CloseDatabase()
End If
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>登录系统</title>

<body background="images/outbg.gif" leftmargin="0" topmargin="0">
<table width="798" border="0" align="center" cellpadding="0" cellspacing="0" background="images/inbg.gif">
<tr>
<th align="center" valign="middle" background="images/bg.gif" scope="col"><img src="images/head.jpg" width="778" height="98"></th>
</tr>

<tr>
<td align="center" valign="middle" background="images/bg.gif">
<br>
<table width="772" height ="420" border="0" align="center" cellspacing="0" cellpadding="0">
<tr>
<th scope="col">
<br><br>
请在下面系统登录：
<form name="form" method="POST" action="<%=LoginAction%>">
<p><br>
<font color="#BB3466">用户名</font>
<input class=itm name=UserName size=15>
</p>
<p><font color="#BB3466">密  码</font>
<input class=itm name=Password size=15 type=password>
<br>
<br>
<input type="submit" name="Login" value="登  录" style="border: 1px solid #B6CAEB; background-color: #34BB66; color: #FFFFFF">
   <input type="reset" name="Reset" value="重  设" style="border: 1px solid #B6CAEB; background-color: #34BB66; color: #FFFFFF">
</p>

</form>
<br>
<br>
</th>
</tr>
</table>

</td>
</tr>

<tr>
<td align="center" valign="middle" ><img src="images/bottom.gif" width="798" height="10"></td>
</tr>
</table>

</body>
</html>

wwwzjb 2004-05-08