利用ASP程序防止恶意刷新 |
| [ 作者:佚名 转贴自:网络转载 阅读次数:40 更新时间:2007-10-22 12:12:00 录入:刘光勇 ] |
|
|
|
ASP源代码如下:
<% dim refreshPage,refreshs refreshPage = Request.ServerVariables("SCRIPT_NAME") '同一文件 'refreshPage = Request.ServerVariables("SCRIPT_NAME")&Server.HTMLEncode(Request.QueryString) '同一文件并带值 refreshs = 3
if request.cookies("refresh") = refreshPage then response.write (refreshs&"秒内请勿刷新多次!"&refreshs&"秒自动刷新!") response.write ("<meta http-equiv='refresh' content='3' />") response.end() else response.cookies("refresh") = refreshPage response.cookies("refresh").Expires = dateadd("s",refreshs,now()) end if %>
|
|
|
|