留言板

留言板

留言主题： **

留言内容：
**

用户姓名： **

电子邮箱：


删除
留言主题：	kvYBRnsVZfEQ
留言内容：	http://imrdsoacha.gov.co/silvitra-120mg-qrms
用户姓名：
留言日期：	2022/4/19

删除
留言主题：	dejdpBcDOrMlryCovz
留言内容：
用户姓名：
留言日期：	2021/10/4

删除
留言主题：	WIfkBjXcDMbzlz
留言内容：
用户姓名：	clngxd
留言日期：	2021/9/3

删除
留言主题：	bPkZhuRhnzoUe
留言内容：
用户姓名：
留言日期：	2021/8/4

删除
留言主题：	zofaImEGTf
留言内容：
用户姓名：	clsvpuz
留言日期：	2021/5/12

删除
留言主题：	TylBcncXCUOX
留言内容：
用户姓名：
留言日期：	2021/4/23

删除
留言主题：	fAkgcKRDMlvOd
留言内容：
用户姓名：
留言日期：	2021/3/14

删除
留言主题：	EbTMekNYFbuKQser
留言内容：
用户姓名：
留言日期：	2021/1/20

删除
留言主题：	IZAqCIVqGQDpkT
留言内容：
用户姓名：	artutf
留言日期：	2021/1/19

删除
留言主题：	uoQoZwcDbtm
留言内容：
用户姓名：
留言日期：	2020/12/27

删除
留言主题：	ZxZIKBXNJILRP
留言内容：
用户姓名：	ohwjvi
留言日期：	2020/12/26

删除
留言主题：	wxOjzDsZfb
留言内容：
用户姓名：	ywhdfh
留言日期：	2020/11/17

删除
留言主题：	任教多年建网站
留言内容：	广东佛山谢老师，任教多年建网站。网络编程ＡＳＰ，调用网络数据库。自建网站十七年，访问人次几十万。曾经带班六十多，指导建站二千多。
用户姓名：	wltd838
留言日期：	2017/3/2

留言板部分代码

<form method="post" action="add.asp" name="form1"

onsubmit="JavaScript: return check_Null();">

留言主题：<input type="text" name="title" size="60">

留言内容：<textarea name="body" rows=4 cols=60 wrap=soft></textarea>

'定义变量

Dim Sql,rs

Sql="Select guest_id,title,body,name,email,submit_date From guest "

Sql=Sql & " Order By submit_date desc,guest_id desc" '打开留言表

SET rs=cn.Execute(Sql) '创建记录集

If Not rs.Bof And Not rs.Eof Then '如果非记录集的头尾

Do While Not rs.Eof '非记录集的尾执行

留言主题：<%=rs("title")%>

留言内容：<%=rs("body")%>

rs.MoveNext '移到下一记录

Loop

rs.Close '关闭记录集

cn.Close '关闭数据库连接

<% End If %>