留言板asp源碼

發布時間: 2023-09-12 17:47:26

⑴ 編寫一個asp留言板源代碼

⑵ 請問有誰知道版主回復留言時的ASP源代碼

很簡單啊
我是這樣做的：
在資料庫(userLiuyan.mdb)里新建一個留言表：liuyan
表中欄位：ID,(留言編號,自動編號)
userID(用戶編號或用戶名,文本型),
times(留言時間,日期時間型),
liuyan(留言內容,文本或備注型),
huifu(斑竹回復,文本或備注型)
用戶留言的時候只添加前四個欄位的值,斑竹管理留言的時候給某條留言回復就添加到相應的回復欄位里再顯示給你就可以了.比如:
用戶顯示頁面:show.asp
<%
set conn=server.createObject("ADODB.Connection")
conn.connectionString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("userLiuyan.mdb")
conn.Open
sql="select * from liuyan"
set rs=server.CreateObject("ADODB.RecordSet")
rs.Open sql,conn,1,1
Do While Not rs.Eof
Response.Write rs("userID") &"<br/>"
Response.Write rs("times") &"<br/>"
Response.Write rs("liuyan") &"<br/>"
If rs("huifu")<>"" Then
Response.Write rs("huifu") &"<br/>"
Else
Response.Write "等待回復..."
End If
rs.MoveNext
Loop
%>
斑竹管理留言回復頁:huifu.asp
<% '顯示用戶留言
set conn=server.createObject("ADODB.Connection")
conn.connectionString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("userLiuyan.mdb")
conn.Open
sql="select * from liuyan"
set rs=server.CreateObject("ADODB.RecordSet")
rs.Open sql,conn,1,1
Do While Not rs.Eof
Response.Write rs("userID") &"<br/>"
Response.Write rs("times") &"<br/>"
Response.Write rs("liuyan") &"<br/>"
If rs("huifu")<>"" Then
Response.Write rs("huifu") &"<br/>"
Else
Response.Write "<a href=""?method=huifu&ID="&rs("ID")&""">回復</a>"
End If
rs.MoveNext
Loop

'向資料庫里添加回復
If Request.QueryString("Method")="huifu" Then
sql="update liuyan set huifu='謝謝你的留言' where="& Request.QueryString("ID")
conn.Execute(sql)
Response.Write"回復成功!"
End If
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
答案還可以嗎?

⑶ 求網頁製作：製作留言板的代碼

<%
dim name,qq,email,sex,liuyan,ly_type,ip,riqi
name=request("ly_user_name")
qq=request("ly_user_qq")
email=request("ly_user_email")
sex=request("ly_sex")
liuyan=request("ly_liuyan")
ly_type=request("ly_type")
ip=request.ServerVariables("REMOTE_ADDR")

if name="" then
response.write "<script language=javascript>alert('您的名字沒有填寫，請填寫完整信息，謝謝!');history.go(-1);</script>"
elseif qq="" then
response.write "<script language=javascript>alert('忘了QQ哦');history.go(-1);</script>"
elseif liuyan="" then
response.write "<script language=javascript>alert('留言內容不能為空!');history.go(-1);</script>"

else
if ly_type="" then
ly_type=1
else
ly_type=2
end if

dim sql

sql="insert into liuyan(ly_user_name,ly_user_qq,ly_user_email,ly_sex,ly_liuyan,ly_type,ly_user_ip,ly_user_riqi) values('" & name & "','" & qq & "','" & email & "','" & sex & "','" & liuyan & "','" & ly_type & "','" & ip & "',#" & date() & "#)"
db.execute(sql)

response.redirect "ly_main.asp"
end if
%>

閱讀全文

熱點內容

領航s1配置怎麼樣發布：2025-01-26 09:58:10 瀏覽：763

公司區域網搭建伺服器搭建發布：2025-01-26 09:16:56 瀏覽：433

android裁剪圓形圖片發布：2025-01-26 09:05:56 瀏覽：411

小貸源碼發布：2025-01-26 08:20:58 瀏覽：536

更換電腦名登錄伺服器發布：2025-01-26 07:56:52 瀏覽：240

後台phpjava 發布：2025-01-26 07:12:34 瀏覽：657

微信解綁密碼是什麼發布：2025-01-26 06:50:07 瀏覽：734

app如何訪問伺服器發布：2025-01-26 06:36:56 瀏覽：741

拳皇安卓單機哪裡下載發布：2025-01-26 06:30:46 瀏覽：539

注冊會員時積分消費密碼是什麼發布：2025-01-26 06:30:45 瀏覽：247

留言板asp源碼

與留言板asp源碼相關的資訊