学步园

［PageTest.asp］

<!--#include file="conn.asp"-->
<!--#include file="object.asp"-->
<%

strSql = "select * from authors"

set rs=server.CreateObject("ADODB.RecordSet")

rs.open strSql,conn,1,1

set page = new PageBase

page.pagesize = 7

if not isnumeric(request("page"))  then
 page.currentpage=1
else
 if (cint(request("page")<1)) then
  page.currentpage=1
 else
  page.currentpage=request("page")
 end if
end if

page.linkurl="pagetest.asp"

page.show(rs)

page.FenYe(rs)
%>

［object.asp］

<%

'***********************************
'*
'*    尼德类
'*
'*    主要有：分页类。。。。。
'*
'*    coolwind  QQ :1294420
'*
'***********************************

class PageBase
dim pagesize '每页显示的记录数
dim currentpage'当然页面数
dim linkurl '链结URL

sub show(oRs)

 '显示分页符号的子程序---------------------------------------------------------------
 i=0
 rs.Move pagesize*(currentpage-1)
 do while not oRs.eof and i<pagesize
  response.write i&"--"&oRs(1)&"<br>"
  i=i+1
  oRs.movenext
 loop
End sub

'显示分页符号的子程序---------------------------------------------------------------

sub FenYe(oRs)

 totalput = oRs.recordcount
 pagesum = totalPut / PageSize
 if(pagesum="0") then pagesum=1

 '如果是第一页
 response.write "第"&currentpage&"页/共"&pagesum&"页"

 maxpage = 0
 minpage = 0
 if((currentpage-5)>1) then
  minpage = currentpage-5
  if (currentpage+4)>pagesum then
   maxpage = pagesum
  else
   maxpage = currentpage+4
  end if
 else
  minpage = 1
  if pagesum>10 then
   maxpage = 10
  else
   maxpage = pagesum
  end if
 end if
 if(cint(currentpage-1)>0) then
  if(cint(currentpage-1)>cint(pagesum)) then
   response.write "<a href="&linkurl&"?Page="&pagesum&" ><<上一页</a>"
  else
   response.write "<a href="&linkurl&"?Page="&currentpage-1&" ><<上一页</a>"
  end if
 end if
 for j=minpage to maxpage+1
  if(cint(j)=cint(currentpage)) then
   response.write "["&j&"]"
  else
   response.write "[<a href="&linkurl&"?Page="&j&" >"&j&"</a>]"
  end if
 next
 if(cint(pagesum-currentpage)>=0) then
  response.write "<a href="&linkurl&"?Page="&currentpage+1&">下一页>></a>"
 end if
 response.write "<br>"

end sub

end class
%>

［conn.asp］

<%
'***********************************
'*
'*
'*    与MSSQL数据库连接
'*
'*    coolwind  QQ :1294420
'*
'***********************************
dim conn  
 dim connstr  
connstr="provider=sqloledb;data source=localhost;uid=sa;pwd=;database=pubs;"
 set conn=server.createobject("ADODB.CONNECTION")
 
 if err.number<>0 then
  err.clear
  set conn=nothing
  response.write "数据库连接出错！"
  Response.End
 else
  conn.open connstr
  if err then
   err.clear
   set conn=nothing
   response.write "数据库连接出错！"
   Response.End
  end if
 end if  
 
%>