欢迎您来到九江市赣北公路监理咨询有限公司-留言平台!  
 
 
如果您对我们的服务有任何问题,欢迎您在这儿留言→我要留言
<% set rs=server.CreateObject("adodb.recordset") Sql="select * from Feedback where Online=1 order by top desc" 'response.Write(sql) 'response.end rs.open Sql,conn,1,1 if not (rs.eof and rs.bof) then '如果有留言时,就显示留言。此行的if与倒数第6行的end if相对应 if pages=0 or pages="" then pages=4 '每页留言条数 rs.pageSize = pages '每页记录数 allPages = rs.pageCount '总页数 page = Request("page") '从浏览器取得当前页 'if是基本的出错处理 If not isNumeric(page) then page=1 if isEmpty(page) or Cint(page) < 1 then page = 1 elseif Cint(page) >= allPages then page = allPages end if rs.AbsolutePage = page '转到某页头部 Do While Not rs.eof and pages>0 UserName=rs("UserName") '用户名 pic=rs("pic") '头像 face=rs("face") '表情 Comments=rs("Comments") '内容 bad1=split(bad,"/") '过滤脏话 for t=0 to ubound(bad1) Comments=replace(Comments,bad1(t),"***") next Replay=rs("Replay") '回复 Usermail=rs("Usermail") '邮件 dh=rs("dh") '主页 I=I+1 '序号 temp=RS.RecordCount-(page-1)*rs.pageSize-I+1 %>
昵称:<%=left(UserName,4)%>
来自:<%=left(rs("ip"),(len(rs("ip"))-4))+"**"%>
邮 件
<%if rs("top")<>"1" then response.write "[NO."&temp&"]"%>  <%=left(UserName,4)%> 发表于:<%=cstr(rs("Postdate"))%>
<% '是否屏蔽留言内容中的html字符 if html=0 then response.write replace(server.htmlencode(Comments),vbCRLF,"
") else response.write trim(replace(Comments,vbCRLF,"
")) end if %>

<%if rs("Replay")<>"" then%>
管理员回复 :
<%=Replay%>

<%end if%>
<% pages = pages - 1 rs.movenext if rs.eof then exit do loop response.write "
总计留言"&RS.RecordCount&"条 " if page = 1 then response.write "首页 前页" else response.write "首页 前页" end if if page = allpages then response.write " 下页 末页" else response.write " 下页 末页" end if response.write " 第"&page&"页 共"&allpages&"页   转到第 " response.write "
" response.write "
" else response.write "
" if keywords="" then response.write "暂时没有留言" else response.write "抱歉,没有找到您要查到的内容

返回上一页" end if response.write "
" end if %>
 
 
 
版权所有:九江市赣北公路监理咨询有限公司 Copyright@2013-2015 www.jjgljl.com ALL Rights Reserved