編輯“ASP進(jìn)階教程Ⅷ：數(shù)據(jù)庫(kù)版本的留言簿”

如何建立自已的[[數(shù)據(jù)庫(kù)]]版本的留言簿，我們還是通過(guò)分步驟的方法來(lái)說(shuō)明吧。要編寫一個(gè)數(shù)據(jù)庫(kù)版本的留言簿，我們大致可以從以下三個(gè)步驟來(lái)完成。


步驟一：使用Access先建立用來(lái)存放留言的數(shù)據(jù)表。（當(dāng)然，如果你想使你的數(shù)據(jù)庫(kù)能很好地工作在高需求、高質(zhì)量的Web應(yīng)用程序的客戶-服務(wù)器數(shù)據(jù)庫(kù)，而且無(wú)論是在性能還是在可靠性上都能經(jīng)受得起嚴(yán)格的考驗(yàn)，那么你最好是用服務(wù)器等級(jí)的數(shù)據(jù)庫(kù)，如：SQL server、Oracle等。對(duì)于非服務(wù)器等級(jí)的數(shù)據(jù)庫(kù)，我推薦使用Access中文版來(lái)建立。凡是用Access來(lái)建立的數(shù)據(jù)表，都是以.mdb為后綴名，如：book0.mdb。)
<br>


Access的界面非常友好，操作也非常簡(jiǎn)便，相信聰明的讀者們，即使以往從未用過(guò)Access的，只要?jiǎng)邮衷囋?，也定能很快?duì)其駑駕自如，所以我在這里也就不再贅述（當(dāng)然也不排除有那么幾分懶惰的成份）。<br>


步驟二：設(shè)計(jì)一個(gè)留言表單的網(wǎng)頁(yè)也同樣是不可或缺的。（如：guestbook0.htm)。 <br>



步驟三：又到編寫處理留言的ASP程序了。（我們可以將下述代碼COPY下來(lái)，然后另存為manage0a.asp文件。）<br>



$#@60; !--#include file="adovbs.inc" --$#@62; <br>



調(diào)用adovbs.inc文件，所謂inc 文件顧名思義是include file的意思,adovbs.inc是IIS/PWS所提供的文件，存放著ADO相關(guān)常數(shù)的定義，使用inc文件可以使我們的程序，增加可讀性，更易于開發(fā)和維護(hù)。<br>



$#@60; % Function SqlStr( data ) <br>

SqlStr = "" & Replace( data ", "" ) & "" <br>

End Function <br>



這里用了SqlStr函數(shù)，其作用是將數(shù)據(jù)中的一個(gè)單引號(hào)改成兩個(gè)單引號(hào)，并且在前后加上單引號(hào)。之所以要用該函數(shù)是由于上網(wǎng)者輸入的數(shù)據(jù)必須以用單引號(hào)括起來(lái)的形式輸入的數(shù)據(jù)與Insert Into命令組合在一起，但是如果用戶輸入的數(shù)據(jù)含有單引號(hào)，則輸入的數(shù)據(jù)將會(huì)產(chǎn)生錯(cuò)誤，因此輸入的數(shù)據(jù)必須經(jīng)過(guò)SqlStr的切換（將單引號(hào)切換成兩個(gè)單引號(hào)）才是正確的。<br>



Name = Request("Name") <br>

Tel=Request("Tel") <br>

Email = Request("Email") <br>

Subject = Request("Subject") <br>

Memo = Request("Memo")<br>


從留言表單取得數(shù)據(jù) <br>



If Name = "" Or Tel="" Or Email = "" Or Subject = "" Or Memo = "" Then Response.Write "輸入框不能為空白!" <br>

Response.End <br>

End If<br>



檢查表單的各輸入框是否有信息輸入，若留有空輸入框沒(méi)填則顯示說(shuō)明信息："輸入框不能為空白!" 并停止執(zhí)行下面的程序。 <br>



Set conn = Server.CreateObject("ADODB.Connection") <br>


用Server.CreateObject取得對(duì)象ADODB.Connection。因?yàn)樵贏SP中，如果要訪問(wèn)數(shù)據(jù)必須首先創(chuàng)建與數(shù)據(jù)庫(kù)的鏈接，因此建立連接是存取Web數(shù)據(jù)庫(kù)不可缺少的步驟，執(zhí)行以上語(yǔ)句之后，conn便是一個(gè)Connection對(duì)象。<br>



DBPath = Server.MapPath("book0.mdb") <br>


通過(guò)調(diào)用服務(wù)器對(duì)象的MapPath方法來(lái)獲取book0.mdb的完整路徑。 <br>



conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath<br>


因?yàn)槲覀兿氪蜷_的是Access(.mdb)數(shù)據(jù)庫(kù)，所以我們要透過(guò)Access的ODBC驅(qū)動(dòng)程序{Microsoft Access Driver (*.mdb)}來(lái)存取數(shù)據(jù)庫(kù)，dbp參數(shù)則是用來(lái)指定想打開的數(shù)據(jù)庫(kù)文件，因?yàn)樗仨毷峭暾窂矫Q，所以我們上一語(yǔ)句用了Server.MapPath 函數(shù) 。<br>



Name = Left( Name, 40 ) <br>

Tel = Left(Tel,10) <br>

Email = Left( Email, 80 ) <br>

Subject = Left( Subject, 127 )<br>


截短輸入到各字段里數(shù)據(jù)的長(zhǎng)度，以避免因輸入到某一字段中的數(shù)據(jù)超長(zhǎng)而引發(fā)的錯(cuò)誤，當(dāng)然假如我們將數(shù)據(jù)庫(kù)book0.mdb中的各字段的數(shù)據(jù)類型都有設(shè)為“備注”，我們則再無(wú)需擔(dān)心上網(wǎng)者所輸入的數(shù)據(jù)有多長(zhǎng)。 <br>



sql = "Insert Into GuestBook (姓名, 電話, Email, 主題, 留言) Values( " <br>

sql = sql & SqlStr(Name) & ", " <br>

sql = sql & SqlStr(Tel) & ", " <br>

sql = sql & SqlStr(Email) & ", " <br>

sql = sql & SqlStr(Subject) & ", " <br>

sql = sql & SqlStr(Memo) & ")"<br>


在"guestbook"數(shù)據(jù)表中增加一個(gè)數(shù)據(jù)記錄，然后把其中的各字段 (姓名, 電話, Email, 主題, 留言)分別設(shè)置成從留言表單上取下的對(duì)應(yīng)的數(shù)據(jù)。<br>



conn.Execute sql<br>



執(zhí)行sql指令。 <br>



%$#@62;  <br>
[[category:ASP]]