QQ小敏

<%@ Import Namespace="System.IO" %>
<%

  Dim s As String = Request("phoneNumber")
&#39;phoneNumber改成表单的真正name
　　&#39;声明流书写对象
　　Dim strwriterobj As StreamWriter
　　
  &#39;创建文本文件，分配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
　　
  &#39;写入内容
  strwriterobj.WriteLine(s)

  &#39;完成操作，关闭流对象
  strwriterobj.Close()

%>I love amethyst！

帖子177 精华0 积分3622 阅读权限100 性别男 来自浙江 在线时间215 小时 注册时间2007-1-18 最后登录2008-7-21 查看个人网站
查看详细资料TOP 软件项目外包

dingking
荣誉会员