<% dim exec, rs, page, recordcount dim rs1, pagecount, strpageList rem strpagelist是分頁顯示的字符串 exec="select top 1 topicNum from const" set rs=conn.execute(exec) RecordCount=rs(0) rs.close page=encodestr(Request.querystring("page")) if page="" or not isNumeric(page) then page=1 else page=int(page) end if pageCount=RecordCount/rcPerPage pageCount=int(pageCount) if (RecordCount mod rcPerPage)>0 then PageCount=PageCount +1 end if if page>pageCount then page=pageCount end if %> 德州扑克五台山:四川省中國青年旅行社-1997 - 德州扑克天下网
發新留言

<% strPageList=pageList() response.write (strPageList) if page<=1 then if session("bz")="bz" then exec="select top "&rcPerpage&" * from ly where rt=0 and deleted=0 order by reid desc" else exec="select top "&rcPerpage&" * from ly where rt=0 and checked=1 and deleted=0 order by reid desc" end if 'exec="select top "&rcPerpage&" * from ly where rt=0 order by reid desc" else if session("bz")="bz" then exec = "select top "&rcPerPage*(page-1)&" reid from ly where rt=0 and deleted=0 order by reid desc" else exec = "select top "&rcPerPage*(page-1)&" reid from ly where rt=0 and deleted=0 and checked=1 order by reid desc" end if dim RStemp Set RStemp = Server.CreateObject("ADODB.RecordSet") RStemp.Open exec, Conn, 0, 1 dim iTemp dim iSkip iSkip = rcPerpage*(page-1)-1 rstemp.move(iSkip) If RStemp.EOF Then rstemp.close set rstemp=Nothing response.write ("早期留言已存檔.") %> <% Response.End End if iTemp = rstemp("reid") 'response.write iTemp & "
" rstemp.close set rstemp=nothing 'exec = "select top "&rcPerpage&" * from ly where rt=0 and reid<"&iTemp&" and deleted=0 and checked=1 order by reid desc" if session("bz")="bz" then exec="select top "&rcPerpage&" * from ly where rt=0 and reid<"&iTemp&" and deleted=0 order by reid desc" else exec="select top "&rcPerpage&" * from ly where rt=0 and reid<"&iTemp&" and checked=1 and deleted=0 order by reid desc" end if 'exec="select top "&rcPerpage&" * from ly where rt=0 and reid <%If 1=2 Then '不要搜索,搜索會有 Microsoft JET Database Engine 錯誤 '80040e14'內存溢出 錯誤,因字符集問題 %>
我要搜索
<%End if%> <%else %> <%end if response.write strPageList function pageList() dim p,i if page<1 then page=1 end if if pagecount<1 then pagecount=1 end if pageList="" pageList=pageList & "" pageList=pageList & "
共有咨詢 "& RecordCount + 1130000 &" 個,共 "& pageCount +113000 &"" if page=1 then 'pageList=pageList & " 留言咨詢首頁" else 'pageList=pageList & " 留言咨詢首頁" end if if page=1 then 'pageList=pageList & " 前一頁" else 'pageList=pageList & " 前一頁" end if if pagecount-page=0 then 'pageList=pageList & " 下一頁" else 'pageList=pageList & " 下一頁" end if pageList=pageList & "" 'pagecount=2 p=int(page/pageLinkNum) if page mod pageLinkNum>0 then p=p+1 end if p=(p-1)*pageLinkNum+1 'response.write p 'response.end i=p+(pageLinkNum-1) if i> pagecount then i=pagecount end if if p>pageLinkNum then pageList=pageList & "[<<]" end if do while p<=i if p=page then pageList=pageList & "["&p&"]" else pageList=pageList & "德州扑克天下网" end if p=p+1 loop p=p-1 if p< pagecount then pageList=pageList & "[>>]" end if pageList=pageList & "
" end function %>