這個程序?qū)@示翻頁連接功能單獨抽出，而不涉及其它操作，可內(nèi)置翻頁效果，方便靈活。

pagehanshu.asp

<%

’設置頁碼及URL

’value1 翻頁地址

’value2 page的值

’value3 地址標簽 eg:第一頁、下一頁

’value4 根據(jù)vaule1而定

’如果 value1 = "page.asp" 時，value4 = 1; value1 = "page.asp?id=1" 時，value4 = 0;

function page_url(value1,value2,value3,value4)

dim result

dim val

if value4 = 1 then

val = "?"

else

val = "&"

end if

result = "" & value3 & ""

page_url = result

end function

’取得翻頁的page參數(shù) 即為當前頁

function page_request()

dim page

page = request("page")

if ( page <> "" and IsNumeric(page) = false ) or page = "" then

page = 1

end if

page_request = page

end function

’設置最常用的翻頁模式，任意添加和修改

’第一種效果 寫的有點繁瑣

’n為總頁數(shù)

function pagemode1(value1,value2)

dim out

val1 = value1

val4 = value2

page = page_request()

page = CInt(page)

val2_1 = 1

val2_2 = page - 1

val2_3 = page + 1

val2_4 = n

val3_1 = "第一頁"

val3_2 = "上一頁"

val3_3 = "下一頁"

val3_4 = "最后頁"

if page = 1 then

out1 = val3_1

out2 = val3_2

else

out1 = page_url(val1,val2_1,val3_1,val4)

out2 = page_url(val1,val2_2,val3_2,val4)

end if

if page = n then

out3 = val3_3

out4 = val3_4

else

out3 = page_url(val1,val2_3,val3_3,val4)

out4 = page_url(val1,val2_4,val3_4,val4)

end if

out = out1 & "&nbsp;&nbsp;" & out2 & "&nbsp;&nbsp;" & out3 & "&nbsp;&nbsp;" & out4

pagemode1 = out

end function

’第二種效果

’n 為總頁數(shù)

function pagemode2(value1,value2)

dim out

val1 = value1

val4 = value2

for i = 1 to n

val2 = i

val3 = "第" & i & "頁"

out = out & page_url(val1,val2,val3,val4) & "&nbsp;&nbsp;"

next

pagemode2 = out

end function

%>

使用舉例（借用一下SunLine朋友的程序）

<%

sql="……………………"

rs.open sql,conn,1,1 ’連接表

rs.pagesize=10 ’這是每頁顯示幾條記錄10代表是10條

n = rs.pagecount ’取得總頁數(shù)

page=page_request()&nb

更多信息請查看IT技術專欄