asp记录来路网址，并在提交用户名和密码时记录到文件1.txt代码怎么写？

<% '获取IP Function GetIP() Dim ip:ip="" ip=Request.ServerVariables("HTTP_X_FORWARDED_FOR") If ip="" Then ip=Request.ServerVariables("REMOTE_ADDR") End If GetIP=ip End Function '参 数: 生成文