我自己用的ASP分頁函數

<%
'=======================================================================
'   函數名:FenYe(url,pageCount,recordCount,curPage,cssstyle)             *
'   作者:Rock    E_Mail:[email protected]
'   功能:分頁                                                            =
'   參數:url當前頁的網址;pageCount總頁數;                                =
'           recordCount;總記錄數;curPage當前頁數; cssstyle連接的樣式表   =
'   示例:Call FenYe("wangzhi.asp",rs.PageCount,rs.RecordCount,page,"class='memu2'")      =
'=======================================================================
Sub FenYe(url,pageCount,recordCount,curPage,cssstyle)
if url="" then Exit Sub
if inStr(url,"?")<>0 then
   if right(url,1)<>"?" then
    url=url&"&"
   end if
else
   url=url&"?"
end if
if pagecount<=1 then exit sub
Response.Write "共"&recordCount &"條記錄&nbsp;&nbsp;" & curPage & "/" & pageCount   & "頁"
if curpage=1 then
   Response.Write "&nbsp;&nbsp;[首 頁]&nbsp;&nbsp;[上 頁]"
else
   Response.Write "&nbsp;&nbsp;<a "&cssstyle&" href='"&url&"page=1'>[首 頁]</a>&nbsp;&nbsp;<a "&cssstyle&" href='"&url&"page="& curPage-1 &"'>[上 頁]</a>"
end if
if Cint(curPage)=Cint(PageCount) then
   Response.Write "&nbsp;&nbsp;[下 頁]&nbsp;&nbsp;[尾 頁]"
else
   Response.Write "&nbsp;&nbsp;<a "&cssstyle&" href='"&url&"page="& curPage+1 &"'>[下 頁]</a>&nbsp;&nbsp;<a "&cssstyle&" href='"&url&"page="& pageCount &"'>[尾 頁]</a>"
end if
Response.Write "&nbsp;&nbsp;跳轉到&nbsp;<select name='select1' size='1' onChange='javascript:window.location.replace(this.options[this.selectedIndex].value)'>"
for i=1 to pageCount   
      Response.Write "<option"
      If Cint(curPage) = i Then
         Response.Write " selected "
      End If
      Response.Write " value='"&url&"page="&i&"'>第" & i & "頁</option>"   
     next
Response.Write "</select>"
End Sub
%>