UC知道asp留言板刷新问题
来源：百度知道 编辑：UC知道 时间：2024/05/30 09:43:34
<%
'-------------------------------------添加留言-------------------------------------
sub Add()
dim strname,mothers,ip
ip=getIP()
strname=FunInput(request.form("Pet_Name"))
mothers=FunInput(request.form("M_Content"))
set rs=server.createobject("Adodb.Recordset")
rs.open "guestbook",conn,2,2
rs.addnew
rs("Name")=strname
rs("Messige")=mothers
rs("visitor_ip")=ip
rs.update
response.write("<script language=javascript>" & _
vbcrlf & "alert(""谢谢您的留言！"");" & _
vbcrlf & "location='"&"Leave_message.asp'" & _
vbcrlf & "</script>")
rs.close:set rs=nothing
end sub
%>
我用以上代码把留言写入数据库，然后再用location定位到这个网页，但是显示留言没有刷新（也就是我刚留的言没有显示出来，非得刷新一下才行）是怎么回事？还有个问题，就是输入留言的时候，如果输入者不是按Enter换行的话，显示时会一行显示，怎么解决（用的是&
'-------------------------------------添加留言-------------------------------------
sub Add()
dim strname,mothers,ip
ip=getIP()
strname=FunInput(request.form("Pet_Name"))
mothers=FunInput(request.form("M_Content"))
set rs=server.createobject("Adodb.Recordset")
rs.open "guestbook",conn,2,2
rs.addnew
rs("Name")=strname
rs("Messige")=mothers
rs("visitor_ip")=ip
rs.update
response.write("<script language=javascript>" & _
vbcrlf & "alert(""谢谢您的留言！"");" & _
vbcrlf & "location='"&"Leave_message.asp'" & _
vbcrlf & "</script>")
rs.close:set rs=nothing
end sub
%>
我用以上代码把留言写入数据库，然后再用location定位到这个网页，但是显示留言没有刷新（也就是我刚留的言没有显示出来，非得刷新一下才行）是怎么回事？还有个问题，就是输入留言的时候，如果输入者不是按Enter换行的话，显示时会一行显示，怎么解决（用的是&
用javascript的location定位不是一个好办法，因为这样得到的页面是本地的缓存。
用asp的response.redirect来定位就不会出现这个问题了。
或者强制把Leave_message.asp这个页面的缓存去掉。这样操作：
在Leave_message.asp的在head中加入
<META HTTP-EQUIV="Pragma" CONTENT="no-cache">
或者在asp程序的最前面加上：
Response.Expires = -1
Response.ExpiresAbsolute = Now() - 1
Response.cachecontrol = "no-cache"
欢迎访问我的论坛：
http://www.chinesebloger.com
期待您的支持：）
留完言以后跳转到留言页面它自己刷新的啊