新微赢技术网

标题: 求助]查询出来的信息怎么分页显示出来 [打印本页]

作者: 黑角残叶 时间: 2010-1-18 00:20
标题: 求助]查询出来的信息怎么分页显示出来
[我查询出来的信息,可以分页显示,但是不能换页,请各位高手知道一下,代码如下 <% if request.Form("submit2")="搜索" then select1 = request.QueryString("select1") select1 = request.Form("select1") txttitle = request.Form("txttitle") set rs = server.CreateObject("ADODB.Recordset") if request.Form("select1")="" and request.Form("txttitle")="" then rs.open "select newid as 新闻ID ,newtitle as 新闻标题,newasstitle as 新闻副标题 ,newtime as 上传时间,newstpye as 新闻类型,newOfferMan as 上传人用户名 from TYnew where newstart = '未审查'",cn,3,2 rs.pagesize = 10 page = clng(request("page")) if page < 1 then page = 1 if page > rs.pagecount then page = rs.pagecount %> </p> <table border="0" height=50 align="center" class="txt_border" > <tr><td></td> <%for i = 0 to rs.fields.count-1 'response.Write "<td>"&rs.fields(i).name&"</td>" next%> </tr> <% rs.absolutepage = page for ipage =1 to rs.pagesize recno = (page-1) *rs.pagesize+ipage %> <tr><td></td> <%for i = 0 to rs.fields.count-1%> <td><a href="updatenew.asp?newID=<%=rs.fields(0)%>&pagestart=1"> <%=rs.fields(i).value%></a> </td> <%next%> </tr> <% rs.movenext if rs.eof then exit for next %> </table> <span class="style31"> <p align="center"> <% if page <>1 then response.Write "<a href = updatenew2.asp?page=1&selete1 ="&request.Form("select1")&">第一页</a>  " response.Write "<a href = updatenew2.asp?page=" & (page-1) & "&selete1 ="&request.Form("select1")&"> 上一页</a>  " end if if page <> rs.pagecount then response.Write "<a href = updatenew2.asp?page=" & (page+1) & "&selete1 ="&request.Form ("select1")&"> 下一页</a>  " response.Write "<a href = updatenew2.asp?page=" & rs.pagecount &"&selete1="&request.Form("select1")&">最后一页</a>" end if %> </p> <p align="center">页数：<%=page%>/<%=rs.pagecount%> </p></span> <%end if%>

作者: 痴情浪子 时间: 2010-3-3 08:05
你这样的表现，就只配这几个字：太有才了!

欢迎光临新微赢技术网 (http://bbs.weiying.cn/)