sql="select * from pz where id=1"
rs.open sql,conn,1,1
htsh=rs("sh")
%>
'#################################################################
'# 程序名称：随缘网络留言本 V1.0
'# 授权方式：免费软件
'# 作者：随缘网络 QQ:84723090
'# 演示及技术支持：http://www.115cn.cn/book
'# 发布时间：2007-8-8
'# 声明：本程序由随缘网络独立自主开发，保留所有版权。
'# 各种用途均可免费使用、自由传播，但必须保留程序代码中的版权信息。
'#################################################################
%>
sql2="select top 1 * from book where sh=1 and gg=1"
rs2.Open sql2,conn,1,1 %>
随缘网络带审核置顶功能留言簿V1.0--首页
.style1 {color: #FFFFFF}
-->
key=request("key")
fl=request("fl")
%>
签写留言
浏览留言
公告：
page=clng(request("page"))
Set rs=Server.CreateObject("ADODB.RecordSet")
if htsh=1 then
if key="" and fl="" then
sql="select * from book where sh=1 order by gg desc, top desc,sj desc"
else
if fl=1 then
sql="select * from book where bt Like '%"& key &"%'and sh=1 order by gg desc, top desc,sj desc"
else
sql="select * from book where nr Like '%"& key &"%'and sh=1 order by gg desc, top desc,sj desc"
end if
end if
else
if key="" and fl="" then
sql="select * from book order by gg desc, top desc,sj desc"
else
if fl=1 then
sql="select * from book where bt Like '%"& key &"%'order by gg desc, top desc,sj desc"
else
sql="select * from book where nr Like '%"& key &"%' order by gg desc, top desc,sj desc"
end if
end if
end if
rs.Open sql,conn,1,1
i=1
if rs.eof and rs.bof then
response.Write("没有留言")
else
rs.PageSize=5
if page=0 then page=1
pages=rs.pagecount
if page > pages then page=pages
rs.AbsolutePage=page
for j=1 to rs.PageSize
%>
称呼：
来自：
邮件：邮件
主页：主页
置顶 公告：主题：
发表于：
：
管理员回复：
i=i+1
rs.movenext
if rs.eof then exit for
next
%>
response.write "首页 上一页 "
else
response.write "首页 "
response.write "上一页 "
end if
if rs.pagecount-page response.write "下一页 尾页"
else
response.write ""
response.write "下一页 尾页"
end if
response.write " 页次："&Page&"/"&rs.pagecount&"页 "
response.write " 共"&rs.recordcount&"条记录 "&rs.pagesize&"条记录/页"
response.write " 转到："
response.write " "
%>
主题搜索
内容搜索
随缘网络带审核置顶功能留言簿V1.0 版权所有：厦门随缘网络科技
制作：随缘
end if
rs.close
set rs=nothing
%>
