ASP進階教程Ⅱ：一個簡單的留言簿

2019-11-18 22:38:51

字體：大中小

供稿：網(wǎng)友

從本章開始我們將由一個簡單的，利用文件儲存訪問留言的留言簿程序進入我們的教程。編寫這樣一個留言簿，我們大致可以從以下三個步驟來完成。

步驟一：先設(shè)計一個留言表單的網(wǎng)頁（如：guestbook1.asp，這不用我在這兒說教了吧？)。見下圖：

步驟二：在設(shè)計好留言表單后，我們開始進行編寫處理留言的ASP程序。

　　我們要編寫處理留言的ASP程序，最重要的問題是如何實現(xiàn)存取留言。而在ASP程序中，要存取文件，我們必須建立FileSystemObject對象（該對象主要用于讀取Unicode或ASCII碼的文件）。而要建立FileSystemObject對象，我們又可以使用以下的語句：
　　　　SET 對象實例 = CREATEOBJECT（"SCRipTING.FILESYSTEMOBJECT")
FileSystemObject對象的方法包括：CreateTextFile 和OpenTextFile：
CreateTextFile ：建立一個文件名稱，并返回一個TextStream對象提供你讀寫文件
OpenTextFile ：打開一個已存在的文件并建立一個TextStream對象以供你讀寫文件在建立并打開一個可供編輯的文件后，我們最后可以調(diào)用TextStream對象下的方法WriteLine(把信息寫入到已打開的文件中并換行)和方法ReadLine(讀取已打開文件的一行信息)來存取文件。
　　因此，要實現(xiàn)存取留言的ASP程序，我們可以大致構(gòu)思如下：
　　先建立FileSystemObject對象；然后通過該對象來調(diào)用OpenTextFile打開文件或者調(diào)用CreateTextFile來創(chuàng)建新的文件，建立TextStream對象；最后我們再進行調(diào)用TextStream對象的WriteLine和ReadLine進行存取文件。解決了這個主要問題后，我們可以將處理留言的ASP程序?qū)懗扇缦滤荆?　　　　
< %
Name = Request("Name") )
Email = Request("Email")
Subject = Request("Subject")
Memo = Request("Memo")
'從留言表單取得數(shù)據(jù)
If Name = "" Or Email = "" Or Subject = "" Or Memo = "" Then
Response.Write "輸入框不能為空白!"
Response.End
End If
'檢查表單的各輸入框是否有信息輸入，若留有空輸入框沒填則顯示說明信息："輸入框不能為空白!" 并停止執(zhí)行下面的程序。?
Line1 = "留言人：" & Name
Line1 = Line1 & String(5, "　")
Email = "< A HREF=mailto:" & Email & ">" & Email & "< /A>"
Line1 = Line1 & "Email？" & Email & "< BR>"
Line2 = "主題：" & Subject & "< BR>"
Memo = Replace( Memo, vbCrLf, "< BR>" )
Line3 = "< TABLE BORDER=1>< TR>< TD>"
Line3 = Line3 & "您的留言：" & Memo & "< /TD>< /TR>< /TABLE>"
Line4 = "時間：" & Now()
'定義留言的顯示格式，其中留言信息用信息框框起來。
On Error Resume Next
'避免如果執(zhí)行下面的ReadAll（讀取已打開文件的全部信息）時，無法讀取信息就造成的程序錯誤的情況發(fā)生，因此加入此句用于忽略所有的錯誤。
Set fso = Server.CreateObject("Scripting.FileSystemObject") application.Lock
TxtPath = Server.MapPath("book1.txt")
NewPath = Server.MapPath("newbook.txt")
fso.MoveFile TxtPath, NewPath
Set fin = fso.OpenTextFile(NewPath, , True)
Set fout = fso.CreateTextFile(TxtPath)
'建立 FileSystemObject對象，并鎖定Application對象，不讓任何兩位上網(wǎng)者同時執(zhí)行留言操作，同時建立和打開一個TextStream對象，指向要對其實行操作，用于留言記錄的文本book1.txt。
fout.WriteLine Line1
fout.WriteLine Line2
fout.WriteLine Line3
fout.WriteLine Line4
fout.WriteLine "< hr>"
fout.WriteLine fin.ReadAll
'把留言表單中的信息分行寫入到已打開的文件中。
fin.Close
fso.DeleteFile NewPath, True
Application.UnLock
Response.Redirect "guestbook1.asp"
'關(guān)閉并刪除gbookold.txt，然后解除Application對象的鎖定，再指引客戶端瀏覽器到新的Web頁面guestbook1.asp。
%>
　　將上述代碼COPY到你的記事本，注意：要記得將所有“<”符號后面多加的空格去掉，然后存成文件manage1.asp。

步驟三：設(shè)計留言頁面

　　因為我們要本留言簿的留言顯示在留言表單下面，所以我們可以將以下HTML代碼COPY到guestbook1.asp的最后面。
< html>
< head>
< meta http-equiv="Content-Type" content="text/html; charset=gb2312">
< title>您的留言< /title>
< link rel="stylesheet" href="../images/Text.CSS">
< /head>
< body TEXT="#000000" BGCOLOR="#FFFFFF" BACKGROUND="b01.jpg">
< h2 ALIGN="CENTER">您的留言< /h2>
< hr noshade color="red">
< !--#include file="book1.txt" -->
< /body>
< /html>
< % Response.End %>

　　完成上述的所有步驟后，將guestbook1.asp和manage1.asp保存在WEB服務(wù)器的可執(zhí)行虛擬目錄（如：asp/)下，并在瀏覽器中用HTTP的方式進行瀏覽，如：http://yourcomputername/asp/guestbook1.asp。瞧！就這么簡單，你已經(jīng)有了自己的留言簿了。還不趕快試試！

上一篇：ASP進階教程Ⅲ：給留言簿潤下色

下一篇：ASP進階教程Ⅰ：循序漸進學(xué)留言薄