Question

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

asp记录来路网址到1.txt，并在提交用户名和密码时记录到文件1.txt代码怎么写？
提交之后返回另一个页面，谢谢

Answer 1

<%
'获取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

'参 数: 生成文件路径
'作 用: 生成一个指定文件
'Function SaveHtml(path)
Function SaveHtml(path)
Dim objStream
Set objStream = Server.CreateObject("ADODB"+"."+"Stream")
With objStream
.Type = 2
.Open
.Charset = "utf-8"
.Position = objStream.Size
.WriteText=Result
.SaveToFile Server.MapPath(path),2
.Close
End With
Set objStream = Nothing
End Function

在用户名及密码验证页
Dim Result:Result=GetIP
SaveHtml("1.txt")'最好把1.txt改成用户名+时间,如admin_091106.txt
%>