编程逻辑:执行基于条件的代码。
VB 允许您执行基于条件的代码。
如需测试某个条件,您可以使用 if 语句。if 语句会基于您的测试来返回 true 或 false:
@Code Dim price=50 End Code <html> <body> @If price>30 Then @<p>The price is too high.</p> End If </body> </html>
运行实例
if 语句能够包含 else 条件。
else 条件定义条件为 false 时执行的代码。
@Code Dim price=20 End Code <html> <body> @if price>30 then @<p>The price is too high.</p> Else @<p>The price is OK.</p> End If </body> </htmlV>
运行实例
注释:在上面的例子中,如果价格不大于 30,则执行其余的语句。
可通过 else if 条件来测试多个条件:
@Code Dim price=25 End Code <html> <body> @If price>=30 Then @<p>The price is high.</p> ElseIf price>20 And price<30 @<p>The price is OK.</p> Else @<p>The price is low.</p> End If </body> </html>
运行实例
在上面的例子中,如果第一个条件为 true,则执行第一个代码块。
否则,如果下一个条件为 true,则执行第二个代码块。
您能够设置任意数量的 else if 条件。
如果 if 和 else if 条件均不为 true,则执行最后一个 else 代码块。
select 代码块可用于测试一系列具体的条件:
@Code Dim weekday=DateTime.Now.DayOfWeek Dim day=weekday.ToString() Dim message="" End Code <html> <body> @Select Case day Case "Monday" message="This is the first weekday." Case "Thursday" message="Only one day before weekend." Case "Friday" message="Tomorrow is weekend!" Case Else message="Today is " & day End Select <p>@message</p> </body> </html>
运行实例
"Select Case" 之后是测试值 (day)。每个具体的测试条件以 case 关键词开头,其后允许任意数量的代码行。如果测试值匹配 case 值,则执行代码行。
select 代码块可为其余的情况设置默认的 case (default:),允许在所有 case 均不为 true 时执行代码。