| 以文本方式查看主题 - 智睿软件_技术交流论坛 (http://zhirui.net/bbs/index.asp) -- Web程序开发 (http://zhirui.net/bbs/list.asp?boardid=22) ---- asp防恶意刷新代码 (http://zhirui.net/bbs/dispbbs.asp?boardid=22&id=7) |
| -- 作者：zhirui -- 发布时间：2009-10-15 07:09:41 -- asp防恶意刷新代码 法一：
Dim URL If DateDiff("s",Request.Cookies("oesun")("vitistime"),Now())<2 Then URL=Request.ServerVariables("Http_REFERER") Response.Write("<meta http-equiv=""refresh"" content=""2;URL="&URL&""">") Response.Write("防刷新,两秒后自动跳转...") Response.End End IF Response.Cookies("oesun")("vitistime")=Now() 法二：
If Request.Cookies("terry.jsjt")("norefresh")<>"" Then If DateDiff("s",Request.Cookies("terry.jsjt")("norefresh"),Now())<5 Then If Request.ServerVariables("QUERY_STRING")="" Then Response.Write("<meta http-equiv=""refresh"" content=""3;URL="&Request.ServerVariables("URL")&""">") Else Response.Write("<meta http-equiv=""refresh"" content=""3;URL="&Request.ServerVariables("URL")&"?"&Request.ServerVariables("QUERY_STRING")&""">") End If Response.Write("防刷新,三秒后自动跳转...") Response.End End IF End if Response.Cookies("terry.jsjt")("norefresh")=Now() |
| -- 作者：zhirui -- 发布时间：2009-07-13 22:20:21 -- <%
Dim SplitReflashPage
Dim DoReflashPage
dim shuaxin_time
DoReflashPage=true
shuaxin_time=10
ReflashTime=Now()
if (not isnull(session("ReflashTime"))) and cint(shuaxin_time)>0 and DoReflashPage then
if DateDiff("s",session("ReflashTime"),Now())
正在打开页面，请稍候……" response.end else session("ReflashTime")=Now() end if elseif isnull(session("ReflashTime")) and cint(shuaxin_time)>0 and DoReflashPage then Session("ReflashTime")=Now() end if randomize timer regjm=int(rnd*8998)+1000 %><% Dim SplitReflashPage Dim DoReflashPage dim shuaxin_time DoReflashPage=true shuaxin_time=10 ReflashTime=Now() if (not isnull(session("ReflashTime"))) and cint(shuaxin_time)>0 and DoReflashPage then if DateDiff("s",session("ReflashTime"),Now())<cint(shuaxin_time) then response.write "<META http-equiv=Content-Type content=text/html; charset=gb2312><meta HTTP-EQUIV=REFRESH CONTENT=3>本页面起用了防刷新机制，请不要在<b><font color=ff0000>"&shuaxin_time&"</font></b>秒内连续刷新本页面<BR>正在打开页面，请稍候……" response.end else session("ReflashTime")=Now() end if elseif isnull(session("ReflashTime")) and cint(shuaxin_time)>0 and DoReflashPage then Session("ReflashTime")=Now() end if randomize timer regjm=int(rnd*8998)+1000 %> |
| -- 作者：zhirui -- 发布时间：2009-07-13 22:20:52 -- |