需要收集点主机上的信息,以前曾经看过很多朋友写过类似的代码,可惜就是找不到,没办法自己写吧,主要是收集目标的系统以及浏览器等等,代码如下
<%
testfile=Server.MapPath("createfile.dat")
ip=request.ServerVariables("REMOTE_ADDR")
httpheader=Request.ServerVariables("Http_User_Agent")
mytime=now()
set fs=server.CreateObject("scripting.filesystemobject")
set thisfile=fs.OpenTextFile(testfile,8,True,0)
thisfile.WriteLine("ip:"&ip)
thisfile.WriteLine("time:"&mytime)
thisfile.WriteLine("header:"&httpheader)
thisfile.WriteLine("---------------------------------------")
thisfile.close
set fs =
nothing
%>
至于为什么不用javascript来实现?其实很简单,主要是考虑IE8还有其他的偏门浏览器遇见这些就拦截,提示用户实现执行这些脚本,那不是找死么?先用asp来替换吧。