发信人: shebin()
整理人: qcrsoft(2002-05-14 01:50:49), 站内信件
|
【 在 hang (城市猎人) 的大作中提到: 】
: 我是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
--
※ 来源:．月光软件站 http://www.moon-soft.com．[FROM: 202.96.132.69]
|
|