Dim s As String = Request("phoneNumber")
'phoneNumber改成表单的真正name
'声明流书写对象
Dim strwriterobj As StreamWriter
'创建文本文件,分配textfile对象
If Not IO.File.Exists(Server.MapPath(".") + "\log.txt") Then
strwriterobj = File.CreateText(Server.MapPath(".") + "\log.txt")
Else
strwriterobj = File.AppendText(Server.MapPath(".") + "\log.txt")
End If