此页面上的内容需要较新版本的 Adobe Flash Player。

获取 Adobe Flash Player

魔快网络 - 建高品质的网站!
电话:(0)15011022561 苏玮
QQ:476289485
MSN:[email protected]
魔快网络:建最优品质的网站 公司建网站,网页设计、制作 技术支持电话:15011022561

首页->asp防止刷新页面代码

asp防止刷新页面代码


在信息网站上有些恶意留言或者发布信息的很让人讨厌,我想到了用限制时间的方法来对付他们!

方法一:

<% '过程名:PreventRefresh
'作 用:防止刷新页面
'================================================
Sub PreventRefresh()
Dim RefreshTime,isRefresh
RefreshTime = 60 '防止刷新时间,单位(秒)
isRefresh = 1 '是否使用防刷新功能,0=否,1=是
If isRefresh = 1 Then
If (Not IsEmpty(Session("RefreshTime"))) And RefreshTime > 0 Then
If DateDiff("s", Session("RefreshTime"), Now()) < RefreshTime Then
Response.Write "<META http-equiv=Content-Type content=text/html; chaRset=gb2312><meta HTTP-EQUIV=REFRESH CONTENT="&RefreshTime&"><p align=center><br><br><br><br><font color=#ff0000><b>为了防止用户恶意重复发布相同内容的信息,本站启用了防刷新机制,请不要在"&RefreshTime&"秒内连续访问本页面!</b></font></p>"
Response.End
Else
Session("RefreshTime") = Now()
End If
Else
Session("RefreshTime") = Now()
End If
End If
End Sub
%>

方法二:

Sub chkreflash()
dim ScriptName
ScriptName=lcase(request.ServerVariables("PATH_INFO"))
dim posttime,DoReflashPage,ReflashPage,SplitReflashPage
posttime=1 '防止刷新时间
DoReflashPage=false
ReflashPage="|Article_one.asp"
SplitReflashPage=split(ReflashPage,"|")
for i=0 to ubound(SplitReflashPage)
if instr(scriptname,SplitReflashPage(i))>0 then
DoReflashPage=true
exit for
end if
next
if (not isnull(session("ReflashTime"))) and posttime>0 and DoReflashPage then
if DateDiff("s",session("ReflashTime"),Now())<posttime then
call msg("警告!系统已记录您的IP,和刷新次数。\n\n请不要在"&posttime&"秒内连续刷新本页面!","-1")
else
session("ReflashTime")=Now()
end if
elseif isnull(session("ReflashTime")) and posttime>0 and DoReflashPage then
Session("ReflashTime")=Now()
end if
End Sub

关闭窗口   

  魔快分站|信诚威|青风荷韵|泛亚西亚|北京隆腾展具制作|祥威胜|优仕配音|诚灵纺织|国顺广告材料|中国设计名站|北京朝阳做网站|北京建网站|北京做网站
©2002-2010  电话:010-69440493  QQ:476289485 手机:15011022561(苏先生)  Email:[email protected]
地址:北京市建国门外大街17号28号楼 华星擘达商务楼6层2602 做网站找魔快,建站快、优化好!MoKuai.Net