<% dim yh,rs,sql,mypage,zhishu,mail,webname,web,webmail,master,adminok,i yh=Request.QueryString("yh") mypage=50'rs("pagesize") %> 留言搜索 <%dim strsql,page,fname,sou,rs1 'SELECT top 100 storytitle, name, ly, FROM dbo.book WHERE isshow = 1 ORDER BY addtime DESC strsql="SELECT top 100 storytitle, name, ly, addtime FROM dbo.book WHERE isshow = 1 ORDER BY addtime DESC" set rs1=server.CreateObject("adodb.recordset") rs1.Open strsql,conn,1,1 rs1.pagesize=mypage Dim TotalPages,totalput,scount totalPut=rs1.recordcount TotalPages = RS1.PageCount scount=INT(Rs1.recordcount) if Request.QueryString("page")=""then page=1 else page=cint(Request.QueryString("page")) end if if rs1.EOF then%>


对不起！没有找到你要的内容，请重新查找！！！









<%else rs1.AbsolutePage=page i=0 %>

z本页共有<%=totalPut-(i+(Page-1)*Mypage)%>条留言

z返回首页
<% do while (not rs1.EOF) and (i <%i=i+1 rs1.MoveNext loop end if%>

标题

用户名

留言内容

><%=rs1("storytitle")%>

<%=rs1("name")%>

<%=left(rs1("ly"),30)%>...

关键字：   
找到<%=rs1.RecordCount%>条留言  共<%=rs1.PageCount%>页   <%if page>1 then%> 上一页 <%end if%>   当前为第<%=page%>页   <%if page 下一页 <%end if%> 顶部顶端
<%rs1.close set rs1=nothing call endConnection()%>