<%
dim notebooksetup,pages,html,bookjianju,huifutishi,huifuyanse,bad,sql,keywords,rsnotebook
dim allpages,page,id,name,qq,pic,face,title,content,bad1,t,ip,replay,insertdate,i
dim temp,p,rsnotebooksql
set notebooksetup=conn.execute("select * from notebook_setup") '载入留言设置
pages=clng(notebooksetup("pages")) '每页显示的记录数
html=clng(notebooksetup("html")) '是否屏掉HTML代码
bookjianju=clng(notebooksetup("bookjianju")) '留言间距
huifutishi=cstr(notebooksetup("huifutishi")) '回复提示
huifuyanse=cstr(notebooksetup("huifuyanse")) '回复颜色
bad=cstr(notebooksetup("bad"))
'----------------------------------------------------
set rsnotebook=server.CreateObject("ADODB.Recordset")
sql="select * from notebook where online='1'"
keywords=request("keywords")
if keywords<>"" then sql=sql+ " and content like '%"&keywords&"%' "
sql=sql + "order by top desc,id desc"
rsnotebook.open sql,conn,3,1
if not (rsnotebook.eof and rsnotebook.bof) then '
if pages=0 or pages="" then pages=5 '从留言版的页面设置中读取每页显记录数，并做处理
rsnotebook.pagesize=pages '定义每页显示记录数
allpages=rsnotebook.pageCount '总记录数
page=request("page") '取到当前页
'错误处理
if not Isnumeric(page) then page=1 '如果不是数字page=1
if Isempty(page) or clng(page)<1 then '为空或是小于1 page=1
page=1
elseif clng(page)>=allpages then 'page大于最大页数就应等于它
page=allpages
end if
rsnotebook.absolutepage=page '转到某页的头部
do while not rsnotebook.eof and pages>0
id=rsnotebook("id")
name=rsnotebook("name")
email=rsnotebook("email")
urlp=rsnotebook("url")
qq=rsnotebook("qq")
pic=rsnotebook("pic")
face=rsnotebook("face")
title=rsnotebook("title")
content=cstr(rsnotebook("content"))
bad1=split(bad,"/")
for t=0 to Ubound(bad1)
content=replace(content,bad1(t),"***")
next
ip=rsnotebook("ip")
replay=rsnotebook("replay")
insertdate=rsnotebook("insertdate")
i=i+1
temp=rsnotebook.recordcount-(page-1)*rsnotebook.pagesize-i+1
%>
| [NO.<%=temp%>] |
姓名：<%=left(name,4)%> |
发表于：<%=split(insertdate)(0)%> |
|
<%'************************************显示留言内容 ***********************************%>
<%
if html=0 then '0是过滤HTML代码
response.Write replace(server.HTMLEncode(content),vbcrlf,"
")
else
response.Write replace(content,vbcrlf,"
")
end if
%>
<%'*************************************如有回复显示内容*******************************%>
<% if replay<>"" then%>
<%=huifutishi%>:
<%=replay%> |
<% end if%>
<%'************************************调整留言间距************************************%>
|
|
<%
'**************************************************************************************************************************
pages=pages-1
rsnotebook.movenext
if rsnotebook.eof then exit do
loop
response.Write " "
'response.Write ""&rsnotebooksql&""
else
response.write " "
if keywords="" then response.write "暂时还没有留言,点击留言。" else response.write "抱歉，没有找到您要查到的内容
返回上一页" end if
response.write " |
"
end if
%>
|
|
