<!--#include file = "../inc/dbconn.asp"-->
<!--#include file = "../inc/cache.asp"-->
<!--#include file = "../inc/function.asp"-->
<% call dbconn %>

<%  Call PreventRefresh(20)
  on error resume next

dim RS,sql,id:id= gqv("id")
dim referer:referer = Request.ServerVariables("HTTP_REFERER")
if not id=request.cookies("breakID") then  
   response.cookies("breakID")=id
   if Trim(id) <> "" and IsNumeric(id) then
      Set RS = Server.CreateObject(G_654_RS)
      sql = "select id,error From DH654_URL where id=" & id
      RS.Open sql, Conn, 3, 3
      if not RS.EOF then
         RS("error").value = RS("error").value + 1
         RS.Update()
      end if
      RS.Close()
      Set RS = nothing
   end if
   Response.Redirect(referer)
else  
'     Response.write("错误：您已经报告过了！5秒后返回.....")

  call alertbox("错误：您已经报告过了！",2)
end if%>
