在根目录下找到query.asp
用户记事本或editplus打开
找到
If Dvbbs.BoardID < 0 Then
Response.Write "参数错误"
Response.End
End If
在其后面插入
Dim query_time,query_times
query_time=10 '限制搜索的时间，单位秒
query_times=3 '上述时间内限制的搜索次数
If CInt(Application(Dvbbs.CacheName&"_isquery"))>=query_times And DateDiff("s",Application(Dvbbs.CacheName&"_isquery_time"),Now()) <query_time Then
response.write "<title>目前使用搜索功能的朋友较多，请不要刷新本页，3秒后程序将自动刷新</title>"
response.write "目前使用搜索功能的朋友较多，请不要刷新本页，3秒后程序将自动刷新"
Response.Write "<script>"&VbCrLf
Response.Write "setTimeout(""document.location=document.location.href"",3000);"&VbCrLf
Response.Write "</script>"&VbCrLf
response.End
End If
Application.Lock
If CInt(Application(Dvbbs.CacheName&"_isquery"))>=query_times And DateDiff("s",Application(Dvbbs.CacheName&"_isquery_time"),Now()) >=query_time Then Application(Dvbbs.CacheName&"_isquery")=0
Application(Dvbbs.CacheName&"_isquery")=Application(Dvbbs.CacheName&"_isquery")+1
If CInt(Application(Dvbbs.CacheName&"_isquery"))=1 Then Application(Dvbbs.CacheName&"_isquery_time")=Now()
Application.unLock
Post By：2008-9-3 16:51:40 [只看该作者]
牛头软件下载站,站长工具下载
支持(0) 中立(0) 反对(0) 
