导航

专业做网站建设公司、网页设计制作、百度优化推广、网站维护托管等网站相关业务,欢迎咨询。

域名空间 | 服务领域  网站建设1500元全包。做完验收修改到满意为止可淘宝付款有保证!
当前位置: 邯郸网站建设 > 网页设计制作百科

ASP网站建设分页滑动怎么弄?


来源:邯郸煜阳网络公司  时间:2020-03-24 00:58    
  ASP网站建设分页滑动怎么弄?邯郸市煜阳网络公司网络设计师接到分页滑动的实现效果如下:

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
 
end if


专业网站建设20
网站制作热线:133-6303-9260
总部地址:邯郸市义乌小商品批发城15楼09号
网站建设专线:0310-3208323
微信营销专线:1336-3039260
官方网站:www.alisoho.net

邯郸网站建设客服QQ
邯郸煜阳科技微信公众号
微信公众号扫一扫微信号:13363039260
提供您的网站制作需求
欢迎与我们洽谈网站建设业务,您也可以在下面提交您的网站制作需求
我们将竭诚为您服务!
如何称呼:
联系方式:
联系地址:
建站需求: