返回主页返回主页
书写留言我要留言
管理入口管理入口

<% set rs=server.createobject("adodb.recordset") sql="select * from book order by id desc" rs.open sql,conn,1,1 if rs.eof and rs.bof then showpages response.write "

还 没 有 任 何 留 言

" else totalPut=rs.recordcount '记录总数 if currentPage=1 then showpages showContent showpages else if (currentPage-1)*MaxPerPage <% do while not (rs.eof or err) %>

<% if rs("fromwhere")<>"" then %> <% end if if rs("email")<>"" then %> <% end if if rs("homepage")<>"" and rs("homepage")<>"http://" then %> <% end if %> <% if rs("content")<>"" then %> <% end if if rs("anser")<>"" then%> <%sss=cstr(rs("id"))+"abc"%> <%end if%>
大名 留言内容
该留言发表于: <% =rs("dateandtime") %>北京时间

<% if rs("sex")<>"不想说" then name=rs("name") & "
" else name=rs("name") end if Response.Write name %>

  ">给作者发信邮箱 来自：<% display rs(">地区

留言主题<% if rs("contenttop")<>"" then if rs("content")<>"" then contop=rs("contenttop") Response.Write contop else contop=rs("contenttop") & "(无内容)" Response.Write contop end if else contop=rs("name") & "留言说(无主题)" Response.Write contop end if %>

　

<% display rs("content") ' Response.Write rs("content") %>

 
回复于[<%Response.Write rs("ansertime")%>]
<% display rs("anser") 'Response.Write rs("anser") %>

<% i=i+1 if i>=MaxPerPage then exit do '循环时如果到尾部则先退出，如果记录达到页最大显示数，也退出 rs.movenext loop end sub sub showpages() %>

<% If currentPage <> 1 Then Response.Write "[第一页] " Response.Write "[上一页] " End If If currentPage <> rs.PageCount Then Response.Write "[下一页] " Response.Write "[最后一页] " End If %> 您目前浏览的是第[<%=currentPage%>]页，共有[<%=rs.PageCount%>]页 输入页数

<% end sub %>

　

　
　

:::::::::::::::::::ALL RIGHTS RESERVERD & COPY:MOYI©2001:::::::::::::::::::