1、可以这么说 脚本语言运用的得当与否直接关系到 ASP 应用程序的优与劣继上一篇我们学习了脚本语言 VBScript 的函数和条件语句后，今天我们继续来看看 VBScript 中的循环语句循环语句的作用就是重复执行程序代码，循环可分为三类一类在条件变为“假”之前重复执行语句，一类在条件变为“真”之前重复；多条件，如果条件个数不是很多可以这样写if T10 and T2=0 or T3lt0 then #39执行语句 end if 但是多条件判断一般采用条件控制语句select case 例如id=requestquotidquotselect case id case 1 #39执行语句1 case 2 #39执行语句2 case 3 #39执行语句3 case 4 #39执行语句4 case 5 #39执行语句5；If requestquotactionquot=quotmodifyquot Then 判断action数值是否等于modify如果为等于，那么就执行下面的代码set rs=servercreateobjectquotadodbrecordsetquotsql=quotselect top 1 * from brief where typeid=#39quotrequestquottypeidquotquot#39quotrsopen sql，conn，1，1 查询数据库符合typeid字段中等于requestquottypeidquot。

2、responsewritequot=#39defaultasp#39quot 跳转到defaultasp页面 responsewritequotquotresponseend end if% 第二段，功能loginasplt if sessionquotokquot=quotyesquot then 如果ok的值是yes的话，那么就执行以下语句 以下语句写的有点乱，大体意思是弹出一个loginasp页面 respon；下面的主程序不能包括在if中吗或者ifnewstitle=quotquot and newscontent=quotquot and date=quotquot为真，执行主程序为假，elseif newstitle=quotquot or newscontent=quotquot then responseWritequot标题内容不能为空！quotresponseEndend if 提供思路仅供探讨不用；把下面代码写成一行，不能分行 if not IsEmptysDSN or sDSN=quotquotand not IsEmptysLogin or sLogin=quotquotand not IsEmptysPassword or sPassword=quotquot then 如if not IsEmptysDSN or sDSN=quotquot and not IsEmptysLogin or sLogin=quotquot and not IsEmptysPassword or。

3、ASP中if idltquotquot then的意思是如果id不等于空，那么就会执行then以后的代码，比如ltif id lt quotquot thenResponseWritequotid 不允许为空quotelseif id =quot1quot thenResponseWritequotid的值为1quot to do something；congratulations！ welcome lt dim flag flag=sessionquotuserlevelquotif flag=1 then responsewritequotuser！quotelse if flag=2 then #39这里改成elseif flag=2 then 上面的else if和flag=2要连一起 responsewritequotadmin！quotend if ltdim flagflag=sessionquotuserlevelquotif flag。

4、lt% if CurrentPage lt 1 then % 如果页不是第一页，执行下列代码 lta href=quotmanagerment_pysjdasp？Page=lt%=Currentpage1%key=lt%=key%cxtj=lt%=cxtj%dh=lt%=dh%chengzhen=lt%=chengzhen%hymc=lt%=hymc%szpy=lt%=szpy%shiduan=lt%=shiduan%quot上一；与正常的声明如果您只能检查一个条件，但有时你会要检查多个条件在ASP中，您可以做到这一点与elseif的，这是名称的声明，如果依赖于另一如果声明 ，下面是多中判断情况 lt If myNum 5 Then ResponseWritequotmyNum = quot myNumelse if myNum = 5 then responsewritequotdata data！quotelse。

5、if backrsdeof then responseWrite quot上一篇这是本分类下的第一篇文章quotelse a0=backrsdquotidquotresponseWrite quot上一篇quotbackrsdquottitlequotquotquotend if 在获取到传递过来的文章ID后，我们通过SQL语句查询出对应的文章记录，并通过变量a1保存当前文章的ID然后，我们调用backrs和nextrs函数来显示；更好#39需要执行的代码ifthen是条件判断语句，如果需要两个条件同时成立则需要加and语法如下if条件1and条件2then满足条件执行的代码endif如果是或者的情况则需要用or语法如下if条件1or条件2then满足其中一个条件所执行的语句endif你就按标准格式If 逻辑式 Then#39对应程序流程Else#39对应程序流程End if；elseif strname=quotadminquot then if strpwd=quotadminquot then sessionquotuserlevelquot=2 responseRedirectquotmainaspquotelse responseRedirectquotloginasp？respondmsg=quot strbadpwdend if end if end if 经过格式化后，代码只到这里正确 end if else responseRedirectquotloginasp？respondmsg=quot s；lt dim a e = 2 a = #2003410 b = #200381 c = datediffquotdquot，b，aif clt0 then #39这里要换行 ResponseWritequot比率quotec*100quot%quotelse ResponseWritequot比率quote*100quot%quotend if if。

6、If rsEOF Then FSEOF指针指向数据库末端最后一条记录之后这个意思就是如果指针指向数据库的末端最后一条记录之后，就执行以下操作另外还有一个BOF，就是数据库最前一条记录之前如果不定义这两个事件的话，当指针指向这两个地方的时候，就会返回错误信息If rsEOF #39如果；那就用情况语句quotselect case aquot其实根分支语句一样但你这种必须有判断，可以把中间的代码写成一个过程Sub去调用它 if a=1 then call Last_Code #39调用最后一段代码的过程 else call Code #39调用中间的代码 end if Sub Code#39中间的代码写在这里End Sub Sub Last_Code#39。