剛才看到一個(gè)網(wǎng)友提到分頁的問題，就想起以前為了弄個(gè)分頁功能傷透了腦筋，現(xiàn)在我將分頁做成自認(rèn)為是最簡單的效果，讓大家參考。
　　這一段是打開表并進(jìn)行要素的賦值（省去了連接數(shù)據(jù)庫的操作，請(qǐng)大家自行解決）：
<%sql="……………………"
rs.open sql,conn,1,1 '連接表
rs.pagesize=10 '這是每頁顯示幾條記錄10代表是10條
page=clng(request("page")) '取得頁碼值
if page="" or page<1 then page=1 '處理非法頁碼問題
if page>rs.pagecount then page=rs.pagecount
rs.AbsolutePage=page%>

　　接下來將下面的代碼放到需要的位置，用于顯示翻頁鏈接：
<%if page<>1 then%><a href="page.asp?page=1">首頁</a><%else%>首頁<%end if%> |
<%if page>1 then%><a href="page.asp?page=<%=page-1%>">上一頁</a><%else%>上一頁<%end if%> |
<%if page<rs.pagecount then%><a href="page.asp?page=<%=page+1%>">下一頁</a><%else%>下一頁<%end if%> |
<%if page<>rs.pagecount then%><a href="page.asp?page=<%=rs.pagecount%>">末頁</a><%else%>末頁<%end if%> |
共<%=rs.pagecount%>頁/第<%=page%>頁/<%=rs.recordcount%>條記錄

　　再接下來將沒有用分頁時(shí)的語句：
While not rs.eof
……
rs.movenext
wend

　　替換為以下代碼：
for ipage=1 to rs.pagesize
…………
if rs.eof then exit for '最后記錄跳出循環(huán)
rs.movenext
next


　　好了，這樣夠簡單吧。。我剛開始玩這個(gè)的時(shí)候找來找去都是一大片代碼，弄得我頭都快暈了。。但愿對(duì)大家有所幫助。

　　第一次在這里貼“原創(chuàng)”，但不知道夠不夠資格上“文檔中心”哦。。呵呵。。

SunLine
2003.1.10