可以这么说 脚本语言运用的得当与否直接关系到 ASP 应用程序的优与劣继上一篇我们学习了脚本语言 VBScript 的函数和条件语句后，今天我们继续来看看 VBScript 中的循环语句循环语句的作用就是重复执行程序代码，循环可分为三类一类在条件变为“假”之前重复执行语句，一类在条件变为“真”之前重复。

sql=quotselect top 1 * from articles where idquota1quot order by idquotset newrs=connexecutesqlif newrseof then responseWritequot没有了quotelse a2=newrsquotidquotresponseWritequot下一篇quotend if end function #39定义一个thehead函数来找出下一篇的ID，如果当前记录已经是最前面的一条。

ASPNET分页可以使用的方式很多，其他回答者说的用JS分页是其中一种 此外，用的比较多的还有是使用分页控件，你也可以自己编写分页代码这个不是必须的分页控件很多啊，GridView，AspNetPager等。

RsOpensql语句，Conn，1，1 rsMovePrevious rsquottitlequot ‘上一条信息 rsMoveNext rsquottitlequot‘本条信息 rsMoveNext rsquottitlequot‘下一条信息 RsClose Set Rs = Nothing。

lt news_id=requestquotidquotset rs=servercreateobjectquotadodbrecordsetquotrsopenquotselect cdkey88_news*，News_classcom_id，News_classcom_name from cdkey88_news， News_class where cdkey88_newsgame_id=News_classcom_id and news_id=quotnews_idquot quot，conn if rseof then Res。

if 条件一 then sql=quotselect * from bbbbquotelse sql=quotselect * from aaaaquotend if 这样就行了 深入的话，可以写成这样 sql=quotselect * from news where news_class=quotif 条件一 then sql=sqlquot1quotelse sql=sqlquot2quotend if if requestquotmovequot=quotnextquot then sql=quotselect top 1 * from。

rsxopen sql，conn，1，1 if rsxrecordcount=0 then responseWritequot没有了quotelse responseWritequot新闻标题quotend if rsxclose set rsx=nothing 下一篇lt sql=quotselect top 1 id，title from pic where idltquotrsquotidquotquot order by id descquotset rsx=serverCreateObjectquot。