分页技术Page二

调用子过程 进行分页：

定义子过程：

<%
'TarUrl=要分页显示的文件名称
'TotalNum=总记录条数
'PageNum=每页显示条数
'Page=页码
'ShowTotal=是否显示总页次
'ShowList=是否显示下拉页码
'Unit=单位
Sub ShowPage(TarUrl,TotalNum,PageNum,Page,ShowTotal,ShowList,Unit)
 Dim p,TotalPage,strTemp,strUrl
 If TotalNum mod PageNum =0 Then
  TotalPage = TotalNum \ PageNum   'totalpage=分出来多少页，的页数
 Else
  TotalPage = TotalNum \ PageNum+1
 End If

 response.write("<table width='100%'  align='center'>")
 response.write("<form name='form1' method='get' action='"&TarUrl&"'><tr><td>")
 if ShowTotal=true then
  response.write("共<b>"&TotalNum&"</b>"&Unit&"&nbsp;&nbsp;")
 end if

 if Page<2 then
  response.write("首页&nbsp;上一页&nbsp;")
 else
     response.write("<a href="&TarUrl&"?page=1>首页</a>&nbsp;")
     response.write("<a href="&TarUrl&"?page="&page-1&">上一页</a>&nbsp;")
 end if
 if TotalPage-Page<1 then
  response.write("&nbsp;下一页&nbsp;尾页")
 else
     response.write("<a href='"&TarUrl&"?page="&page+1&"'>下一页</a>&nbsp;")
     response.write("<a href='"&TarUrl&"?page="&TotalPage&"'>尾页</a>")
 end if
 response.write("&nbsp;页次："&Page&"/"&TotalPage&"&nbsp;每页&nbsp;"&PageNum&"&nbsp;"&Unit)
 if ShowList=true then
  response.write("&nbsp;转到：<select name='page' id='page' onChange='javascript:submit()'>")
  for p=1 to TotalPage
   response.write("<option value='"&p&"'" )
   if cint(page)=cint(p) then response.write("selected")
   response.write(">第"&p&"页</option>")
  next
  response.write("</select>")
 end if
 response.write("</td></tr></form></table>")
End sub
%>

 

页面调用子过程：

<%
'TarUrl=要分页显示的文件名称
'TotalNum=总记录条数
'PageNum=每页显示条数
'Page=页码
'ShowTotal=是否显示总页次
'ShowList=是否显示下拉页码
'Unit=单位
Sub ShowPage(TarUrl,TotalNum,PageNum,Page,ShowTotal,ShowList,Unit)
 Dim p,TotalPage,strTemp,strUrl
 If TotalNum mod PageNum =0 Then
  TotalPage = TotalNum \ PageNum   'totalpage=分出来多少页，的页数
 Else
  TotalPage = TotalNum \ PageNum+1
 End If

 response.write("<table width='100%'  align='center'>")
 response.write("<form name='form1' method='get' action='"&TarUrl&"'><tr><td>")
 if ShowTotal=true then
  response.write("共<b>"&TotalNum&"</b>"&Unit&"&nbsp;&nbsp;")
 end if

 if Page<2 then
  response.write("首页&nbsp;上一页&nbsp;")
 else
     response.write("<a href="&TarUrl&"?page=1>首页</a>&nbsp;")
     response.write("<a href="&TarUrl&"?page="&page-1&">上一页</a>&nbsp;")
 end if
 if TotalPage-Page<1 then
  response.write("&nbsp;下一页&nbsp;尾页")
 else
     response.write("<a href='"&TarUrl&"?page="&page+1&"'>下一页</a>&nbsp;")
     response.write("<a href='"&TarUrl&"?page="&TotalPage&"'>尾页</a>")
 end if
 response.write("&nbsp;页次："&Page&"/"&TotalPage&"&nbsp;每页&nbsp;"&PageNum&"&nbsp;"&Unit)
 if ShowList=true then
  response.write("&nbsp;转到：<select name='page' id='page' onChange='javascript:submit()'>")
  for p=1 to TotalPage
   response.write("<option value='"&p&"'" )
   if cint(page)=cint(p) then response.write("selected")
   response.write(">第"&p&"页</option>")
  next
  response.write("</select>")
 end if
 response.write("</td></tr></form></table>")
End sub
%>