台灣最大程式設計社群網站
線上人數
967
 
會員總數:246046
討論主題:189631
歡迎您免費加入會員
討論區列表 >> 專欄文章 >> 類似奇摩分頁的語法(marge)
[]  
[我要回覆]
回應主題 加入我的關注話題 檢舉此篇討論 將提問者加入個人黑名單
類似奇摩分頁的語法(marge)
價值 : 0 QP  點閱數:3868 回應數:0
樓主

站務人員 站長
門外漢
0 1580
542 9
發送站內信

捐贈 VP 給 站務人員
--------------------------
txtjump.asp
<%
'--------------------
' 文字型跳頁
'--------------------
pstr = "txtjump.asp"

PageShow = 5 '每頁顯示筆數
PageCount = 23 '假設總筆數為 23 筆

if request.querystring("p") = "" then
page = 1
else
page = request.querystring("p")
end if

page = cint(page)

strPage = page/PageShow
strPage2 = page\PageShow

IF strPage = strPage2 Then
strPage = strPage-1
End IF

Tstartpage = fix(strPage) * PageShow

For ij=1 to PageShow

i = ij + Tstartpage

'記錄第一個號碼
IF ij= 1 Then FirstI = i

IF i = Page Then
Jpage2 = Jpage2 & " [" & i & "] "
Else

IF rPrevID =0 and rLastID=0 Then
Jpage2 = Jpage2 & " <a href=" & Pstr & "?P=" & i & ">" & i & "</a> "
Else
IF rPrevID > 0 Then
Jpage2 = Jpage2 & " <a href=" & Pstr & "?P=" & i & ">" & i & "</a> "
End IF
IF rLastID > 0 Then
Jpage2 = Jpage2 & " <a href=" & Pstr & "?P=" & i & ">" & i & "</a> "
End IF
End IF
End IF

IF i => PageCount Then
Exit for
End IF

Next

'第1頁
IF Page > PageShow Then
Jpage2 = "<a href=" & Pstr & "?P=1>[第1頁]</a> " & _
"<a href=" & Pstr & "?P=" & FirstI-PageShow & ">[上" & PageShow & "筆]</a>" & Jpage2
End IF

'下 N 頁
IF Page < PageCount and i <> PageCount Then
Tpage = Pagecount - i
if Tpage > PageShow Then Tpage = PageShow
Jpage2 = Jpage2 & " <a href=" & Pstr & "?P=" & i+1 & ">[下" & TPage & "筆]</a>"
End IF


Jpage2 = "<font size=3>" & Jpage2 & "</font>"

response.write "Jpage2=" & jpage2 & "" & vbcrlf

%>

本篇文章發表於2001-05-11 00:00
目前尚無任何回覆
   

回覆
如要回應,請先登入.