📄 messageadd.asp

📁 ASP 网页数据库短训教程源码
💻 ASP
字号:
<HTML>
  <HEAD><TITLE>添加留言</TITLE></HEAD>
  <BODY>
<%
    ' 定义变量，对象
  Dim Name, Email, Subject, Content
  Dim Line1, Line2, Line3, Line4, Line5
  Dim objFSO, objFIn, objFOut
  Dim FilePath, OldFilePath
    ' 获取由Index.htm页面传送过来的变量
  Name = Request("Name")
  Email = Request("Email")
  Subject = Request("Subject")
  Content = Request("Content")
    ' 判断输入内容是否符合要求，如不符合，回到Index.htm页面
  If Name = "" Or Email = "" Or Subject = "" Or Content = "" Then
    Response.Write "<FONT color=red>输入框不能为空白!</FONT><P>"
    Response.Write "<A href=Index.htm>返回留言页面</A></BODY></HTML>"
      ' 程序结束
    Response.End
  End If
    ' 生成留言板的一条信息的各行内容
  Line1 = "留言人：" & Name & "<BR>"
  Line2 = "E-mail: <A href=mailto:" & Email & ">" & Email & "</A><BR>"
  Line3 = "主　题：" & Subject & "<BR>"
  Content = Replace(Content, vbCrLf, "<BR>")
  Line4 = "<TABLE width=100% bgcolor=LightBlue><TR><TD>" 
  Line4 = Line4 & Content & "</TD></TR></TABLE>"
  Line5 = "时　间：" & Now()
    ' 创建文件系统对象
  Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
    ' 获取Message.txt和MessageOld.txt文件物理路径
  FilePath = Server.MapPath("Message.txt")
  OldFilePath = Server.MapPath("MessageOld.txt")
    ' 将信息写入文件前，要将本进程锁定
  Application.Lock
  if objFSO.FileExists(FilePath) then
    objFSO.MoveFile FilePath, OldFilePath
  end if
    ' 创建两个文件对象
  Set objFIn = objFSO.OpenTextFile(OldFilePath, , True)
  Set objFOut = objFSO.CreateTextFile(FilePath)
    ' 如果MessageOld.txt文件非空，则将其内容先复制到Message.txt文件中，
  if not objFIn.AtEndOfStream then
    objFOut.WriteLine objFIn.ReadAll 
  end if
    ' 然后，再将本次留言内容追加到Message.txt的最后
  objFOut.WriteLine Line1
  objFOut.WriteLine Line2
  objFOut.WriteLine Line3
  objFOut.WriteLine Line4
  objFOut.WriteLine Line5
  objFOut.WriteLine "<HR>"
    ' 在其后删除MessageOld.txt文件之前，先关闭MessageOld.txt文件对象
  objFIn.Close
  objFSO.DeleteFile OldFilePath, True
    ' 解除对本进程的锁定
  Application.UnLock
    ' 将网页重定向到Index.htm
  Response.Redirect "Index.htm"
%>
  </BODY>
</HTML>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -