ASP翻页的实现方法
【打印文章】
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='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='images/up.gif' border='0'><
/td>"
else
response.write "<td><a href='list.asp?BoardID="+cstr(boardID)+"&page="
+cstr(k-1)+"'><img src='images/up.gif' border='0'></td>"
response.write "<td><a href='list.asp?BoardID="+cstr(boardID)+"&page="
+cstr(k+1)+"'><img src='images/down.gif' border='0'></td>"
end if
end if
end if
next
response.write "<br>"
end sub
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='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='images/up.gif' border='0'><
/td>"
else
response.write "<td><a href='list.asp?BoardID="+cstr(boardID)+"&page="
+cstr(k-1)+"'><img src='images/up.gif' border='0'></td>"
response.write "<td><a href='list.asp?BoardID="+cstr(boardID)+"&page="
+cstr(k+1)+"'><img src='images/down.gif' border='0'></td>"
end if
end if
end if
next
response.write "<br>"
end sub
本栏文章均来自于互联网,版权归原作者和各发布网站所有,本站收集这些文章仅供学习参考之用。任何人都不能将这些文章用于商业或者其他目的。( Pfan.cn )
【编程爱好者论坛】