|
|
检查筛选
显示有汉字留言主题、文明合法、详细清晰的汉字留言内容
留言板部分代码
<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> <input name="submit"
type="submit"
value="提交"
size="20"> <% '定义变量 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 %>
