error.asp

来自「西亚电子购物系统」· ASP 代码 · 共 21 行

<%'记录非法操作代码日志
Ip=Request.ServerVariables("REMOTE_ADDR")
toppath = Server.Mappath("sia-log.asp")
Set fs = CreateObject("scripting.filesystemobject")
If Not Fs.FILEEXISTS(toppath) Then 
Set Ts = fs.createtextfile(toppath, True)
Ts.close
end if
Set Ts= Fs.OpenTextFile(toppath,1)
Do While Not Ts.AtEndOfStream
Errorlog = Errorlog  & Ts.ReadLine  & chr(13) & chr(10)
loop 
Ts.close
Errorlog =Errorlog & "<br>非法操作IP："&request.serverVariables("remote_host") & "  非法操作代码：" & request("allquery") & "  非法操作时间：" & now()
Set Ts= Fs.OpenTextFile(toppath,2)
Ts.writeline (Errorlog)
Ts.Close
%>
<%Response.Write "系统自动拦截非法操作代码"&request("allquery")&"  您的真实IP为"&request.serverVariables("remote_host")&"<script>alert('"&now()&"  系统自动拦截您的非法操作代码 ,纪录您的非法操作行为');location.href='http://www.siacart.com';</script>"
Response.end%>