分页

张明康 — Wed, 21 Dec 2005 06:48:00 GMT

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>

<%
Call ConnectionDatabase
  Exec="Select * From [news] Order By Id Desc"
Set Rs=Server.CreateObject("Adodb.RecordSet")
  Rs.Open Exec,Conn,1,1
  page=Request.QueryString("page") 'page值为接受值
  Rs.PageSize = 10 '每页显示记录数
If Not IsEmpty(page) Then '如果page已经初始化...

    'response.write "1--------------"

    If Not IsNumeric(page) Then '判断page值是否为数字
        page=1
    Else
  page = cint(page) '接收page并化为数字型赋给page变量
    End If

    If page > Rs.PageCount Then '如果接收的页数大于总页数
        Rs.AbsolutePage = Rs.PageCount '设置当前显示页等于最后页
    ElseIf page <= 0 Then '如果page小于等于0
        Rs.AbsolutePage = 1 '设置当前显示页等于第一页
    Else
        Rs.AbsolutePage = page '如果大于零,显示当前页等于接收的页数
    End If

Else
  'response.write "2--------------
"
  Rs.AbsolutePage=1
  'response.write "rs.Absolutepage............." & rs.Absolutepage
  page=1

End If
'page = rs.Absolutepage

公司新闻列表

<%
For i = 1 to Rs.PageSize
   if Rs.EOF then
   Exit For
   End If
%>






<%
  Rs.MoveNext
  Next
%>

公司新闻列表
序号	标题	添加者	管理
<%=i%>	" class="black" target="_blank"><%=Rs("Title")%>	<%=Rs("Operation")%>	&Title=<%=Rs("Title")%>">修改 \| " onClick = "javascript:if(window.confirm('真的要删除此条新闻吗?')==true){return true} else return false">删除
	<%If Rs.PageCount<>1 And Rs.PageCount<>0 Then%> <%If page>1 Then%> [首页] [上一页] <%If page [下一页] [尾页] <%Else%> [下一页] [尾页] <%End If%> <%Else%> [首页] [上一页] [下一页] [尾页] <%End If %> <%Else%> [首页] [上一页] [下一页] [尾页] <%End If%> [页次:<%=page%>/<%=Rs.PageCount%>] [共<%=Rs.RecordCount%>条新闻 <%=Rs.PageSize%>条新闻/页] 转到页

<%
Rs.Close
Set Rs=Nothing
Conn.Close
Set Conn=Nothing
%>

张明康 2005-12-21 14:48 发表评论

IT博客-anteaus-文章分类-ASP

分页