求text.asp源码，我现在想编个软件，自动将我的IP 上传到TEXT.ASP上，让它自动保存到AA.txt

<%
dim ip
ip =request("ip")
if ip = "" then response.end
call createobject("scripting.filesystemobject").opentextfile(server.mappath("aa.txt",8,true).write(ip)
response,write "IP已保存到" & server.mappath("aa.txt")
%>
以上代码保存到TXT改为.ASP
'可以用 htt屁://xxxxxxxxxxxxxx.asp?ip=xxxxxxxxx 访问这个ASP文件
随手写的没试过不知道有没有错