针对BBSXP 2007.X版

1.打开conn.asp文件

找到

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
Response.Charset="gb2312"
Response.Buffer=True
IsSqlDataBase=0  '定义数据库类别，0为Access数据库，1为SQL数据库

在下面加上

'''''''''''''''''''''''''''''''''''''''''''''''
'注意以下二项可以在确认被CC攻击等严重情况下开启
Const isref=false'true为开启防刷新
Const isforwarded=false'true为禁止代理访问
If  isref=true then
If DateDiff("s",session("ref"),Now())<2 Then  '防刷新开始
Response.Write"防刷新和快速连续操作，请 <a href="&Request.ServerVariables("URL")&"?"&Request.ServerVariables("QUERY_STRING")&">点击进入</a>"
Response.End
End IF
session("ref")=Now()
end if
If isforwarded=true then
If Request.ServerVariables("HTTP_X_FORWARDED_FOR")<>"" then
Response.Write"对不起，本站禁止了代理上网用户的访问！"
Response.End
end if
end if
'''''''''''''''''''''''''''''''''''''''''''''''

2.完成

［此帖子已被 admin 在 2008-9-21 16:40:26 编辑过］

针对BBSXP 5.X - 7.X版

1.打开conn.asp文件

找到

<%@ LANGUAGE = VBScript CodePage = 936%>
<%
Response.Buffer=True
IsSqlDataBase=0  '定义数据库类别，0为Access数据库，1为SQL数据库

在下面加上

'''''''''''''''''''''''''''''''''''''''''''''''
'注意以下二项可以在确认被CC攻击等严重情况下开启
Const isref=false'true为开启防刷新
Const isforwarded=false'true为禁止代理访问
If  isref=true then
If DateDiff("s",session("ref"),Now())<2 Then  '防刷新开始
Response.Write"防刷新和快速连续操作，请 <a href="&Request.ServerVariables("URL")&"?"&Request.ServerVariables("QUERY_STRING")&">点击进入</a>"
Response.End
End IF
session("ref")=Now()
end if
If isforwarded=true then
If Request.ServerVariables("HTTP_X_FORWARDED_FOR")<>"" then
Response.Write"对不起，本站禁止了代理上网用户的访问！"
Response.End
end if
end if
'''''''''''''''''''''''''''''''''''''''''''''''

2.完成

［此帖子已被 admin 在 2008-9-21 16:34:24 编辑过］

针对BBSXP 1.X - 4.X 版

1.打开setup.asp文件

找到

datapath="data/"  '数据库目录的相对路径
datafile=""&datapath&"#bbsxp.mdb"  '数据库的文件名(默认：#bbsxp.mdb)
Server.ScriptTimeout=10  '连接超时最大时间

在上面加上

'''''''''''''''''''''''''''''''''''''''''''''''
'注意以下二项可以在确认被CC攻击等严重情况下开启
Const isref=false'true为开启防刷新
Const isforwarded=false'true为禁止代理访问
If  isref=true then
If DateDiff("s",session("ref"),Now())<2 Then  '防刷新开始
Response.Write"防刷新和快速连续操作，请 <a href="&Request.ServerVariables("URL")&"?"&Request.ServerVariables("QUERY_STRING")&">点击进入</a>"
Response.End
End IF
session("ref")=Now()
end if
If isforwarded=true then
If Request.ServerVariables("HTTP_X_FORWARDED_FOR")<>"" then
Response.Write"对不起，本站禁止了代理上网用户的访问！"
Response.End
end if
end if
'''''''''''''''''''''''''''''''''''''''''''''''

2.完成

沙发

我看我不顶你你是不舒服了

If DateDiff("s",session("ref"),Now())<2 Then

改为

If DateDiff("s",session("ref"),Now())<>0 and If DateDiff("s",session("ref"),Now())<2 Then

不然的话，首次进入首页的时候有可能会出现防刷新

老规矩得顶顶超级版主
但是你说的那种情况似乎不会发生（测试所得结果）
因为首次进入session("ref")是空白，所以判断失败

大家好好讨论好,我只能下载你们的成果了