提示“不重发送消息，怎无法刷新页面”，请问如何解决？？？

Zuomeng 2004-09-25 09:35:44

...全文

103 6 打赏收藏转发到动态举报

写回复

用AI写文章

6 条回复

切换为时间正序

请发表友善的回复…

发表回复

jarraytan 2005-01-10

打赏
举报

刷新页面的时候吧？我一般点确定就OK了啊，好像没发现有什么问题啊。。。

ybiori 2005-01-10

打赏
举报

form用get方法，不用post就行了

田九 2005-01-10

打赏
举报

关注这个问题，我的也有此问题
不知道怎么解决啊

田九 2005-01-10

打赏
举报

关键是我的数据提交是大数据量的，不可能用get

Zuomeng 2004-09-25

打赏
举报

<%
postion = Trim(Request.QueryString("postion"))

if postion="" or not IsNumeric(postion) then
errmsg=""
postion=trim(1)
else
errmsg="<font color=#FF0000><b>您没有登陆或者停留的时间过长，请重新登陆！</b></font>"
end if

Function checkenter()
If username<>"" and password<>"" and otherpwd<>"" and Instr(username,"'")<1 and Instr(username," ")<1 and Instr(username,"""")<1 and Instr(username,"&")<1 then
checkenter=TRUE
Else
checkenter=FALSE
End If
End Function

Function checksysUser()
sql="SELECT * FROM admin WHERE userID='"&username&"'"
Set rs=Server.CreateObject("adodb.recordset")
rs.Open sql,conn,1,1
if rs.eof then
checksysUser=FALSE
else
passwd=trim(rs("pwd"))
if passwd=password then
Session("admin")=username
Session("userLever")=rs("userLever")
checksysUser=TRUE
else
checksysUser=FALSE
end if
End if
rs.close
conn.close
End Function
%>
<HTML>
<HEAD>
<TITLE><%=homepage_title%>--管理中心-用户登陆</TITLE>

<script language="JavaScript">

</script>

</HEAD>

<BODY background="images/diwen.gif" topMargin=0 leftmargin="0" onload="return window_onload()">
<p> </p>
<%
if Request.Form("action")="true" then
username=trim(Request.Form("username"))
password=trim(Request.Form("password"))
position = Trim(Request.form("postion"))
otherpwd = Trim(Request.form("otherpwd"))
reotherpwd = Trim(Request.form("reotherpwd"))

a=checkenter()
If a=TRUE then
if otherpwd = reotherpwd then
b=checksysUser()
if b=true then
if position <> 2 then
Response.Redirect("main.asp")
else
%>
<script language=javascript>
top.document.location.reload();
</script>
<%
end if
else
errmsg="<font color=#FF0000><b>用户名或者用户密码错误，请重新输入！</b></font>"
end if
else
errmsg="<font color=#FF0000><b>附加码输入错误，请重新输入！</b></font>"
end if
else
errmsg="<font color=#FF0000><b>用户名输入有误，请重新输入！</b></font>"
end if
end if
%>
<div align="center"><%=errmsg%><br></div>
<table width="450" height="289" border="0" cellpadding="0" cellspacing="0" background="images/admin.gif" align="center">
<form name=mail action="login.asp" onSubmit="return IsValid();" method=post>
<tr>
<td width="83" height="133"> </td>
<td width="283"> </td>
<td width="84"> </td>
</tr>
<tr>
<td height="98"> </td>
<td valign="top">
<table cellspacing=0 cellpadding=0 width=247 border=0 align="center">
<tbody>
<tr>
<td height="28" style="line-height:180%"> 帐号：
<input type="text" name="username" size="20" class="button1">
</td>
</tr>
<tr>
<td height="28" style="line-height:180%"> 密码：
<input type="password" name="password" size="20" class="button1">
</td>
</tr>
<tr>
<td height="28" style="line-height:180%"> 附加码：
<input type="text" name="otherpwd" size="20" class="button1">
<font face="Arial, Helvetica, sans-serif">
<%
dim temprnd
Randomize
temprnd=cstr(Int((9999 - 1000 + 1) * Rnd() + 1000))
response.Write (temprnd)
%>
</font>
<input type="hidden" name="action" value="true">
<input type="hidden" name="postion" value="<%=postion%>">
<input type="hidden" name="reotherpwd" value="<%=temprnd%>">
</td>
</tr>
</tbody>
</table>
</td>
<td> </td>
</tr>
<tr>
<td> </td>
<td valign="top">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td>
<div align="center"> <a href="../WebPages/Index.asp"><font color="#0000FF">返回首页</font></a>
</div>
</td>
<td>
<input type=image height=23 width=62 src="images/btn_index_ok.gif" border=0 name=submit1>
<img onMouseOver="event.srcElement.style.cursor='hand'" onClick=cancel() height=23 src="images/btn_index_cancel.gif" width=62 border=0> </td>
</tr>
</table>
</td>
<td> </td>
</tr>
</form>
</table>
</BODY>
</HTML>

ryuginka 2004-09-25