<!--#include file="conn.asp" --> '把數據庫連接字符串包含過來
rs.pagesize=10 '設置每頁顯示10條記錄
page=cint(request("page")) '使用queryscring獲取當前前數
if page<1 then page=1 '當頁數小于1時顯示第一頁
if page>rs.pagecount then page=rs.pagecount '當頁數大于最后一頁時顯示最后一頁
myself=request.serververiables("path_info") '獲取當前頁的相對路徑
if page>1 then rs.absolutepage=page '如果頁數大于1則顯示絕對頁數
'循環輸出頁數
for i=1 to rs.pagecount
if rs.eof then exit for '記錄在最后一條的后面退出循環
if i=page then
response.write " | "&i&" | "
else
response.write " | <a href="&myself&"/page="&i&">"&i&"</a> | "

end if
end for

'循環輸出記錄條數
for i=1 to rs.pagesize
if rs.eof then exit for
response.write rs("id")
response.write rs("user")
response.write rs("pwd")
rs.movenext
end for
'關閉數據庫以及連接
rs.close
conn.close
set conn=nothing
set rs=nothing

page=cint(request("page"))

page=strim(request("page"))
if IsNumeric(page) then
page=cint(page)
else
page=1
end if