ZBLOG 修改catalog.asp防恶意刷新方法

If ArtList.ExportByMixed(Request.QueryString("page"),Request.QueryString("cate"),Request.QueryString("auth"),Request.QueryString("date"),Request.QueryString("tags"),ZC_DISPLAY_MODE_ALL) Then
  ArtList.Build
  Response.Write ArtList.html
End If

Dim ClientIP

ClientIP=Request.ServerVariables("HTTP_X_FORWARDED_FOR")
If ClientIP="" Or Isnull(ClientIP) Then ClientIP=Request.ServerVariables("REMOTE_ADDR")

If Session("ClientIP")=ClientIP And DateDiff("s",Session("ClientTime"),Now())<10 Then
  response.write "请不要持续刷新本页面"
  response.end
End If

Session("ClientIP")=ClientIP
Session("ClientTime")=Now()