● [转载] ASP翻页的实现方法 - 荔园在线 | 深圳大学学生论坛,荔园晨风BBS,深大在线网站

荔园之美，在春之萌芽，在夏之绽放，在秋之收获，在冬之沉淀

发信人: tang (独孤九剑〖玄铁重剑〗), 信区: Homepage
标  题: [转载] ASP翻页的实现方法
发信站: BBS 荔园晨风站 (Sun Apr 11 20:58:58 1999), 站内信件

【以下文字转载自 Program 讨论区】
【原文由 zzt 所发表】
: 我是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'></a
></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'></a><
/td>"
else
response.write "<td><a href='list.asp?BoardID="+cstr(boardID)+"&page="
+cstr(k-1)+"'><img src='images/up.gif' border='0'></a></td>"
response.write "<td><a href='list.asp?BoardID="+cstr(boardID)+"&page="
+cstr(k+1)+"'><img src='images/down.gif' border='0'></a></td>"
end if
end if
    end if
    next
    response.write "<br>"
end sub

--

日出东方，唯我不败；
    天上地下，唯我独尊。

※ 来源:．BBS 荔园晨风站 bbs.szu.edu.cn．[FROM: 192.168.0.72]
--
※ 转载:．BBS 荔园晨风站 bbs.szu.edu.cn．[FROM: 192.168.0.4]

荔园在线首页友情链接：深圳大学深大招生荔园晨风BBS S-Term软件网络书店