|
三、制作添加留言頁面，實現(xiàn)留言功能 我們是做的一個留言本，實現(xiàn)留言的功能就十分重要了，要不然就算不上留言本了，接下來就一起來實現(xiàn)這個功能。
用DW制作以下這樣的頁面：
設(shè)置表單的屬性如下：
姓名：設(shè)置為單行文本域，名稱為“user”
QQ號：設(shè)置為單行文本域，名稱為“qq”
郵件：設(shè)置為單行文本域，名稱為“email”
內(nèi)容：設(shè)置為多行文本域，名稱為“content”
最后將表單的“Action”動作指向addsave.asp就可以了。
保存文檔名為add.asp，OK！下一步！
表單是做好了，但是還需要后臺程序的支持，一起來使用ASP編寫一個添加留言處理程序，添加留言代碼：
<%@LANGUAGE="VBScript" codepage="936"%> '表明ASP使用的是VB腳本
<!--#include file="conn.asp"--> '是用include包含文件，這里包含的是數(shù)據(jù)庫連接文件
<%
set rs=server.createobject("adodb.recordset") '利用Server內(nèi)置對象創(chuàng)建一個記錄集
sql="select user,qq,email,content,data from main" 'SQL語句，上節(jié)有詳解
rs.open sql,conn,1,3 '用剛才創(chuàng)建的名為rs的記錄集打開數(shù)據(jù)庫，設(shè)置屬性為插入數(shù)據(jù)
rs.addnew '用記錄集新添加一條數(shù)據(jù)
user=request.form("user") '請求表單的變量，定義變量為user，這里request.form是請求表單的意思
qq=request.form("qq") '請求表單的變量，定義變量為qq，這里request.form是請求表單的意思
email=request.form("email") '請求表單的變量，定義變量為email，這里request.form是請求表單的意思
content=request.form("content") '請求表單的變量，定義變量為content，這里request.form是請求表單的意思
rs("user")=user '將請求到的表單值傳向記錄集中代表user字段的名稱
rs("qq")=qq '將請求到的表單值傳向記錄集中代表qq字段的名稱
rs("email")=email '將請求到的表單值傳向記錄集中代表email字段的名稱
rs("content")=content '將請求到的表單值傳向記錄集中代表content字段的名稱
rs.update '更新一下數(shù)據(jù)庫中的數(shù)據(jù)。
rs.close '關(guān)閉記錄集
set rs=nothing '銷毀記錄集
conn.close '關(guān)閉數(shù)據(jù)庫連接
set rs=nothing '銷毀數(shù)據(jù)庫連接
%>
代碼拷貝框
[Ctrl+A 全部選擇 然后拷貝]
將以上文件存為addsave.asp，測試下！咦？怎么填好提交以后就出現(xiàn)空白了，為什么？這是因為在addsave.asp中沒有設(shè)置數(shù)據(jù)成功提交好后的轉(zhuǎn)向頁面，這里不用做那么復(fù)雜的，只要做一個刷新頁面就行了，在程序的后面加上：
<meta http-equiv="refresh" content="2;URL=index.asp">
然后在頁面中添加提示信息，比如：“您的留言已經(jīng)成功提交，2秒鐘后將自動返回留言本首頁”
好了，這個留言的功能總算實現(xiàn)了，最后再測試下，看看效果！
OK！這個留言功能的實現(xiàn)教程就到這里了。
出處：藍(lán)色理想
責(zé)任編輯：moby
上一頁 制作留言本首頁 [4] 下一頁 制作管理登陸頁面 [6]
◎進(jìn)入論壇網(wǎng)絡(luò)編程版塊參加討論
|
第 1 頁 
第 5 頁 制作添加留言頁面實現(xiàn)留言功能 [5]
