<% pageno=request.querystring("pageno") pmcount=50 '每页记录数 set reco=server.createobject("ADODB.recordset") sqlstr="select * from tiaocuo order by id desc" reco.open sqlstr,conn,1,1 reco.pagesize=pmcount mpage=reco.pagecount if isempty(pageno) or cint(pageno)<1 or cint(pageno)>mpage then pageno=1 end if reco.absolutepage=pageno %> 留言版
 <<< 回到首页 留 言 板 我也来书上一笔 >>> 

<% rc=reco.pagesize re=1 do while not reco.eof and rc>0 %>
商家 id<%=reco("busid")%> 线路<%=reco("bushao")%> 地址 <%=reco("tphone")%> 留言日期 <%=reco("taddtime")%>
留言内容 <%=reco("tneirong")%>
站长答复   回复日期  

<% reco.movenext re=re+1 rc=rc-1 loop %>
  [ <% for pno=1 to mpage if pno=cint(pageno) then%> <%=pno%> <%else%><%=pno%> <%end if%> <%next%>]
<%set reco=nothing set conn=nothing%>