ASP翻页的实现方法

80酷酷网    80kuku.com

  翻页|翻页sub showpages()  
dim n  
    if totalAnnounce mod maxannounce=0 then  
    n= totalAnnounce \ maxannounce  
    else  
    n= totalAnnounce \ maxannounce+1  
    end if  
    dim k  
    for k=1 to n  
    if k=currentPage then  
    if k=1 then  
response.write "<td align='center'><a href='list.asp?BoardID="+cstr(bo
ardID)+"&page="+cstr(k+1)+"'><img src='http://www.163design.net/a/y/images/down.gif' border='0'>></td>"  
else  
if k=n then  
response.write "<td align='center'><a href='list.asp?BoardID="+cstr(bo
ardID)+"&page="+cstr(k-1)+"'><img src='http://www.163design.net/a/y/images/up.gif' border='0'><
/td>"  
else  
response.write "<td><a href='list.asp?BoardID="+cstr(boardID)+"&page="
+cstr(k-1)+"'><img src='http://www.163design.net/a/y/images/up.gif' border='0'></td>"  
response.write "<td><a href='list.asp?BoardID="+cstr(boardID)+"&page="
+cstr(k+1)+"'><img src='http://www.163design.net/a/y/images/down.gif' border='0'></td>"  
end if  
end if  
    end if  
    next  
    response.write "
"  
end sub

分享到
  • 微信分享
  • 新浪微博
  • QQ好友
  • QQ空间
点击: