//带省略号分页
Dim Num,pPage,nPage,a,pageid
pPage = Document("PrevPage") //上一页
nPage = Document("NextPage") //下一页
Num = document("pageNum") //当前页
pageid = document("id") //当前页id (例12145.shtml、12145_2.shtml)
set pageall = document("pages")
a=0
For each page in pageall
a=a+1
Next
If Trim(pPage) <> "" Then
Response.Output "<a href=" & pPage & " id=""pre_page"">上一页</a>"
End If
If Num - 1 > 4 then
Response.Output "<a href=" & pageid & ".shtml>1</a>"
Response.Output "..."
For i=Num-3 To Num-1
Response.Output "<a href="& pageid &"_"& i &".shtml>" & i & "</a>"
Next
Else
For i=1 To Num-1
If i=1 then
Response.Output "<a href=" & pageid & ".shtml>" & i & "</a>"
Else
Response.Output "<a href=" & pageid & "_" & i & ".shtml>" & i & "</a>"
End if
Next
End If
If Num = 1 Then
Response.Output "<a href="& pageid &".shtml class=""de"">" & Num & "</a>"
Else
Response.Output "<a href="& pageid & "_" & Num & ".shtml class=""de"">" & Num & "</a>"
End if
If a - Num > 4 Then
For i=Num+1 To Num+3
Response.Output "<a href=" & pageid & "_"& i & ".shtml>" & i & "</a>"
Next
Response.Output "..."
Response.Output "<a href=" & pageid & "_" & a & ".shtml>" & a & "</a>"
Else
For i=Num+1 To a
Response.Output "<a href=" & pageid & "_" & i & ".shtml>" & i & "</a>"
Next
End If
If Trim(nPage) <> "" Then
Response.Output "<a href=" & nPage & " id=""next_page"">下一页</a>"
End If