【一张表格怎么分页】一个分页的例子

2017-07-13 新闻 阅读:

     实现对新闻的分页例子,源代码如下:

<% 
strCode = Request.QueryString("itemcode") 
Set Conn = Server.CreateObject("Adodb.Connection")
Conn.Open Application("tt18_ConnectionString")
Set Rs = Server.CreateObject("Adodb.Recordset")
Sql="select * from NewsHeadC where itemcode = ""&strCode&"" order by TrDate DESC,a.NewsTime DESC"
Rs.Open Sql,Conn,1,3
Rs.PageSize = 15
Count = Rs.PageCount
if Rs.BOF or Rs.EOF then
  Response.Write "" & vbCrlf
  Response.Write "

&nbsp;&nbsp;&nbsp;" & vbCrlf
  Response.Write "

對不起,還沒有----相應的數據" & vbCrlf 
  Response.Write "

 

 

" & vbCrlf
else
  Rs.AbsolutePage = page
  for i = 1 to Rs.PageSize
    Trdate = left(RS("trdate"),4) & "-" & mid(RS("trdate"),5,2) & "-" & right(RS("trdate"),2)
    Response.Write "" & vbCrlf
    Response.Write "

" & Trdate & "&nbsp;" & vbCrlf
    Response.Write "

" & vbCrlf
    Response.Write "<a href=""javascript:goto_jump(" & Rs("id") & "," & Rs("trdate") & ","" &     
       Rs("Newscode") & ""," & Rs("Identity") & ")""> " & vbCrlf
    Response.Write Rs("HeadLine") & "" & vbCrlf
    Response.Write "

 

 

" & vbCrlf
    Rs.MoveNext
    If Rs.EOF Then Exit For
  next
  Response.Write "" & vbCrlf
  Response.Write "

" & vbCrlf
  if page <>1 then
     Response.Write "首頁" & vbCrlf
  end if
  tmppage = page - 1 
  if tmppage <= 0 then 
     tmppage = 1 
  else
     Response.Write"上一頁"& vbCrlf
  end if
  tmppage = page + 1 
  if tmppage > Rs.PageCount then 
     tmppage = page
  else
     Response.Write "下一頁"&vbCrlf
  end if 
  if Cstr(page) <> Cstr(Rs.PageCount) then
    Response.Write "尾頁&vbCrlf
  end if 
  Response.Write "第" & page & "頁&nbsp;"
  Response.Write "總共有:" & Rs.PageCount & " 頁" & vbCrlf 
  Response.Write "<INPUT type=button value=關閉窗口 name=button1 height=12 size=18   
  onclick="javascript:return window.close();" style="BACKGROUND-COLOR: beige; FONT-SIZE: smaller; 
  HEIGHT: 22px; WIDTH: 66px">" & vbCrlf
  Response.Write "

 

" & vbCrlf
end if
%>

 

【一张表格怎么分页】一个分页的例子

http://m.hzclsc.cn/ruanjianzixun/422.html

推荐访问:怎么把分页弄成一页

新闻推荐文章

推荐内容

上一篇:创建数据库的sql语句|SQL数据库的一些攻击 下一篇:iframe嵌套页面_Iframe的隐藏和显示