动网论坛一个数字分页的函数

最新推荐文章于 2025-07-27 11:27:25 发布

lg_lin

最新推荐文章于 2025-07-27 11:27:25 发布

阅读量917

点赞数

分类专栏： asp 文章标签： function action

asp 专栏收录该内容

81 篇文章

订阅专栏

本文介绍了一种使用VBScript编写的数字分页Functionpageline，该函数能够根据当前页数和总页数生成分页链接。通过判断当前页的位置来显示省略号，实现了简洁的分页导航。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

'数字分页
Function pageline(CurrentPage,Pcount)'CurrentPage当前页,Pcount页总数
dim Endpage
Endpage=0
if (CurrentPage > 4) then
response.write ("<a href=?page=1&action=inbox>[1]</a> ...")
end if
if (Pcount>CurrentPage+3) then

Endpage=CurrentPage+3
else
Endpage=Pcount
end if
for i=CurrentPage-3 to Endpage
if (i>=1) then
if (i = CurrentPage) then
response.write ("<font color=#FF0000>["&i&"]</font>")
else
response.write ("<a href=?page="&i&"&action=inbox>["&i&"]</a>")
end if
end if
next
if (CurrentPage+3 < Pcount) then
response.write ("...<a href=?page="&Pcount&"action=inbox>["&Pcount&"]</a>")
end if
if (Endpage = 0) then
response.write ("...")
end if
end function