需要收集点主机上的信息，以前曾经看过很多朋友写过类似的代码，可惜就是找不到，没办法自己写吧，主要是收集目标的系统以及浏览器等等，代码如下
<%
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来替换吧。
