防恶意刷新
作者：memory 发布时间：2010-04-20, 19:10:56 分类：WEB程序开发 阅读：1972
〈%
Dim PrevSearchTime
PrevSearchTime = Trim(Session("Search_Time"))
If PrevSearchTime 〈〉 "" Then
PrevSearchTime = CDate(PrevSearchTime)
If DateDiff("s", PrevSearchTime, Now) 〈 10 Then
Response.Write "〈br〉〈br〉〈br〉〈p align='center'〉为了避免恶意搜索而消耗大量系统资源，请10秒后再刷新本页！〈/p〉"
Response.End
End If
End If
%〉
然后再第一次提交过后〈%
Session("Search
Dim PrevSearchTime
PrevSearchTime = Trim(Session("Search_Time"))
If PrevSearchTime 〈〉 "" Then
PrevSearchTime = CDate(PrevSearchTime)
If DateDiff("s", PrevSearchTime, Now) 〈 10 Then
Response.Write "〈br〉〈br〉〈br〉〈p align='center'〉为了避免恶意搜索而消耗大量系统资源，请10秒后再刷新本页！〈/p〉"
Response.End
End If
End If
%〉
然后再第一次提交过后〈%
Session("Search