......
Url=LCase(Request.QueryString())
Ip=Request.ServerVariables("REMOTE_ADDR")
if instr(Url,"")<> 0 or instr(Url,";")<>0 or
instr(Url,"where")<>0 or instr(Url,"select")<>0 or
instr(Url,"chr")<>0 or instr(Url,"/")<>0 or
instr(Url,"count")<>0 or instr(Url,"update")<>0 or
instr(Url,"char")<>0 or instr(Url,"declare")<>0 or
instr(Url,"master")<>0 or instr(Url,"mid")<>0 or
instr(Url,"*")<>0 or instr(Url,"and")<>0 or
instr(Url,"exec")<>0 or instr(Url,"insert")<>0 or
instr(Url,"truncate")<>0 then
Flag=True
Set theRs=server.CreateObject("ADODB.recordset")
Sql="select * from hackrecord"
theRs.Open sql,theconn,2,3
theRs.AddNew
theRs("time")=cstr(now())
theRs("ip")=ip
theRs.Update
theRs.Close
set theRs=nothing
end if
......