asp源碼留言板
1. 給一個asp留言板製作教程
一、安裝與調試常聽朋友感嘆ASP程序難學不易懂,不過我起初學習這門技術的時候也有過這樣的感悟。從今天開始,我將以我學ASP的經驗來做一個簡單的ASP留言本,這個留言本用了Access資料庫,所以務必請大家要跟我一起做的朋友都安裝好Office軟體,相信各位自己的電腦上都有了。好了,開始。
創建ASP的運行環境(安裝IIS)
IIS(Internet Information Service)是構建ASP站點所必須的,所以,我們應該先確認自己的電腦已安裝了IIS信息服務,如果沒有安裝好的話,請按以下步驟:
1、打開「控制面板」
2、雙擊「添加/刪除程序」
3、單擊「添加/刪除Windows組件」,打開添加/刪除Windows組件對話框:
3、從下拉的列表中選擇「Internet 信息服務(IIS)」單擊「下一步」:
4、出現組件安裝進度窗口,如彈出需要安裝盤的話,放入Windows2000安裝盤,按提示操作即可。直至最後安裝完畢。
---------------------------------------------------------------------------------------------------------
二、設計資料庫
ASP程序本身並不能儲存數據,眾所周知,留言本有以下信息需要保存:留言者姓名、聯系方式、留言內容等等。因為ASP並不能儲存數據,所以資料庫在這種環境之下就產生了。資料庫的種類也很多,針對不同的程序也有適用於它的資料庫,比如Access和Ms sql就比較適用ASP和ASP.net程序,至於其它的資料庫和程序,就不屬於本文所討論的問題了,有興趣的朋友可以查看其它一些資料。
那麼既然Access和MS SQL都適用ASP,那麼具體又如何來選擇呢?我們可以打一個比方:比如釘一枚小釘子,聰明的人一定不會用一個大的棒槌,而是選擇小的鐵錘,雖然用大的棒槌也一樣的可以把釘子釘進去,可是沒有人願意這樣做。
資料庫也一樣:Access比較適用小型的應用,而MS SQL則適用於大中型的資料庫應用,所以要做一個留言本,理所當然是選擇Access更好一些,但是如果你決心使用MS,沒有人會極力阻止你。好了,廢話少說,切入正題,下面開始創建資料庫。
Access是微軟office辦公軟體中的其中一個,默認的安裝Office是有這個Access的,好了,打開程序,開始了,GO!
進入實戰了。打開程序後,出現一個對話框,這里我們選擇第一個選項」空Access資料庫」點擊確定,彈出一個新建資料庫的文件框,選擇你上次你建的站點目錄,起個data的文件名,點擊創建,OK! 雙擊」使用設計器創建表」打開表創建窗口」如圖
創建表的結構如下表:
欄位名稱
數據類型
備注(筆者注釋)
id 自動編號 設置「自動編號」
name 文本 留言者姓名
qq 數字 留言者的QQ,因為QQ號是由數字組成
email 文本 留言者的電子郵件
content 備注 留言內容
data 日期/時間 留言時間,設定默認值為Now()
資料庫設計好了以後,可以直接在資料庫里添加兩條記錄,以後測試時候用!這一節就到此了
-------------------------------------------------------------------------------------------------
三、連接資料庫
在上一節,我們已經為我們的程序創建了一個資料庫,在這一節中,我們來用ASP把程序和資料庫連接起來,以後就可以連接到資料庫、在ASP中顯示資料庫中的數據以及更復雜的插入、修改和刪除。
一起看以下代碼,這就是ASP程序中常用的連接資料庫的代碼:
<%
set conn=server.createobject("adodb.connection")
c&server.mappath("data.mdb")
conn.open connstr
%>
解釋一下以上代碼:
<% '這是ASP程序的起始
set conn=server.createobject("adodb.connection") '在伺服器上創建了一個連接資料庫的對象
c&server.mappath("data.mdb") '告訴ASP資料庫的接接方法以及路徑
conn.open connstr '創建了對象後就用來打開資料庫進行連接
%> '一切OK了!結束ASP程序
將上面的代碼另存為conn.asp文件,放在伺服器目錄下面就可以了。怎麼樣,簡單吧?
這一節是最重要的,一定要弄明白,否則以後操作資料庫將變得不現實,如果有不懂的問題,歡迎和我討論,我的電子郵件地址是。這一節就到此,下節我們就將資料庫中的數據顯示在頁面中(這就實現了留言本的查看功能)
---------------------------------------------------------------------------------------------
四、製作留言本首頁
前面我們已經連接好了資料庫,就要讓它在這里發揮一下作用了,這一節將講述如何將資料庫里的數據用ASP讀取出來,在頁面中顯示出來,這樣就等於是查看留言本了。
利用DW製作首頁面(這里我就不講如何去做這個頁面了,最後我將會給出HTML代碼下載)
將製作好的文件存為index.asp,下面就創建數據記錄集,用來顯示資料庫的數據到這個頁面中:
用記事本打開index.asp,在頁頭加入以下代碼:
<%@LANGUAGE="VBScript" codepage="936"%>
<!--#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
%>
解釋一下:
第一行,表明ASP使用的是VB腳本
第二行,是用include包含文件,這里包含的是資料庫連接文件。
第三行,ASP程序開始
第四行,利用Server內置對象創建一個記錄集
第五行, SQL語句,這里的意思是選擇資料庫中的user,qq,email,content,data欄位,指定該數據表的名稱是「main」數據 的排列順序是倒序。
第六行,用剛才創建的名為rs的記錄集打開資料庫,設置屬性為只讀(1,1為只讀數據,1,3為插入數據,2,3是修改數據。
這樣就打開了資料庫,接下來就可以顯示了。
將「留言人」代替為「<%=rs("user")%>
「時間」代替為「<%=rs("data")%>
「留言內容在此」代替為「<%=rs("content")%>
「QQ」鏈接到 http://search.tencent.com/cgi-bin/friend/user_show_info?ln=<;;%=rs("qq")%>
「郵件」鏈接到:mailto:<%=rs("email")%>
最後將「填寫留言」鏈接 add.asp 「管理留言」鏈接 admin.asp
好了,再次保存,瀏覽看看!
怎麼了?只顯示一條記錄?原來我們在資料庫里添加了兩條記錄的哦!還有一條呢?別急,因為我們沒有指定ASP循環顯示,所以就只有一條啦。。。
在剛才的代碼後面添加一行
<%do while not rs.eof%>
並在頁面的第一個表格的末尾加上
<%
rs.movenext
loop
%>
上面的代碼就是說用rs記錄集指針一條一條往下一條移動,直到末尾,loop是循環的意思。。哈哈,再次瀏覽這個文件
看明白了嗎,這樣就可以讓資料庫中的數據全部顯示在頁面中了,好了,這節就到這,下節講一個也很重要的部份(添加留言功能。)
--------------------------------------------------------------------------------------------------
五、製作添加留言頁面,實現留言功能
我們是做的一個留言本,實現留言的功能就十分重要了,要不然就算不上留言本了,接下來就一起來實現這個功能。
用DW製作以下這樣的頁面:
設置表單的屬性如下:
姓名:設置為單行文本域,名稱為「user」
QQ號:設置為單行文本域,名稱為「qq」
郵件:設置為單行文本域,名稱為「email」
內容:設置為多行文本域,名稱為「content」
最後將表單的「Action」動作指向addsave.asp就可以了。
保存文檔名為add.asp,OK!下一步!
表單是做好了,但是還需要後台程序的支持,一起來使用ASP編寫一個添加留言處理程序,添加留言代碼:
<%@LANGUAGE="VBScript" codepage="936"%> '表明ASP使用的是VB腳本
<!--#include file="conn.asp"--> '是用include包含文件,這里包含的是資料庫連接文件
<%
set rs=server.createobject("adodb.recordset") '利用Server內置對象創建一個記錄集
sql="select user,qq,email,content,data from main" 'SQL語句,上節有詳解
rs.open sql,conn,1,3 '用剛才創建的名為rs的記錄集打開資料庫,設置屬性為插入數據
rs.addnew '用記錄集新添加一條數據
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 '更新一下資料庫中的數據。
rs.close '關閉記錄集
set rs=nothing '銷毀記錄集
conn.close '關閉資料庫連接
set rs=nothing '銷毀資料庫連接
%>
將以上文件存為addsave.asp,測試下!咦?怎麼填好提交以後就出現空白了,為什麼?這是因為在addsave.asp中沒有設置數據成功提交好後的轉向頁面,這里不用做那麼復雜的,只要做一個刷新頁面就行了,在程序的後面加上:
<meta http-equiv="refresh" c>
然後在頁面中添加提示信息,比如:「您的留言已經成功提交,2秒鍾後將自動返回留言本首頁」
2. 編寫一個asp留言板源代碼
<link href="../../css/user.css" rel="stylesheet" type="text/css">
<script language="JavaScript" src="../../js/common.js"></script>
<script language="JavaScript" src="../../js/ubbcode.js"></script>
<script language="JavaScript">
function formCheck()
{
if (document.theform.nickname.value == "")
{
alert("請填寫名字。");
document.theform.nickname.focus();
return false;
}
if (document.theform.content.value == "")
{
alert("請填寫留言內容。");
document.theform.content.focus();
return false;
}
theform.Submit.disabled=true;
return true;
}
function showimage()
{
document.images.faceimg.src=face_image[parseInt(document.theform.face.options[document.theform.face.selectedIndex].value)];
}
<body background="http://cache26.51.com/photo1/14/cf/amulostlove/1151766298434_1.jpg">
<center>
<IFRAME marginHeight=0 marginWidth=0 noResize scrolling=no frameBorder=0 src="http://ads.activepower.net/script/ad/ad_show.asp?group_id=8&bgcolor=ffffff" width=468 height=60>
</IFRAME>
</center>
<p> </p>
<form name="theform" onsubmit="return formCheck();" method="post" action="get_post.asp">
<TABLE width=550 border=0 align="center" cellPadding=0 cellSpacing=0>
<table width="550" border="0" align="center" cellpadding="4" cellspacing="1" bgcolor="#ebebeb">
<tr>
<td class="pt9">
<p>*名字:
<input name="nickname" type="text" size="15" maxlength="12" class="inputbox1">
<br>
Email:
<input name="email" type="text" size="15" maxlength="45" class="inputbox1">
主頁地址:
<input name="hp_url" type="text" value="http://" size="22" maxlength="125" class="inputbox1">
</p>
</td>
<tr>
<td width="409" class="pt9"> <!--因為圖片連接的原因,本文件只適合include在script/dirname下的文件 -->
<img onClick=bold() src="../../images/icon_editor_bold.gif" width="23" height="22" alt="粗體" border="0"><img onClick=italicize() src="../../images/icon_editor_italicize.gif" width="23" height="22" alt="斜體" border="0"><img onClick=underline() src="../../images/icon_editor_underline.gif" width="23" height="22" alt="下劃線" border="0">
<img onClick=center() src="../../images/icon_editor_center.gif" width="23" height="22" alt="居中" border="0"><img onClick=hyperlink() src="../../images/icon_editor_url.gif" width="23" height="22" alt="超級連接" border="0"><img onClick=email() src="../../images/icon_editor_email.gif" width="23" height="22" alt="Email連接" border="0"><img onClick=image() src="../../images/icon_editor_image.gif" width="23" height="22" alt="圖片" border="0"><img onClick=flash() src="../../images/icon_swf.gif" width="23" height="22" alt="Flash圖片" border="0"><img onClick=showcode() src="../../images/icon_editor_code.gif" width="23" height="22" alt="編號" border="0"><img onClick=quote() src="../../images/icon_editor_quote.gif" width="23" height="22" alt="引用" border="0"><img onClick=list() src="../../images/icon_editor_list.gif" width="23" height="22" alt="目錄" border="0">
<br>
<tr>
<td>
<table width="100%" border="0" cellpadding="0" cellspacing="0" class="pt9">
<tr>
<td width="40" valign="top">*留言:</td>
<td><textarea name="content" cols="50" rows="6" id="content"></textarea></td>
</tr>
</table>
<p align="center">
<input name="replyer" type="hidden" value="">
<input name="reply_content_id" type="hidden" value="">
<input name="userid" type="hidden" value="79444">
<input type="submit" name="Submit" value="確認留言" class="button1">
<input type="reset" name="Reset" value="取消重寫" class="button1">
</p></td>
</tr>
</table>
<p> </p>
</form>
<table width="550" border="0" align="center" cellpadding="2" cellspacing="1">
<tr>
<td width="88" valign="top">
<img src="http://img.mms.sohu.com/mms/1230/86/32486/p2.gif">
</td>
<td width="417"><TABLE width="100%" border=0 cellPadding=0 cellSpacing=0 class="pt9">
<TBODY>
<TR>
<TD width=43 colSpan=2 height=29 rowSpan=2><IMG height=29
src="../../images/1_r2_c2.gif" width=43 border=0></TD>
<TD background=../../images/1_r2_c4.gif height=10></TD>
<TD width=37 colSpan=2 height=29 rowSpan=2><IMG height=29
src="../../images/1_r2_c6.gif" width=37 border=0></TD>
</TR>
<TR>
<TD height=19> <TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR>
<TD class="pt9"> <font class="filtertxt">dsfsd</font> </TD>
<TD width="168" align=right class="pt9"> </TD>
</TR>
</TBODY>
</TABLE></TD>
</TR>
<TR>
<TD width=10 background=../../images/1_r4_c2.gif></TD>
<TD width=27></TD>
<TD width="100%" height=50> <img src="../../images/blank.gif" width="5" height="5">
<br> fdsfsd<b>dfssdfsdf</b> <br> <img src="../../images/blank.gif" width="5" height="5"> </TD>
<TD width=22></TD>
<TD width=15 background=../../images/1_r4_c2.gif></TD>
</TR>
<TR>
<TD background=../../images/1_r4_c2.gif></TD>
<TD></TD>
<TD height=1><hr width="100%" size="1" noshade></TD>
<TD></TD>
<TD background=../../images/1_r4_c2.gif></TD>
</TR>
<TR>
<TD width=43 colSpan=2 height=26 rowSpan=2> <IMG height=26 src="../../images/1_r6_c2.gif" width=43 border=0></TD>
<TD align=right height=17>
<img src="../../images/no_home.gif" align="absmiddle"> <img src="../../images/no_email.gif" align="absmiddle"> <FONT color=#336600>[2006-7-17 21:24:00]</FONT> </TD>
<TD width=43 colSpan=2 height=26 rowSpan=2><IMG height=26
src="../../images/1_r6_c6.gif" width=37 border=0></TD>
</TR>
<TR>
<TD background=../../images/1_r2_c4.gif
height=9></TD>
</TR>
</TBODY>
</TABLE></td>
</tr>
</table>
<BR>
<form>
<table width="516" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td>
<table width=100% border=0 cellspacing=1 cellpadding=2 class=pt9><tr><td height=13><img src=../../images/turnpage2_1.gif align=absmiddle border=0> <img src=../../images/turnpage2_2.gif align=absmiddle border=0> <b>1</b> | <img src=../../images/turnpage2_3.gif align=absmiddle border=0> <img src=../../images/turnpage2_4.gif align=absmiddle border=0></td><td class=pt9 width=140 align=right>共<font color=red>1</font>頁第<input type=text name=JumpPage maxlength=3 size=3>頁<input type=button value=轉頁 onClick="location.href='/script/user/list.asp?userid=79444&page=' + this.form.JumpPage.value;"></td></tr></table>
</td>
</tr>
</table>
</form>