电话
13363039260
ASP网站建设分页滑动怎么弄？
2020-03-24 00:58 admin
ASP网站建设分页滑动怎么弄？邯郸市煜阳网络公司网络设计师接到分页滑动的实现效果如下：
end if
dim l
ipage=request("page")
if ipage="" then
ipage=1
end if
if ipage>=10 and ipage<=Cstr(Page_Count) then
j=Cstr(ipage)+7
if j>Cstr(Page_Count) then
j=Cstr(Page_Count)
end if
l=Cstr(ipage)-3
for i=l to j
if i=Page_Count+1 then exit for
if Cur_Page=i then
str = str & "<b>" & i & "</b> "
else
str = str & "<a href=""" & Request_url & i & """>" & i & "</a> "
end if
next
end if
if ipage<10 then
for i=1 to 10
'if (ipage*10+i)>pages then exit for
if Cur_Page=i then
str = str & "<b>" & i & "</b> "
else
str = str & "<a href=""" & Request_url & i & """>" & i & "</a> "
end if
next