ASP进阶教程Ⅱ：一个简单的留言簿

 
 
从本章开始我们将由一个简单的，利用文件储存访问留言的留言簿程序进入我们的教程。编写这样一个留言簿，我们大致可以从以下三个步骤来完成。
步骤一：先设计一个留言表单的网页（如：guestbook1.asp，这不用我在这儿说教了吧？)。见下图： 
步骤二：在设计好留言表单后，我们开始进行编写处理留言的ASP程序。
　　我们要编写处理留言的ASP程序，最重要的问题是如何实现存取留言。而在ASP程序中，要存取文件，我们必须建立FileSystemObject对象（该对象主要用于读取Unicode或ASCII码的文件）。而要建立FileSystemObject对象，我们又可以使用以下的语句：
　　　　SET 对象实例 = CREATEOBJECT（"SCRIPTING.FILESYSTEMOBJECT")
FileSystemObject对象的方法包括：CreateTextFile 和OpenTextFile：
CreateTextFile ：建立一个文件名称，并返回一个TextStream对象提供你读写文件
OpenTextFile ：打开一个已存在的文件并建立一个TextStream对象以供你读写文件在建立并打开一个可供编辑的文件后，我们最后可以调用TextStream对象下的方法WriteLine(把信息写入到已打开的文件中并换行)和方法ReadLine(读取已打开文件的一行信息)来存取文件。
　　因此，要实现存取留言的ASP程序，我们可以大致构思如下：
　　先建立FileSystemObject对象；然后通过该对象来调用OpenTextFile打开文件或者调用CreateTextFile来创建新的文件，建立TextStream对象；最后我们再进行调用TextStream对象的WriteLine和ReadLine进行存取文件。解决了这个主要问题后，我们可以将处理留言的ASP程序写成如下所示： 　　 　
< %
Name = Request("Name") )
Email = Request("Email")
Subject = Request("Subject")
Memo = Request("Memo") 
从留言表单取得数据
If Name = "" Or Email = "" Or Subject = "" Or Memo = "" Then
Response.Write "输入框不能为空白!"
Response.End
End If 
检查表单的各输入框是否有信息输入，若留有空输入框没填则显示说明信息："输入框不能为空白!" 并停止执行下面的程序。? 
Line1 = "留言人：" & Name
Line1 = Line1 & String(5, "　")
Email = "< A HREF=mailto:" & Email & ">" & Email & "< /A>"
Line1 = Line1 & "Email？" & Email & "< BR>"