日期:2014-05-17  浏览次数:21024 次

关于IE8下的跳转代码
Public Sub Succeed(SucMsg)
Response.Write "<p>&nbsp;</p>" & vbCrLf
Response.Write "<meta http-equiv=refresh content=3;url=" & Request.ServerVariables("HTTP_REFERER") & ">" Response.Write "<table align=""center"" border=""0"" cellpadding=""5"" cellspacing=""0"">" & vbCrLf
Response.Write " <tr> " & vbCrLf
Response.Write " <th colspan=2 align=""left""><img src=""images/welcome.gif"" width=""16"" height=""17"" align=""absMiddle""> 成功提示信息!</th>" & vbCrLf
Response.Write " </tr>" & vbCrLf
Response.Write " <tr><td align=center width=""20%"" class=TableRow1><img src=""images/succ.gif"" width=95 height=97 border=0></td><td width=""80%"" class=TableRow1>"
Response.Write " <b style=color:blue><span id=jump>3</span> 秒钟后系统将自动返回</b><br>"
Response.Write SucMsg & "</td></tr>" & vbCrLf
Response.Write " <tr><td colspan=2 align=center height=25 class=TableRow2><a href='" & Request.ServerVariables("HTTP_REFERER") & "'>返回上一页...</a></td></tr>" & vbCrLf
Response.Write " </table><p>&nbsp;</p>" & vbCrLf
Response.Write "<script>function countDown(secs){jump.innerText=secs;if(--secs>0)setTimeout(""countDown(""+secs+"")"",1000);}countDown(3);</script>"
End Sub


IE6下是正常的,IE8是不行的,请问一下,怎么改呢

------解决方案--------------------
Response.Write "<meta http-equiv='refresh' content='3;url=" & Request.ServerVariables("HTTP_REFERER") & "'>"

IE8浏览器有设置。是否允许使用refresh跳转