第四篇：簡(jiǎn)單易學(xué)的ASP留言板制作教程

ASP留言本教程(1)時(shí)間：2010-04-09 22:53 點(diǎn)擊：17次 作者： 來(lái)源：網(wǎng)頁(yè)教學(xué)網(wǎng)

二、設(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ì)不同的程序也有適用于它的數(shù)據(jù)庫(kù)，比如Access和Ms SQL就比較適用ASP和ASP.net程序，至于其它的數(shù)據(jù)庫(kù)和程序，就不屬于本文所討論的問題了，有興趣的朋友可以查看其它一些資料。

那么既然Access和MS SQL都適用ASP，那么具體又如何來(lái)選擇呢？我們可以打一個(gè)比方：比如釘一枚小釘子，聰明的人一定不會(huì)用一個(gè)大的棒槌，而是選擇小的鐵錘，雖然用大的棒槌也一樣的可以把釘子釘進(jìn)去，可是沒有人愿意這樣做。

數(shù)據(jù)庫(kù)也一樣：Access比較適用小型的應(yīng)用，而MS SQL則適用于大中型的數(shù)據(jù)庫(kù)應(yīng)用，所以要做一個(gè)留言本，理所當(dāng)然是選擇Access更好一些，但是如果你決心使用MS，沒有人會(huì)極力阻止你。好了，廢話少說(shuō)，切入正題，下面開始創(chuàng)建數(shù)據(jù)庫(kù)。

Access是微軟office辦公軟件中的其中一個(gè)，默認(rèn)的安裝Office是有這個(gè)Access的，好了，打開程序，開始了,GO!

進(jìn)入實(shí)戰(zhàn)了。打開程序后，出現(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)建，OK!雙擊＂使用設(shè)計(jì)器創(chuàng)建表＂打開表創(chuàng)建窗口＂如圖

創(chuàng)建表的結(jié)構(gòu)如下表：

字段名稱

數(shù)據(jù)類型

備注(筆者注釋)

id 自動(dòng)編號(hào) 設(shè)置“自動(dòng)編號(hào)” name 文本 留言者姓名

qq 數(shù)字 留言者的QQ，因?yàn)镼Q號(hào)是由數(shù)字組成 email 文本 留言者的電子郵件 content 備注 留言內(nèi)容

data 日期/時(shí)間 留言時(shí)間，設(shè)定默認(rèn)值為Now()

數(shù)據(jù)庫(kù)設(shè)計(jì)好了以后，可以直接在數(shù)據(jù)庫(kù)里添加兩條記錄，以后測(cè)試時(shí)候用！這一節(jié)就到此了

ASP留言本教程(2)時(shí)間：2010-04-09 22:53 點(diǎn)擊：17次 作者： 來(lái)源：網(wǎng)頁(yè)教學(xué)網(wǎng)

三、連接數(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.connection”)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ì)象

connstr=“Provider=Microsoft.jet.oledb.4.0;data source=”&server.mappath(“data.mdb”)

'告訴ASP數(shù)據(jù)庫(kù)的接接方法以及路徑

conn.open connstr

'創(chuàng)建了對(duì)象后就用來(lái)打開數(shù)據(jù)庫(kù)進(jìn)行連接 %>

'一切OK了!結(jié)束ASP程序

將上面的代碼另存為conn.asp文件，放在服務(wù)器目錄下面就可以了。怎么樣，簡(jiǎn)單吧？

這一節(jié)是最重要的，一定要弄明白，否則以后操作數(shù)據(jù)庫(kù)將變得不現(xiàn)實(shí)，如果有不懂的問題，歡迎和我討論，我的電子郵件地址是。這一節(jié)就到此，下節(jié)我們就將數(shù)據(jù)庫(kù)中的數(shù)據(jù)顯示在頁(yè)面中（這就實(shí)現(xiàn)了留言本的查看功能）

ASP留言本教程(3)時(shí)間：2010-04-09 22:53 點(diǎn)擊：17次 作者： 來(lái)源：網(wǎng)頁(yè)教學(xué)網(wǎng)

三、制作留言本首頁(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代碼下載）

將制作好的文件存為index.asp，下面就創(chuàng)建數(shù)據(jù)記錄集，用來(lái)顯示數(shù)據(jù)庫(kù)的數(shù)據(jù)到這個(gè)頁(yè)面中：

用記事本打開index.asp，在頁(yè)頭加入以下代碼：

<%@LANGUAGE=“VBScript” codepage=“936”%> <% 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 %>

解釋一下：

第一行，表明ASP使用的是VB腳本

第二行，是用include包含文件，這里包含的是數(shù)據(jù)庫(kù)連接文件。第三行，ASP程序開始

第四行，利用Server內(nèi)置對(duì)象創(chuàng)建一個(gè)記錄集

第五行, SQL語(yǔ)句，這里的意思是選擇數(shù)據(jù)庫(kù)中的user,qq,email,content,data字段，指定該數(shù)據(jù)表的名稱是“main”數(shù)據(jù)的排列順序是倒序。

第六行，用剛才創(chuàng)建的名為rs的記錄集打開數(shù)據(jù)庫(kù)，設(shè)置屬性為只讀（1,1為只讀數(shù)據(jù),1,3為插入數(shù)據(jù)，2,3是修改數(shù)據(jù)。

這樣就打開了數(shù)據(jù)庫(kù)，接下來(lái)就可以顯示了。

將“留言人”代替為“<%=rs(“user”)%> “時(shí)間”代替為“<%=rs(“data”)%>

“留言內(nèi)容在此”代替為“<%=rs(“content”)%> “QQ”鏈接到：

“郵件”鏈接到：mailto:<%=rs(“email”)%> 最后將“填寫留言”鏈接 add.asp “管理留言”鏈接 admin.asp

好了，再次保存，瀏覽看看！

怎么了？只顯示一條記錄？原來(lái)我們?cè)跀?shù)據(jù)庫(kù)里添加了兩條記錄的哦！還有一條呢？別急，因?yàn)槲覀儧]有指定ASP循環(huán)顯示，所以就只有一條啦。。

在剛才的代碼后面添加一行

<%do while not rs.eof%>

并在頁(yè)面的第一個(gè)表格的末尾加上

<% rs.movenext loop %> 上面的代碼就是說(shuō)用rs記錄集指針一條一條往下一條移動(dòng)，直到末尾，loop是循環(huán)的意思。哈哈，再次瀏覽這個(gè)文件

看明白了嗎，這樣就可以讓數(shù)據(jù)庫(kù)中的數(shù)據(jù)全部顯示在頁(yè)面中了，好了，這節(jié)就到這，下節(jié)講一個(gè)也很重要的部份（添加留言功能。)

ASP留言本教程(4)時(shí)間：2010-04-09 22:53 點(diǎn)擊：17次 作者： 來(lái)源：網(wǎng)頁(yè)教學(xué)網(wǎng)

三、制作添加留言頁(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編寫一個(gè)添加留言處理程序，添加留言代碼：

<%@LANGUAGE=“VBScript” codepage=“936”%>

'表明ASP使用的是VB腳本

'是用include包含文件，這里包含的是數(shù)據(jù)庫(kù)連接文件 <% set rs=server.createobject(“adodb.recordset”)

'利用Server內(nèi)置對(duì)象創(chuàng)建一個(gè)記錄集

sql=“select user,qq,email,content,data from main”

'SQL語(yǔ)句，上節(jié)有詳解 rs.open sql,conn,1,3'用剛才創(chuàng)建的名為rs的記錄集打開數(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)求表單的變量，定義變量為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”)=email

'將請(qǐng)求到的表單值傳向記錄集中代表email字段的名稱 rs(“content”)=content

'將請(qǐng)求到的表單值傳向記錄集中代表content字段的名稱

rs.update

'更新一下數(shù)據(jù)庫(kù)中的數(shù)據(jù)。rs.close

'關(guān)閉記錄集 set rs=nothing

'銷毀記錄集 conn.close

'關(guān)閉數(shù)據(jù)庫(kù)連接 set rs=nothing

'銷毀數(shù)據(jù)庫(kù)連接 %>

將以上文件存為addsave.asp，測(cè)試下！咦？怎么填好提交以后就出現(xiàn)空白了，為什么？這是因?yàn)樵赼ddsave.asp中沒有設(shè)置數(shù)據(jù)成功提交好后的轉(zhuǎn)向頁(yè)面，這里不用做那么復(fù)雜的，只要做一個(gè)刷新頁(yè)面就行了，在程序的后面加上：

然后在頁(yè)面中添加提示信息，比如：“您的留言已經(jīng)成功提交，2秒鐘后將自動(dòng)返回留言本首頁(yè)”

好了，這個(gè)留言的功能總算實(shí)現(xiàn)了，最后再測(cè)試下，看看效果！

OK！這個(gè)留言功能的實(shí)現(xiàn)教程就到這里了。

ASP留言本教程(5)時(shí)間：2010-04-09 22:53 點(diǎn)擊：17次 作者： 來(lái)源：網(wǎng)頁(yè)教學(xué)網(wǎng)

六、制作管理登陸頁(yè)面

留言本的管理功能對(duì)于留言本來(lái)說(shuō)就不言而喻了，像論壇的登陸功能就是一個(gè)很好的例子，不過我們做留言本基本上有刪除功能就行了，寫這個(gè)教程是為了更多的ASP入門者更好的了解ASP，所以旨在學(xué)習(xí)用，當(dāng)然也可以在這基礎(chǔ)上添加更多的功能，比如回復(fù)留言者。

好了，開始了，還是按照以前的，用Dreamweaver做一個(gè)登陸頁(yè)面，如下圖：

把用戶名的表單名稱設(shè)置為admin，密碼的表單名稱設(shè)為password，把動(dòng)作指向checkpass.asp，存admin.asp這樣登陸頁(yè)面就好了，下面就做檢測(cè)密碼的ASP程序了，看以下代碼解釋：

'把conn.asp包含進(jìn)來(lái)連接數(shù)據(jù)庫(kù) <% 'ASP起始

admin=request.form(“admin”)'定義admin的值是表單傳過來(lái)的用戶名域名稱admin password=request.form(“password”)'定義admin的值是表單傳過來(lái)的用戶名域名稱admin if admin=“" or password=”“ then '這句的意思是假如用戶名和密碼沒有輸入的話那么執(zhí)行下一句

response.Write(”“)'用javascript腳本提示用戶 end if '結(jié)束if語(yǔ)句

sql=”select * from admin where admin='“&admin&”' and password='“&password&”'“ '這句很重要，我們放到后面講

set rs=conn.execute(sql)'設(shè)定記錄集rs，用conn執(zhí)行SQL語(yǔ)句 if rs.eof or rs.bof then '當(dāng)沒有符合篩選結(jié)果時(shí)，則執(zhí)行下面的句子 response.write ”“ '用javascript腳本提示用戶 else '如果符合條件的時(shí)候

session(”admin“)=admin '新建session，值等于表單傳來(lái)的用戶名 response.redirect ”mymanage.asp“ '轉(zhuǎn)向到mymanage.asp，進(jìn)入管理頁(yè) end if '結(jié)束if語(yǔ)句 %> 'ASP結(jié)束

將以上代碼保存為checkpass.asp

這樣，用戶在admin.asp頁(yè)面中輸入用戶名和密碼后，就把用戶名和密碼值傳給checkpass.asp處理，當(dāng)用戶名和密碼的值和數(shù)據(jù)庫(kù)中的字段相匹配時(shí)，就進(jìn)入mymanage.asp這個(gè)管理頁(yè)面，同時(shí)建一個(gè)session，這個(gè)session的會(huì)話變量將在后面起作用，下一節(jié)就明白了。

ASP留言本教程(6)時(shí)間：2010-04-09 22:53 點(diǎn)擊：17次 作者： 來(lái)源：網(wǎng)頁(yè)教學(xué)網(wǎng)

七、制作管理頁(yè)面

上節(jié)中講的是制作登陸頁(yè)面和檢測(cè)用戶，當(dāng)用戶名和密碼正確時(shí)就轉(zhuǎn)到管理頁(yè)面，好了，開始實(shí)現(xiàn)它。

其實(shí)這個(gè)留言本的管理頁(yè)面和用戶直接看到的首頁(yè)沒有多大的區(qū)別，只是用了Session會(huì)話變量用作保護(hù)和增加了一個(gè)刪除鏈接，當(dāng)點(diǎn)擊這個(gè)鏈接的時(shí)候，就會(huì)自動(dòng)刪除這條留言，好了，其本的目的知道了，那就GO！

剛才講了，這個(gè)頁(yè)面和首頁(yè)的index.asp相似，那么就先復(fù)制就行了，然后再改一下

首先找到下面這句：

sql=”select user,qq,email,content,data from main order by id desc“ 把它改為

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=<%=rs(”id“)，修改代碼后為“ onclick=”return confirm('是否確定刪除本留言？');“>刪除 這樣，待會(huì)我們做del這個(gè)頁(yè)的時(shí)候，就會(huì)知道為什么了！

改過后存為mymanage.asp

現(xiàn)在打開瀏覽器看看！

怎么不用輸入用戶名和密碼都可進(jìn)入呀？別急，上節(jié)中，我們不是建了一個(gè)session的會(huì)話變量，這時(shí)就派上用場(chǎng)了，直接用記事本打開。在<%@LANGUAGE=”VBScript“ codepage=”936“%>這句的后面加上<%if session(”admin“)<>”“ then%>這句，在末尾寫上： <% else response.Redirect(”admin.asp“)end if%> 下面來(lái)講解一下。

<%if session(”admin“)<>”“ then%> '就是說(shuō)如果session這個(gè)(”admin“)的值不是空的話就執(zhí)行。<% else response.Redirect(”admin.asp“)end if%> '為空的話就轉(zhuǎn)向登陸頁(yè)，重新登陸，這樣的話，直接輸入網(wǎng)址的話就會(huì)跳到admin.asp，簡(jiǎn)單吧！

好了，這節(jié)就到這里了。

ASP留言本教程(7)時(shí)間：2010-04-09 22:53 點(diǎn)擊：17次 作者： 來(lái)源：網(wǎng)頁(yè)教學(xué)網(wǎng)

八、刪除留言

上節(jié)我們?cè)黾恿艘粋€(gè)刪除留言的鏈接，以下是這個(gè)del.asp的代碼

<% set rs=server.createobject(”adodb.recordset“)id=Request.QueryString(”id“)sql=”select * from main where id=“&id rs.open sql,conn,2,3 rs.delete rs.update %>

很明了吧，才幾句，第1、2、3句都不用我解釋了，大家都在上幾節(jié)中明白了。

第4句：

id=Request.QueryString(”id“)用id取值字符串中傳的id，回頭看一下刪除的鏈接：del.asp?id=<%=rs(”id“)%> 就是這個(gè)鏈接才把id的值傳來(lái)的，<%=rs(”id")%>是讀取數(shù)據(jù)庫(kù)中的自動(dòng)編號(hào)字段中的id。

第5句：

用sql定義SQL語(yǔ)句，這里的*是通配符，表示所有，而Where有點(diǎn)像我們漢語(yǔ)中的“當(dāng)”，整句話的意思是選擇所有來(lái)自表名為main的字段，它的條件是當(dāng)數(shù)據(jù)庫(kù)中的id字段是字串所傳來(lái)的id。如果這個(gè)沒有的話這個(gè)一時(shí)間不明白也不要緊，慢慢接觸就知道了。

第6句是打開符合條件的記錄，確切的講不應(yīng)該叫記錄集了，因?yàn)榻?jīng)過我們這樣篩選的話，記錄絕對(duì)是一條，2，3指定可以對(duì)數(shù)據(jù)庫(kù)中的數(shù)據(jù)進(jìn)入修改。

第7、8句 rs.delete 看了就明白了，原來(lái)這才是整個(gè)程序的精髓，就是執(zhí)行刪除了。rs.update 這是更新數(shù)據(jù)庫(kù)中的表，刪除后就更新。

最后大家自己用rs.close和conn.close釋放。

第五篇：DW做網(wǎng)頁(yè),怎么插入背景音樂

代碼

一、 代碼

二、