请问ASP里如何跳出while循环？

[lcb]

请问ASP里如何跳出while循环？

[lovedogdog]

exit do

[a_zhe_20]

do while not rs.eof
response.write ""
if i>10 then exit do
loop

[超级大笨狼]

Visual Basic Scripting Edition

Exit 语句
请参阅
Do...Loop 语句 | For Each...Next 语句 | For...Next 语句 | Function 语句 | Sub 语句
要求
版本 1
退出 Do...Loop、For...Next、Function 或 Sub 代码块。

Exit Do
Exit For
Exit Function
Exit Property
Exit Sub
Exit 语句的语法有以下几种形式：

语句 描述
Exit Do 提供一种退出 Do...Loop 语句的方法。只能在 Do...Loop 语句中使用。Exit Do 将控制权转移到 Loop 语句之后的语句。在嵌套的 Do...Loop 语句中使用时，Exit Do 将控制权转移到循环所在位置的上一层嵌套循环。
Exit For 提供一种退出 For 循环的方法。只能在 For...Next 或 For Each...Next 循环中使用。Exit For 将控制权转移到 Next 之后的语句。在嵌套的 For 循环中使用时，Exit For 将控制权转移到循环所在位置的上一层嵌套循环。
Exit Function 立即从出现的位置退出 Function 过程。继续执行调用 Function 的语句后面的语句。
Exit Property 立即从所在的 Property 过程中退出。继续执行下面调用 Property 过程的语句。
Exit Sub 立即从出现的位置退出 Sub 过程，继续执行调用 Sub 的语句后面的语句。

下面例子举例说明如何使用 Exit 语句:

Sub RandomLoop
Dim I, MyNum
Do ' 设置死循环。
For I = 1 To 1000 ' 循环 1000 次。
MyNum = Int(Rnd * 100) '产生随机数。
Select Case MyNum '求随机数的值。
Case 17: MsgBox "Case 17"
Exit For ' 如果是 17，退出 For...Next。
Case 29: MsgBox "Case 29"
Exit Do ' 如果是 29，退出 Do...Loop。
Case 54: MsgBox "Case 54"
Exit Sub ' 如果是 54，退出 Sub 过程。
End Select
Next
Loop
End Sub
要求
版本 1

请参阅
Do...Loop 语句 | For Each...Next 语句 | For...Next 语句 | Function 语句 | Sub 语句



--------------------------------------------------------------------------------

© 2001 Microsoft Corporation. 保留所有权利。

[超级大笨狼]

给你个新的5.6版官方脚本中文参考：
http://download.microsoft.com/download/winscript56/Install/5.6/W982KMe/CN/scd56chs.exe

[lcb]

是While
......
WEnd

不是
do while
......
loop

用exit do不行啊！

[verge]

用goto语句

[DeltaCat]

ASP 不支持 GOTO语句

不能跳出 WHILE 。。。WEND

[yinleiwudi]

呵呵，，把While Wend改为do while不就可以拉。
都是一样的东西。。