A. 急，十萬火急！如何用asp 做留言板的添加留言和刪除留言要源代碼
1、用ACCESS新建一個資料庫，位置放在你站點的根目錄下，名稱為：test.mdb
2、新建一個表，表名con
3、在con表裡面建兩個欄位：id，類型為【自動編號】；comment，類型為【備注】
4、保存並關閉。
5、運行下面的程序。
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
dim Conn
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&server.MapPath("test.mdb")
dim Rs
set Rs = Server.CreateObject("ADODB.Recordset")
dim sql
dim action
action = request.Form("action")
If action = "add" then
Sql = "insert into con (comment) values ('"&request.Form("commentDetial")&"')"
Conn.execute(Sql)
elseif action = "del" then
Sql = "delete from con where id="&request.Form("thisID")
Conn.execute(Sql)
end if
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>留言版</title>
</head>
<body>
<form id="form1" name="form1" method="post" action="index.asp">
<textarea name="commentDetial" id="commentDetial" cols="45" rows="5"></textarea>
<input name="action" type="hidden" value="add" />
<input type="submit" name="button" id="button" value="提交" />
</form>
<form id="form2" name="form2" method="post" action="index.asp">
要刪除留言的ID：<input type="text" name="thisID" id="thisID" />
<input name="action" type="hidden" value="del" />
<input type="submit" name="button2" id="button2" value="刪除" />
</form>
<div>
<%
Sql="select * from con order by id asc"
Rs.open Sql,Conn,1,1
if not Rs.Eof then
do until Rs.Eof
response.Write("ID是："&Rs("id")&"<br>留言是："&Rs("comment")&"<hr>")
Rs.movenext
loop
end if
%>
</div>
</body>
</html>
B. 如何在用asp製作的留言板中刪除已有留言求源代碼！
delete from notes where id=$id
C. 怎麼製作ASP留言板刪除功能
<!--#include file="資料庫連接文件.asp"-->
<%
set rs=server.createobject("adodb.recordset")
id=trim(Request.form("ID"))
mySQL = "DELETE FROM guest WHERE ID = '"&id&"'"
Conn.execute mySQL
Conn.close
response.redirect("返迴文件.asp")
%>
如果你是新人，建議你學習asp.net開始好了，asp已經很久以前的語言了。
D. 如何對刪除留言進行許可權審核 ASP代碼
最好發個完整的可調試的代碼；
500錯誤一般都是代碼語法錯誤，你把瀏覽器internet選項 高級 顯示友好http錯誤前面的勾去掉看下具體是什麼錯誤；
E. 如何用asp.net做一個簡單的留言板，可以讓管理員刪除修改的那種
去網上找一下,再自己改一下好了
F. asp.net留言板的刪除
把模式對話框附加到linkbutton（lbtnDelete）上，當你點擊lbtnDelete時，就會彈出確定刪除對話框
G. 如何把網站中原來的留言板去掉
樓主可以去我的論壇看，裡面有圖片，看起來更方便些，下面這個留言本絕對可行的
一、安裝與調試
常聽朋友感嘆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 自動編號 設置「自動編號」
user 文本 留言者姓名
qq 數字 留言者的QQ，因為QQ號是由數字組成
email 文本 留言者的電子郵件
content 備注 留言內容
data 日期/時間 留言時間，設定默認值為Now()
資料庫設計好了以後，可以直接在資料庫里添加兩條記錄，以後測試時候用！
三、連接資料庫
在上一節，我們已經為我們的程序創建了一個資料庫，在這一節中，我們來用ASP把程序和資料庫連接起來，以後就可以連接到資料庫、在ASP中顯示資料庫中的數據以及更復雜的插入、修改和刪除。
一起看以下代碼，這就是ASP程序中常用的連接資料庫的代碼：
<%
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") 在伺服器上創建了一個連接資料庫的對象
connstr="Provider=Microsoft.jet.oledb.4.0;data source="&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
%>
代碼拷貝框
<%@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
%>
[Ctrl+A 全部選擇 然後拷貝]
解釋一下：
第一行，表明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」鏈接到：<;%=rs("qq")%>
「郵件」鏈接到：mailt<%=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 銷毀資料庫連接
%>
代碼拷貝框
<%@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 銷毀資料庫連接
%>
[Ctrl+A 全部選擇 然後拷貝]
將以上文件存為addsave.asp，測試下！咦？怎麼填好提交以後就出現空白了，為什麼？這是因為在addsave.asp中沒有設置數據成功提交好後的轉向頁面，這里不用做那麼復雜的，只要做一個刷新頁面就行了，在程序的後面加上：
<meta http-equiv="refresh" content="2;URL=index.asp">
然後在頁面中添加提示信息，比如：「您的留言已經成功提交，2秒鍾後將自動返回留言本首頁」
好了，這個留言的功能總算實現了，最後再測試下，看看效果！
OK！
六、製作管理登陸頁面
留言本的管理功能對於留言本來說就不言而喻了，像論壇的登陸功能就是一個很好的例子，不過我們做留言本基本上有刪除功能就行了，寫這個教程是為了更多的ASP入門者更好的了解ASP，所以旨在學慣用，當然也可以在這基礎上添加更多的功能，比如回復留言者。
好了，開始了，還是按照以前的，用Dreamweaver做一個登陸頁面，如下圖：
把用戶名的表單名稱設置為admin，密碼的表單名稱設為password，把動作指向checkpass.asp，，存admin.asp這樣登陸頁面就好了，
下面就做檢測密碼的ASP程序了，看以下代碼解釋：
<!--#include file="conn.asp"--> 把conn.asp包含進來連接資料庫
<% ASP起始
admin=request.form("admin") 定義admin的值是表單傳過來的用戶名域名稱admin
password=request.form("password") 定義admin的值是表單傳過來的用戶名域名稱admin
if admin="" or password="" then 這句的意思是假如用戶名和密碼沒有輸入的話那麼執行下一句
response.Write("<script language=javascript>alert(請填寫完整!);history.go(-1)</script>") 用javascript腳本提示用戶
end if 結束if語句
sql="select * from admin where admin="&admin&" and password="&password&"" 這句很重要，我們放到後面講
set rs=conn.execute(sql) 設定記錄集rs，用conn執行SQL語句
if rs.eof or rs.bof then 當沒有符合篩選結果時，則執行下面的句子
response.write "<script language=javascript>"
response.write "alert(用戶或密碼不對!);"
response.write "javascript:history.go(-1);"
response.write "</script>" 用javascript腳本提示用戶
else 如果符合條件的時候
session("admin")=admin 新建session，值等於表單傳來的用戶名
response.redirect "mymanage.asp" 轉向到mymanage.asp，進入管理頁
end if 結束if語句
%> ASP結束
代碼拷貝框
<!--#include file="conn.asp"--> 把conn.asp包含進來連接資料庫
<% ASP起始
admin=request.form("admin") 定義admin的值是表單傳過來的用戶名域名稱admin
password=request.form("password") 定義admin的值是表單傳過來的用戶名域名稱admin
if admin="" or password="" then 這句的意思是假如用戶名和密碼沒有輸入的話那麼執行下一句
response.Write("<script language=javascript>alert(請填寫完整!);history.go(-1)</script>") 用javascript腳本提示用戶
end if 結束if語句
sql="select * from admin where admin="&admin&" and password="&password&"" 這句很重要，我們放到後面講
set rs=conn.execute(sql) 設定記錄集rs，用conn執行SQL語句
if rs.eof or rs.bof then 當沒有符合篩選結果時，則執行下面的句子
response.write "<script language=javascript>"
response.write "alert(用戶或密碼不對!);"
response.write "javascript:history.go(-1);"
response.write "</script>" 用javascript腳本提示用戶
else 如果符合條件的時候
session("admin")=admin 新建session，值等於表單傳來的用戶名
response.redirect "mymanage.asp" 轉向到mymanage.asp，進入管理頁
end if 結束if語句
%> ASP結束
[Ctrl+A 全部選擇 然後拷貝]
將以上代碼保存為checkpass.asp
這樣，用戶在admin.asp頁面中輸入用戶名和密碼後，就把用戶名和密碼值傳給checkpass.asp處理，當用戶名和密碼的值和資料庫中的欄位相匹配時，就進入mymanage.asp這個管理頁面，同時建一個session，這個session的會話變數將在後面起作用，
七、製作管理頁面
上節中講的是製作登陸頁面和檢測用戶，當用戶名和密碼正確時就轉到管理頁面，好了，開始實現它。
其實這個留言本的管理頁面和用戶直接看到的首頁沒有多大的區別，只是用了Session會話變數用作保護和增加了一個刪除鏈接，當點擊這個鏈接的時候，就會自動刪除這條留言，好了，其本的目的知道了，那就GO！
剛才講了，這個頁面和首頁的index.asp相似，那麼就先復制就行了，然後再改一下
首先找到下面這句：
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這個自動編號的值，以便刪除留言時鎖定這個id。
然後在「郵件」這個鏈接後面增加一個鏈接「刪除」，鏈接：del.asp?id=<%=rs("id") ，修改代碼後為<a href="del.asp?id=<%=rs("id")%>" onclick="return confirm(是否確定刪除本留言？);">刪除</a> 這樣，待會我們做del這個頁的時候，就會知道為什麼了！
改過後存為mymanage.asp
現在打開瀏覽器看看！
怎麼不用輸入用戶名和密碼都可進入呀？別急，上節中，我們不是建了一個session的會話變數，這時就派上用場了，直接用記事本打開。在<%@LANGUAGE="VBScript" codepage="936"%>這句的後面加上<%if session("admin")<>"" then%>這句，在末尾寫上：
<%
else
response.Redirect("admin.asp")
end if%>
下面來講解一下。
<%if session("admin")<>"" then%> 就是說如果session這個("admin")的值不是空的話就執行。
<%
else
response.Redirect("admin.asp")
end if%> 為空的話就轉向登陸頁，重新登陸，這樣的話，直接輸入網址的話就會跳到admin.asp，簡單吧！
八、刪除留言
上節我們增加了一個刪除留言的鏈接，以下是這個del.asp的代碼
<!--#include file="conn.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句都不用我解釋了，大家都在上幾節中明白了。
第4句：
id=Request.QueryString("id") 用id取值字元串中傳的id，回頭看一下刪除的鏈接：del.asp?id=<%=rs("id")%> 就是這個鏈接才把id的值傳來的，<%=rs("id")%>是讀取資料庫中的自動編號欄位中的id。
第5句：
用sql定義SQL語句，這里的*是通配符，表示所有，而Where有點像我們漢語中的「當」，整句話的意思是選擇所有來自表名為main的欄位，它的條件是當資料庫中的id欄位是字串所傳來的id。如果這個沒有的話這個一時間不明白也不要緊，慢慢接觸就知道了。
第6句是打開符合條件的記錄，確切的講不應該叫記錄集了，因為經過我們這樣篩選的話，記錄絕對是一條，2，3指定可以對資料庫中的數據進入修改。
第7、8句
rs.delete 看了就明白了，原來這才是整個程序的精髓，就是執行刪除了。
rs.update 這是更新資料庫中的表，刪除後就更新。
最後大家自己用rs.close和conn.close釋放。
經過些學習，大家應該對ASP有所了解和認識了，這個做ASP留言本的教程就到此結束了。歡迎大家到新視野QQ群裡面共同討論學習。
H. ASP留言板源代碼：有主頁，回復和刪除三個版面。
主程序
<html>
<head>
<title>業牧粞員?lt;/title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<script language="VBScript">
sub check()
if form.userid.value=empty then
msgbox "請輸入您的昵稱！"
focusto(0)
exit sub
end if
if form.email.value=empty then
msgbox "請輸入您的E-mail地址！"
focusto(1)
exit sub
end if
if instr(form.email.value, "@")=0 then
msgbox "您的E-mail地址不正確，是不是記錯了？再想想！"
focusto(1)
exit sub
end if
if form.content.value=empty then
msgbox "請輸入您的留言內容！"
focusto(5)
exit sub
end if
form.submit
end sub
sub focusto(x)
document.form.elements(x).focus()
end sub
</script>
<body bgcolor="#CCFFCC" text="#333333">
<table width="90%" border="0" bordercolorlight="#E2F3F2" height="77" align="center">
<tr>
<td height="47" colspan="2" bgcolor="#00FFFF"><div align="center"> <font face="華文行楷" size="+6"><font color="#FF0000" face="行楷"><strong>留言本</strong></font></font>
</div> </td>
</tr>
<tr>
<td colspan="2" height="2">
<p align="center"><font face="隸書" size="+2"><font face="楷體_GB2312"><b><a href="show.asp"><font size="+1">查看留言</font></a></b></font>< /font></p>
</td>
</tr>
</table>
<table width="90%" border="0" align="center">
<tr bgcolor="#E2F3F2" align="center" valign="middle">
<td height="385">
<form action="show.asp" method="post" name="form" id="form">
<table align=center bgcolor=#E2F3F2 border=1
cellpadding=0 cellspacing=0 width="100%">
<tbody>
<tr bgcolor="#CCFFCC">
<td width=96 height="34"><div align="center"><font color="#0000FF">昵 稱:</font></div></td>
<td width="441" height="34">
<input maxlength=30 name="userid">
<font color="#FF0000">* </font></td>
</tr>
<tr bgcolor="#CCFFCC">
<td width=96 height="35"><div align="center"><font color="#0000FF">伊妹兒:</font></div></td>
<td width="441" height="35" colspan=3>
<input type="text" name="email">
<font color="#FF0000">* </font></td>
</tr>
<tr bgcolor="#CCFFCC">
<td width=96 height="36"><div align="center"><font color="#0000FF">主 題:</font></div></td>
<td width="441" height="36" colspan=3>
<input maxlength=200 name=subject size=40></td>
</tr>
<tr bgcolor="#CCFFCC">
<td width=96 height="36"><div align="center"><font color="#0000FF">你的QQ:</font></div></td>
<td width="441" height="36" colspan=3>
<input name="qq" type="text" id="qq" maxlength="10"></td>
</tr>
<tr bgcolor="#CCFFCC">
<td width=96 height="37"><div align="center"><font color="#0000FF"> 你的主頁：</font></div></td>
<td width="441" height="37" colspan=3>
<input name="site" type="text" id="site" value=""></td>
</tr>
<tr bgcolor="#CCFFCC">
<td width=96 height="147"><div align="center"><font color="#0000FF">留言內容:</font></div></td>
<td width="441" height="147" colspan=3>
<textarea cols=50 name=content rows=12></textarea></td>
</tr>
<tr align=middle bgcolor="#CCFFCC">
<td height="56" colspan=4>
<div align="center">
<input name=button1 type=button value=" 發 表 " onclick="check()">
<input name=button2 type=reset value=" 重 寫 ">
</div></td>
</tr>
</tbody>
</table>
</form>
</td>
</tr>
</table>
</body>
</html>
保存程序
<%@ language=VBScript%>
<html>
<head>
<title>保存留言</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<body bgcolor="#CCFFCC" text="#0000FF">
<p align="center"><strong><font color="#FF0000" size="+6" face="行楷">我的留言本</font></strong></p>
<%
'獲得表單內的信息
userid = Request.Form ("userid")
title= Request.Form("subject")
site=Request.Form("site")
content= Request.Form("content")
email=Request.Form("email")
wtime=now()
from=Request.ServerVariables("REMOTE_ADDR")
email="<a href=mailto:" & email & ">" & email & "</a>"
if title="" then
title="無標題"
end if
On Error Resume Next
Application.Lock
'以ForAppending模式開啟留言文件
set fso = CreateObject("Scripting.FileSystemObject")
'取得save和oldsave兩個文件的完整路徑
filepath=server.MapPath("save.txt")
oldfilepath=server.MapPath("oldsave.txt")
'將save改名為oldsave
fso.CopyFile filepath ,oldfilepath
'打開oldsave文件
set readf=fso.OpenTextFile(oldfilepath,1,true)
t=readf.ReadAll
'打開save文件
set showf=fso.CreateTextFile(filepath,true)
'將新的留言內容添加(append)到留言文件中
showf.WriteLine arrow & "<b>留言者</b>：" & userid & "<br>"
showf.WriteLine arrow & "<b>伊妹兒</b>：" & email & "<br>"
showf.WriteLine arrow & "<b>來自於</b>：" & from & "<br>"
showf.WriteLine arrow & "<b>發表日期</b>：" & wtime & "<br>"
showf.WriteLine arrow & "<b>留言者主頁</b>：" & site & "<br>"
showf.WriteLine arrow & "<b>留言標題</b>：" & title & "<br>"
showf.WriteLine arrow & "<b>留言內容</b>："& content & "<p>"
showf.WriteLine
showf.WriteLine "<hr>"
' 讀出oldsave的內容，寫入save中
showf.WriteLine t
'關閉oldsave文件
readf.Close
'刪除oldsave文件
fso.DeleteFile oldfilepath,true
Application.UnLock
'順便將留言內容輸出到瀏覽器中
Response.Write "<h3>"
Response.Write "以下是 <i>" & userid & "</i> 的留言內容:"
Response.Write "</h3><hr>"
Response.Write arrow & "<b>來自於</b>：" & from & "<br>"
Response.Write arrow & "<b>伊妹兒</b> ：" & email & "<br>"
Response.Write arrow & "<b>發表日期</b>：" & wtime & "<br>"
Response.Write arrow & "<b>留言者主頁</b>：" & site & "<br>"
Response.Write arrow & "<b>留言標題</b>：" & title & "<br>"
Response.Write arrow & "<b>留言內容</b>：" & content & "<p>"
Response.Write "<hr>"
%>
<p align="center">點擊<A href="show.asp"><font color="#FF00FF">這里</font></A>，<font color="#0000FF">查看所有留言!</font></p>
</body>
</html>
顯示程序
@ language=VBScript%>
<html>
<head>
<title>所有留言</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<body bgcolor="#CCFFCC" text="#0000FF">
<p align="center"><font face="華文行楷" size="+6"><font color="#FF0000" face="行楷"><strong>留言本</strong></font></font> </p>
<hr>
<p align="center"></p>
<%
on error resume next
set fso = CreateObject("Scripting.FileSystemObject")
filepath=server.MapPath("save.txt")
set showall=fso.OpenTextFile(filepath,1,true)
t=showall.ReadAll
Response.write(t)
showall.close
%>
</body>
</html>
I. asp如何自動刪除留言信息
想要自動刪除的話必須是要有獨立的伺服器,在任務計劃里加個任務,用來執行你的SQL這樣才可以~否則無法實現
J. 如何用asp做網頁留言
文本框輸入提交到資料庫
點擊查看可以顯示出來
可以刪除和管理
就這樣很簡單