asp代码当访问者访问网站时自动记录对方ip地址到1.txt文本里

<% Server.CreateObject("scripting.filesystemobject").OpenTextFile(Server.Mappath("1.txt"),8,True).WriteLine Request.ServerVariables("REMOTE_ADDR") %>