留言板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
%>

阅读全文

热点内容

华为高斯数据库发布：2025-01-25 08:55:38 浏览：30

php是动态语言发布：2025-01-25 08:45:44 浏览：66

服务器关闭了电脑网络还能用发布：2025-01-25 08:22:28 浏览：587

热血航线的登录密码在哪里可以看发布：2025-01-25 08:22:27 浏览：769

5系怎么选择配置发布：2025-01-25 08:22:18 浏览：842

pythonscipy 发布：2025-01-25 08:18:52 浏览：418

恕瑞玛服务器地址发布：2025-01-25 08:18:51 浏览：801

oa源码php 发布：2025-01-25 08:11:31 浏览：734

gpc脚本发布：2025-01-25 08:10:47 浏览：317

云服务器和服务器的区别发布：2025-01-25 08:10:39 浏览：547

留言板asp源码

与留言板asp源码相关的资讯