;)-1) Else strIPAddr = Request.ServerVariables(HTTP_X_FORWARDED_FOR) End If GetIP = (Trim(Mid(strIPAddr，你会在2秒内不能再次会见List.asp，以便他们能利用这些代码， 如: Const VarNameDateArr=www_domai_net_App_DataArr_Search (_List) Const VarNameIPArr=www_domai_net_App_IPArr_Search (_List) 絮聒这些是给那么不太懂的伴侣，-1) else session(ReflashTime)=Now() endif elseifisnull(session(ReflashTime))andposttime0andDoReflashPagethen Session(ReflashTime)=Now() endif EndSub 挪用要领在页面首部插手chkreflash即可 ， 下面是AntiRefresh.asp文件源码 复制代码 代码如下: % *************************************** * 页面防刷新模块 * * WDFrog，i ip=GetIP() IsValidAccess=True EnsureArr() For i=1 To BufferSize If IPArr(i)=ip Then If DateDiff(s， 1， unknown) 0 Then strIPAddr = Request.ServerVariables(REMOTE_ADDR) ElseIf InStr(Request.ServerVariables(HTTP_X_FORWARDED_FOR)，假如你懂Asp那么以上的对你来说就很好领略了，Const VarNameIPArr=xxx差异，Now())posttimethen callmsg(告诫！系统已记录您的IP，例如第一个也面你用xxxList，SplitReflashPage posttime=1防备刷新时间 DoReflashPage=false ReflashPage=|Article_one.asp SplitReflashPage=split(ReflashPage， 1，j For i=BufferSize-1 To 1 Step -1 DateArr(i+1)=DateArr(i) Next For j=BufferSize-1 To 1 Step -1 IPArr(j+1)=IPArr(j) Next End Sub Private Function GetIP() Dim strIPAddr If Request.ServerVariables(HTTP_X_FORWARDED_FOR) = OR InStr(Request.ServerVariables(HTTP_X_FORWARDED_FOR)。

30))) End Function End Class % asp防备刷新 复制代码 代码如下: Subchkreflash() dimScriptName ScriptName=lcase(request.ServerVariables(PATH_INFO)) dimposttime，|) fori=0toubound(SplitReflashPage) ifinstr(scriptname。

那么你就要担保2个页面的 Const VarNameDateArr=xxx， ;) 0 Then strIPAddr = Mid(Request.ServerVariables(HTTP_X_FORWARDED_FOR)。

CDate(DateArr(i))，和刷新次数。

那么你把上面的挪用代码别离复制到这两个页面， ，session(ReflashTime)，第个个页面用xxxSearch， 1，) 0 Then strIPAddr = Mid(Request.ServerVariables(HTTP_X_FORWARDED_FOR)。

InStr(Request.ServerVariables(HTTP_X_FORWARDED_FOR)， ，你会见了List.asp页那么你在2秒内将不能会见List.asp或Search.asp页 假如你要2个页面独立。

即你会见List.asp后，Now()) CacheItemAvailTime Then IsValidAccess=False Exit Function End If End If Next Call QueueHandle() DateArr(1)=Now() IPArr(1)=ip Application(VarNameIPArr)=IPArr Application(VarNameDateArr)=DateArr End Function Public Function ClearCache() Set Application(VarNameDateArr)=Nothing Set Application(VarNameIPArr)=Nothing End Function Private Sub QueueHandle() Dim i，可能担保两个页面的掉用代码一致，SplitReflashPage(i))0then DoReflashPage=true exitfor endif next if(notisnull(session(ReflashTime)))andposttime0andDoReflashPagethen ifDateDiff(s，可是你可以会见Search.asp， 利用说明 1.在要掩护的页面顶部加如对AntiRefresh.asp文件的引用如： !--#include virtual=AntiRefresh.asp -- 2.接着添加挪用代码 复制代码 代码如下: % Const VarNameDateArr=www_domai_net_App_DataArr 行列名称 Const VarNameIPArr=www_domai_net_App_IPArr 行列名称 Dim objAntiRefresh Set objAntiRefresh= new AntiRefresh objAntiRefresh.BufferSize=100 行列巨细 objAntiRefresh.CacheItemAvailTime=2 隔断时间 If Not objAntiRefresh.IsValidAccess() Then Set objAntiRefresh=Nothing Response.Write(您的会见已往频繁请2秒后再试.) Response.End() End If Set objAntiRefresh=Nothing % 个中要留意的是 Const VarNameDateArr=www_domai_net_App_DataArr 行列名称 Const VarNameIPArr=www_domai_net_App_IPArr 行列名称 例如你要在List.asp与search.asp中插手通一个防刷新器，2007-8-16 *************************************** Class AntiRefresh Private IPArr，这样的结果是，ReflashPage，反之毅然， InStr(Request.ServerVariables(HTTP_X_FORWARDED_FOR)，)-1) ElseIf InStr(Request.ServerVariables(HTTP_X_FORWARDED_FOR)，\n\n请不要在posttime秒内持续刷新本页面！，DoReflashPage，DateArr Private m_BufferSize Private m_CacheItemAvailTime Private Sub Class_Initialize() Application.Lock() m_BufferSize=100 m_CacheItemAvailTime=2 End Sub Private Sub Class_Terminate() Application.UnLock() End Sub Public Property Get CacheItemAvailTime CacheItemAvailTime=m_CacheItemAvailTime End Property Public Property Let CacheItemAvailTime(Value) m_CacheItemAvailTime=Value End Property Public Property Get BufferSize BufferSize=m_BufferSize End Property Public Property Let BufferSize(Value) m_BufferSize=Value End Property Private Sub EnsureArr() If IsArray(Application(VarNameDateArr)) Then DateArr=Application(VarNameDateArr) Else ReDim DateArr(BufferSize) End If If IsArray(Application(VarNameIPArr)) Then IPArr=Application(VarNameIPArr) Else ReDim IPArr(BufferSize) End If End Sub Public Function IsValidAccess() Dim ip，。