簡(jiǎn)單ASP語(yǔ)言做留言板(一看就會(huì)附圖)

1、、安裝與調(diào)試常聽(tīng)朋友感嘆ASP程序難學(xué)不易懂，不過(guò)我起初學(xué)習(xí)這門(mén)技術(shù)的時(shí)候也有過(guò)這樣的 感悟。從今天開(kāi)始，我將以我學(xué) ASP的經(jīng)驗(yàn)來(lái)做一個(gè)簡(jiǎn)單的 ASP留言本，這個(gè)留言本用 了 Access數(shù)據(jù)庫(kù)，所以務(wù)必請(qǐng)大家要跟我一起做的朋友都安裝好Office軟件，相信各位自己的電腦上都有了。好了，開(kāi)始。創(chuàng)建ASP的運(yùn)行環(huán)境(安裝IIS)IIS(I nternet In formation Service)是構(gòu)建 ASP站點(diǎn)所必須的，所以，我們應(yīng)該先確認(rèn)自己的電腦已安裝了IIS信息服務(wù)，如果沒(méi)有安裝好的話，請(qǐng)按以下步驟：4文件夾瞌丄啓到1、打開(kāi)“控制面板”3占軟盤(pán)本地磁盤(pán)本地磁盤(pán)光盤(pán)佢；)材曙儲(chǔ)誠(chéng)瀟 s

2、：)(U)2、雙擊“添加/刪除程序”3、單擊“添加/刪除Windows組件”，打開(kāi)添加/刪除Windows組件對(duì)話框:3、單擊“添加/刪除Windows組件”，打開(kāi)添加/刪除Windows組件對(duì)話框:3、單擊“添加/刪除Windows組件”，打開(kāi)添加/刪除Windows組件對(duì)話框:gj Adobe Acrobat 5- 0大小單擊此處查看支持信息。已便用上次使用日期要更改或刪除您計(jì)算機(jī)上的該程序，請(qǐng)單擊“更改或刪更改C）除” C衛(wèi) ASPMaker 4. 0, 4jgj AspUpload0 AutoCAD 2004AutoCAD Express Tools Volumes討3 1-9囲 Au

3、todesk Express ViewerQ CorelDRAW 10.1 TT A 11更改或刪除 程序添加新程序添加/刪除indovs 組件I目前安裝的程序：排序方式（.3、從下拉的列表中選擇“ In ternet信息服務(wù)（IIS） ”單擊“下一步”：4、出現(xiàn)組件安裝進(jìn)度窗口，如彈出需要安裝盤(pán)的話，放入Win dows2000安裝盤(pán)，按提示操作即可。直至最后安裝完畢。二、設(shè)計(jì)數(shù)據(jù)庫(kù)ASP程序本身并不能儲(chǔ)存數(shù)據(jù)，眾所周知，留言本有以下信息需要保存：留言者姓名、聯(lián)系方式、留言內(nèi)容等等。因?yàn)锳SP并不能儲(chǔ)存數(shù)據(jù)，所以數(shù)據(jù)庫(kù)在這種環(huán)境之下就產(chǎn)生了。數(shù)據(jù)庫(kù)的種類也很多， 針對(duì)不同的程序也有適用于它的

4、數(shù)據(jù)庫(kù)，比如Access和Ms SQL就比較適用ASP和 ASP.net程序，至于其它的數(shù)據(jù)庫(kù)和程序，就不屬于本文 所討論的問(wèn)題了，有興趣的朋友可以查看其它一些資料。那么既然Access和MS SQL都適用ASP那么具體又如何來(lái)選擇呢？我們可以打一 個(gè)比方：比如釘一枚小釘子，聰明的人一定不會(huì)用一個(gè)大的棒槌，而是選擇小的鐵錘， 雖然用大的棒槌也一樣的可以把釘子釘進(jìn)去，可是沒(méi)有人愿意這樣做。數(shù)據(jù)庫(kù)也一樣：Access比較適用小型的應(yīng)用，而 MSSQL則適用于大中型的數(shù)據(jù)庫(kù) 應(yīng)用，所以要做一個(gè)留言本，理所當(dāng)然是選擇 Access更好一些，但是如果你決心使用 MS沒(méi)有人會(huì)極力阻止你。好了，廢話少說(shuō)，切

5、入正題，下面開(kāi)始創(chuàng)建數(shù)據(jù)庫(kù)。Access是微軟office 辦公軟件中的其中一個(gè)， 默認(rèn)的安裝 Office 是有這個(gè)Access 的，好了，打開(kāi)程序，開(kāi)始了 ，GO!附件©) ©Hd 檔萱索助行 文設(shè)搜幫運(yùn) n 勒 X p啟動(dòng)Microsoft FrontpageIS Microsoft AccessAcrobat Reader 5,1Outiook ExpressMacromediaoperator霸 Internet Explorer 喝 Symantec Client Security PL V55aa i団丁直 EJ AutoCAD 2DD4 - p：進(jìn)入實(shí)戰(zhàn)了。

6、打開(kāi)程序后，出現(xiàn)一個(gè)對(duì)話框，這里我們選擇第一個(gè)選項(xiàng)"空 Access數(shù)據(jù)庫(kù)"點(diǎn)擊確定，彈出一個(gè)新建數(shù)據(jù)庫(kù)的文件框，選擇你上次你建的站點(diǎn)目錄，起個(gè)data的文件名，點(diǎn)擊創(chuàng)建，0K!雙擊"使用設(shè)計(jì)器創(chuàng)建表"打開(kāi)表創(chuàng)建窗口"如圖創(chuàng)建表的結(jié)構(gòu)如下表:段名稱數(shù)據(jù)類型id|自動(dòng)編號(hào)user文去gg數(shù)字enailcontent備注dat a日期/時(shí)間字段名稱數(shù)據(jù)類型備注（筆者注釋）id自動(dòng)編號(hào)設(shè)置“自動(dòng)編號(hào)”user文本留言者姓名qq數(shù)字留言者的QQ因?yàn)镼Q號(hào)是由數(shù)字組成email文本留言者的電子郵件content備注留言內(nèi)容data日期/時(shí)間留言時(shí)間，設(shè)定

7、默認(rèn)值為Now()儲(chǔ)存留言的表就設(shè)計(jì)好了，可以直接在數(shù)據(jù)庫(kù)里添加兩條記錄，以后測(cè)試時(shí)候用！再來(lái)創(chuàng)建一個(gè)儲(chǔ)存管理員用戶的表，以同樣的方法，不過(guò)起名為admi n,設(shè)計(jì)如下表:打開(kāi)表，自己添加一個(gè)管理員用戶，以便測(cè)試用。整個(gè)數(shù)據(jù)庫(kù)建立好了，這一小節(jié)就到此。三、連接數(shù)據(jù)庫(kù)在上一節(jié)，我們已經(jīng)為我們的程序創(chuàng)建了一個(gè)數(shù)據(jù)庫(kù)，在這一節(jié)中，我們來(lái)用ASP把程序和數(shù)據(jù)庫(kù)連接起來(lái)，以后就可以連接到數(shù)據(jù)庫(kù)、在 ASP中顯示數(shù)據(jù)庫(kù)中的數(shù)據(jù)以 及更復(fù)雜的插入、修改和刪除。一起看以下代碼，這就是 ASP程序中常用的連接數(shù)據(jù)庫(kù)的代碼：set conn=server.createobject("adodb.conn

8、ection")connstr="Provider=Microsoft.jet.oledb.4.0;data source="&server.mappath("data.mdb")conn.open connstr解釋一下以上代碼：<%'這是ASP程序的起始set conn=server.createobject("adodb.connection")'在服務(wù)器上創(chuàng)建了一個(gè)連接數(shù)據(jù)庫(kù)的對(duì)象conn str="Provider=Microsoft.jet.oledb.4.0;dataso

9、urce="&server.mappath("data.mdb")'告訴ASP數(shù)據(jù)庫(kù)的接接方法以及路徑conn. open conn str'創(chuàng)建了對(duì)象后就用來(lái)打開(kāi)數(shù)據(jù)庫(kù)進(jìn)行連接%>' 一切0K了 !結(jié)束ASP程序<%set conn=seiver ereateobjectfadodb cnnnection")匚口nn£tr=,*Prov(der=cros口ft御 oledb 4 0;data £口urce=<&servermappath("data mdb*) co

10、nn open 匚onnstr%>將上面的代碼另存為 conn.asp文件，放在服務(wù)器目錄下面就可以了。怎么樣，簡(jiǎn)單吧？這一節(jié)是最重要的，一定要弄明白，否則以后操作數(shù)據(jù)庫(kù)將變得不現(xiàn)實(shí)，如果有不懂的問(wèn)題，歡迎和我討論，我的電子郵件地址是。這一節(jié)就到此，下節(jié)我們就將數(shù)據(jù)庫(kù)中的數(shù)據(jù)顯示在頁(yè)面中(這就實(shí)現(xiàn)了留言本的查看功能)三、制作留言本首頁(yè)前面我們已經(jīng)連接好了數(shù)據(jù)庫(kù)，就要讓它在這里發(fā)揮一下作用了，這一節(jié)將講述如何將數(shù)據(jù)庫(kù)里的數(shù)據(jù)用 ASP讀取出來(lái)，在頁(yè)面中顯示出來(lái)，這樣就等于是查看留言本了。利用DW制作如下頁(yè)面(這里我就不講如何去做這個(gè)頁(yè)面了，最后我將會(huì)給出HTML-Inlxl代碼下載)

11、74;延續(xù)留言本-首頁(yè)(quest/indextasp)S1*- 訂吏內(nèi)Z<bodv>itinmtiii i uii i n i i ti mimmimiii.itiBBauiitianmiiiiii i u _ 11 h a u j. 4蹈言于時(shí)間汕Q郵崔:留言內(nèi)容在此=丁埴寫(xiě)郵.肆ST：483 x 156T 3 K / 1 秒將制作好的文件存為index.asp，下面就創(chuàng)建數(shù)據(jù)記錄集，用來(lái)顯示數(shù)據(jù)庫(kù)的數(shù)據(jù)到這個(gè)頁(yè)面中：用記事本打開(kāi)index.asp，在頁(yè)頭加入以下代碼:v%LANGUAGE="VBScript" codepage="936"

12、;%><!-#include file="conn.asp"->set rs=server.createobject("adodb.recordset")sql="select user,qq,email,content,data from main order by id desc"rs.open sql,conn,1,1代碼拷貝框<%LANGUAGE="VBScript" codepage<!-#include file="conn.asp"->=<

13、%一set rs=server.createobject("ado sql="select user,qq,email,conte rs.open sql,conn,1,1il iCtrl+A全部選擇然后拷貝 解釋一下: 第一行，表明ASP使用的是VB腳本第二行，是用include包含文件，這里包含的是數(shù)據(jù)庫(kù)連接文件。第三行，ASP程序開(kāi)始第四行，利用Server內(nèi)置對(duì)象創(chuàng)建一個(gè)rs記錄集字段,為只讀數(shù)第五行，SQL語(yǔ)句，這里的意思是選擇數(shù)據(jù)庫(kù)中的user,qq,email,content,data指定該數(shù)據(jù)表的名稱是“ main”數(shù)據(jù)的排列順序是倒序。第六行，用剛才創(chuàng)建的

14、名為rs的記錄集打開(kāi)數(shù)據(jù)庫(kù)，設(shè)置屬性為只讀(1,1據(jù),1,3為插入數(shù)據(jù)，2,3是修改數(shù)據(jù)。這樣就打開(kāi)了數(shù)據(jù)庫(kù)，接下來(lái)就可以顯示了。將“留言人”代替為“ <%=rs("user")%>“時(shí)間”代替為“ <%=rs("data")%>“留言內(nèi)容在此”代替為“ <%=rs("content")%>QQ http:/search.te ncen n/frie nd/user_show_i nfo?l n=v%=rs("qq")%>“郵件"鏈接到：mailto：v%=rs(

15、"email")%>最后將"填寫(xiě)留言”鏈接add.asp "管理留言”鏈接admi n. asp好了，再次保存，瀏覽看看!好了，再次保存，瀏覽看看！測(cè)試 留言于 2005-T-26 15:34:47內(nèi)容;埴寫(xiě)留言晉理留言只有一條怎么了？只顯示一條記錄？原來(lái)我們?cè)跀?shù)據(jù)庫(kù)里添加了兩條記錄的哦！還有一條 呢？別急，因?yàn)槲覀儧](méi)有指定 ASP循環(huán)顯示，所以就只有一條啦。在剛才的代碼后面添加一行<%do while not rs.eof%>%>上面的代碼就是說(shuō)用rs記錄集指針一條一條往下一條移動(dòng)，直到末尾，loop是循環(huán)的意思。哈哈，再次瀏覽

16、這個(gè)文件割試留言于 2005-T-26 15:34:47翌內(nèi)容： 測(cè)試姓名留言于 2005-7-25 19:46:37QQ竝內(nèi)容:姓名test 留盲于 2aO5-T-25 16：5T：52翌內(nèi)容： 噲J再加條r看看是否可以全部顯示測(cè)試 留言于2005-7-£5 13:20:30QQ郵件呵呵先在數(shù)據(jù)庫(kù)中潺加一條新記錄哦.呵呵.先在數(shù)據(jù)庫(kù)中添加一案內(nèi)容：新記錄哦。呵卩可I先在數(shù)據(jù)庫(kù)中岳加一條新記錄哦，呵呵，先在數(shù)據(jù)庫(kù)中游加一案新記錄哦呵呵，先在數(shù)據(jù)庫(kù)中添加一條新記錄哦就2話顯埴寫(xiě)留言管豐留言看明白了嗎，這樣就可以讓數(shù)據(jù)庫(kù)中的數(shù)據(jù)全部顯示在頁(yè)面中了，好了，這節(jié)就到這，下節(jié)講一個(gè)也很重要的部

17、份（添加留言功能。）三、制作添加留言頁(yè)面，實(shí)現(xiàn)留言功能我們是做的一個(gè)留言本，實(shí)現(xiàn)留言的功能就十分重要了，要不然就算不上留言本了,接下來(lái)就一起來(lái)實(shí)現(xiàn)這個(gè)功能。用DW制作以下這樣的頁(yè)面：設(shè)置表單的屬性如下: 姓名：設(shè)置為單行文本域，名稱為“ user ”QQ號(hào)：設(shè)置為單行文本域，名稱為“ qq”郵件：設(shè)置為單行文本域，名稱為“ email”內(nèi)容：設(shè)置為多行文本域，名稱為“ content ”最后將表單的“ Action "動(dòng)作指向 addsave.asp就可以了保存文檔名為add.asp，OK下一步！表單是做好了，但是還需要后臺(tái)程序的支持, 理程序，添加留言代碼：起來(lái)使用ASP編寫(xiě)一個(gè)添

18、加留言處'表明ASP使用的是VB腳本<!-#include file="conn.asp"->'是用 include包含文件，這里包含的是數(shù)據(jù)庫(kù)連接文件<%LANGUAGE="VBScript" codepage="936"%><%set rs=server.createobject("adodb.recordset")'利用Server內(nèi)置對(duì)象創(chuàng)建一個(gè)記錄集sql="select user,qq,email,content,data from mai

19、n"'SQL語(yǔ)句，上節(jié)有詳解rs.open sql,conn,1,3'用剛才創(chuàng)建的名為rs的記錄集打開(kāi)數(shù)據(jù)庫(kù)，設(shè)置屬性為插入數(shù)據(jù)rs.addnew'用記錄集新添加一條數(shù)據(jù)user=request.form("user")'請(qǐng)求表單的變量，定義變量為user，這里request.form 是請(qǐng)求表單的意思qq=request.form("qq")'請(qǐng)求表單的變量，定義變量為qq，這里request.form是請(qǐng)求表單的意思email=request.form("email")'請(qǐng)

20、求表單的變量，定義變量為email ，這里request.form是請(qǐng)求表單的意思content=request.form("content")'請(qǐng)求表單的變量，定義變量為content ，這里request.form 是請(qǐng)求表單的意思rs("user")=user'將請(qǐng)求到的表單值傳向記錄集中代表user字段的名稱rs("qq")=qq'將請(qǐng)求到的表單值傳向記錄集中代表qq字段的名稱rs("email")=emailrs("content")=content'將

21、請(qǐng)求到的表單值傳向記錄集中代表email字段的名稱'將請(qǐng)求到的表單值傳向記錄集中代表content字段的名稱rs.updateset rs=nothingconn.closeset rs=nothing'更新一下數(shù)據(jù)庫(kù)中的數(shù)據(jù)。'關(guān)閉記錄集'銷毀記錄集'關(guān)閉數(shù)據(jù)庫(kù)連接'銷毀數(shù)據(jù)庫(kù)連接%>代碼拷貝框<%LANGUAGE="VBScript" codepage<!-#include file="conn.asp"-><%set rs=server.createobject(&quo

22、t;ado sql="select user,qq,email,conte rs.open sql,conn,1,3Ctrl+A全部選擇然后拷貝 將以上文件存為addsave.asp ,測(cè)試下！咦？怎么填好提交以后就出現(xiàn)空白了， 為什么？ 這是因?yàn)樵赼ddsave.asp中沒(méi)有設(shè)置數(shù)據(jù)成功提交好后的轉(zhuǎn)向頁(yè)面， 這里不用做那么復(fù) 雜的，只要做一個(gè)刷新頁(yè)面就行了，在程序的后面加上：<meta http-equiv="refresh" content="2;URL=index.asp">2秒鐘后將自動(dòng)返回留然后在頁(yè)面中添加提示信息，比如：

23、“您的留言已經(jīng)成功提交, 言本首頁(yè)” 好了，這個(gè)留言的功能總算實(shí)現(xiàn)了，最后再測(cè)試下，看看效果!孑 朗言咸功-Mkrcoft Intanet Explo計(jì)OK這個(gè)留言功能的實(shí)現(xiàn)教程就到這里了。六、制作管理登陸頁(yè)面ASP留言本的管理功能對(duì)于留言本來(lái)說(shuō)就不言而喻了，像論壇的登陸功能就是一個(gè)很 好的例子，不過(guò)我們做留言本基本上有刪除功能就行了，寫(xiě)這個(gè)教程是為了更多的 入門(mén)者更好的了解 ASP所以旨在學(xué)習(xí)用，當(dāng)然也可以在這基礎(chǔ)上添加更多的功能，比 如回復(fù)留言者。好了，開(kāi)始了，還是按照以前的，用Dreamweaver做一個(gè)登陸頁(yè)面，如下圖:苗延續(xù)齧言本-管理登錄(guest/BdminQsp)延續(xù)宙旨本-

24、管理瓦面qii"!I9:a ；:<土W巧1小i:yum管理i-j、 « !； :密碼g.i,a q:;'Nii:管理|重填|II冃:<T<bodv>493 I 21ST 2 K / 1 秒把用戶名的表單名稱設(shè)置為admin,密碼的表單名稱設(shè)為 password，把動(dòng)作指向checkpass.asp ,，存 admin.asp 這樣登陸頁(yè)面就好了，屬性表單名稱Mcheckpass. aspZJ設(shè)置動(dòng)作為checkpass.aspF面就做檢測(cè)密碼的ASP程序了，看以下代碼解釋:<!-#include file="conn.asp&

25、quot;-> '把 conn.asp包含進(jìn)來(lái)連接數(shù)據(jù)庫(kù)<% 'ASP 起始admin=request.form("admin")'定義admin 的值是表單傳過(guò)來(lái)的用戶名域名稱adminpassword=request.form("password")'定義admin 的值是表單傳過(guò)來(lái)的用戶名域名稱adminf admin="" or password="" then '這句的意思是假如用戶名和密碼沒(méi)有輸入的話那么執(zhí)行下一句response.Write(&quo

26、t;<scriptlanguage=javascript>alert('請(qǐng) 填 寫(xiě) 完整!');history.go(-1)v/script>")'用 javascript腳本提示用戶end if '結(jié)束if語(yǔ)句sql="select * from admin where admin="'&adm in&"' and password="'&password&""''這句很重要，我們放到后面講set rs

27、=conn.execute(sql)' 設(shè)定記錄集 rs，用 conn 執(zhí)行 SQL 語(yǔ)句f rs.eof or rs.bof then '當(dāng)沒(méi)有符合篩選結(jié)果時(shí)，則執(zhí)行下面的句子response.write "<script language=javascript>"response.write "alert('用戶或密碼不對(duì) r);"response.write "javascript:history.go(-1);"response.write "</script>&quo

28、t;'用 javascript 腳本提示用戶else '如果符合條件的時(shí)候session("admin")=admin '新建session，值等于表單傳來(lái)的用戶名response.redirect "mymanage.asp"'轉(zhuǎn)向至U mymanage.asp，進(jìn)入管理頁(yè)end if '結(jié)束if語(yǔ)句%> 'ASP 結(jié)束代碼拷貝框<!-#include file="conn.asp"-><% 'ASP起始if admin="" or

29、password*' thenadmin=request.form("admin")' 定 password=request.form("passwordresponse.Write("<script languagillCtrl+A全部選擇然后拷貝 將以上代碼保存為 checkpass.asp這樣，用戶在admin.asp頁(yè)面中輸入用戶名和密碼后，就把用戶名和密碼值傳給checkpass.asp 處理，當(dāng)用戶名和密碼的值和數(shù)據(jù)庫(kù)中的字段相匹配時(shí)，就進(jìn)入mymanage.asp這個(gè)管理頁(yè)面，同時(shí)建一個(gè)session，這個(gè)sessio

30、n的會(huì)話變量將在后面 起作用，下一節(jié)就明白了。七、制作管理頁(yè)面上節(jié)中講的是制作登陸頁(yè)面和檢測(cè)用戶，當(dāng)用戶名和密碼正確時(shí)就轉(zhuǎn)到管理頁(yè)面，好了，開(kāi)始實(shí)現(xiàn)它。其實(shí)這個(gè)留言本的管理頁(yè)面和用戶直接看到的首頁(yè)沒(méi)有多大的區(qū)別，只是用了Session會(huì)話變量用作保護(hù)和增加了一個(gè)刪除鏈接，當(dāng)點(diǎn)擊這個(gè)鏈接的時(shí)候，就會(huì)自動(dòng)刪除這條 留言，好了，其本的目的知道了，那就GO剛才講了，這個(gè)頁(yè)面和首頁(yè)的in dex.asp相似，那么就先復(fù)制就行了，然后再改一下首先找到下面這句：sql="select user,qq,email,content,data from main order by id desc&quo

31、t;把它改為sql="select id,user,qq,email,content,data from main order by id desc"這樣，就選取到了 id這個(gè)自動(dòng)編號(hào)的值，以便刪除留言時(shí)鎖定這個(gè)id。然后在“郵件”這個(gè)鏈接后面增加一個(gè)鏈接“刪除”，鏈接：del.asp?id=v%=rs("id") ，修改代碼后為 <a href="del.asp?id=v%=rs("id")%>" onclick="return confirm('是否確定刪除本留言？');&

32、quot;> 刪除</a>這樣，待會(huì)我們做del這個(gè)頁(yè)的時(shí)候，就會(huì)知道為什么了！改過(guò)后存為 mymanage.asp現(xiàn)在打開(kāi)瀏覽器看看！看看效果 留言于200S-T-27 20:22:11 郵件 刪除內(nèi)容：測(cè)試下這亍效果！浪子留言于2005-T-2T 20:12:10QQ由阱刪除內(nèi)容；在頁(yè)面中提交插入數(shù)據(jù)延續(xù)留言于2005-T-27 1S：45：34QQ郵件 刪除內(nèi)容：測(cè)試下先,，呵呵怎么不用輸入用戶名和密碼都可進(jìn)入呀？別急，上節(jié)中，我們不是建了一個(gè)session的會(huì)話變量，這時(shí)就派上用場(chǎng)了，直接用記事本打開(kāi)。在<%LANGUAGE="VBScript'codepage="936"%>這句的后面加上 <%if session("admin")v>""then%>這句，在末尾寫(xiě)上：<%elseresp