array(2) { ["docs"]=> array(10) { [0]=> array(10) { ["id"]=> string(3) "428" ["text"]=> string(77) "Visual Studio 2017 单独启动MSDN帮助（Microsoft Help Viewer）的方法" ["intro"]=> string(288) "目录 ECharts 异步加载 ECharts 数据可视化在过去几年中取得了巨大进展。开发人员对可视化产品的期望不再是简单的图表创建工具，而是在交互、性能、数据处理等方面有更高的要求。 chart.setOption({ color: [ " ["username"]=> string(8) "DonetRen" ["tagsname"]=> string(55) "Visual Studio 2017|MSDN帮助|C#程序|.NET|Help Viewer" ["tagsid"]=> string(23) "[401,402,403,"300",404]" ["catesname"]=> string(0) "" ["catesid"]=> string(2) "[]" ["createtime"]=> string(10) "1511400964" ["_id"]=> string(3) "428" } [1]=> array(10) { ["id"]=> string(3) "427" ["text"]=> string(42) "npm -v；报错 cannot find module "wrapp"" ["intro"]=> string(288) "目录 ECharts 异步加载 ECharts 数据可视化在过去几年中取得了巨大进展。开发人员对可视化产品的期望不再是简单的图表创建工具，而是在交互、性能、数据处理等方面有更高的要求。 chart.setOption({ color: [ " ["username"]=> string(4) "zzty" ["tagsname"]=> string(50) "node.js|npm|cannot find module "wrapp“|node" ["tagsid"]=> string(19) "[398,"239",399,400]" ["catesname"]=> string(0) "" ["catesid"]=> string(2) "[]" ["createtime"]=> string(10) "1511400760" ["_id"]=> string(3) "427" } [2]=> array(10) { ["id"]=> string(3) "426" ["text"]=> string(54) "说说css中pt、px、em、rem都扮演了什么角色" ["intro"]=> string(288) "目录 ECharts 异步加载 ECharts 数据可视化在过去几年中取得了巨大进展。开发人员对可视化产品的期望不再是简单的图表创建工具，而是在交互、性能、数据处理等方面有更高的要求。 chart.setOption({ color: [ " ["username"]=> string(12) "zhengqiaoyin" ["tagsname"]=> string(0) "" ["tagsid"]=> string(2) "[]" ["catesname"]=> string(0) "" ["catesid"]=> string(2) "[]" ["createtime"]=> string(10) "1511400640" ["_id"]=> string(3) "426" } [3]=> array(10) { ["id"]=> string(3) "425" ["text"]=> string(83) "深入学习JS执行--创建执行上下文（变量对象，作用域链，this）" ["intro"]=> string(288) "目录 ECharts 异步加载 ECharts 数据可视化在过去几年中取得了巨大进展。开发人员对可视化产品的期望不再是简单的图表创建工具，而是在交互、性能、数据处理等方面有更高的要求。 chart.setOption({ color: [ " ["username"]=> string(7) "Ry-yuan" ["tagsname"]=> string(33) "Javascript|Javascript执行过程" ["tagsid"]=> string(13) "["169","191"]" ["catesname"]=> string(0) "" ["catesid"]=> string(2) "[]" ["createtime"]=> string(10) "1511399901" ["_id"]=> string(3) "425" } [4]=> array(10) { ["id"]=> string(3) "424" ["text"]=> string(30) "C# 排序技术研究与对比" ["intro"]=> string(288) "目录 ECharts 异步加载 ECharts 数据可视化在过去几年中取得了巨大进展。开发人员对可视化产品的期望不再是简单的图表创建工具，而是在交互、性能、数据处理等方面有更高的要求。 chart.setOption({ color: [ " ["username"]=> string(9) "vveiliang" ["tagsname"]=> string(0) "" ["tagsid"]=> string(2) "[]" ["catesname"]=> string(8) ".Net Dev" ["catesid"]=> string(5) "[199]" ["createtime"]=> string(10) "1511399150" ["_id"]=> string(3) "424" } [5]=> array(10) { ["id"]=> string(3) "423" ["text"]=> string(72) "【算法】小白的算法笔记：快速排序算法的编码和优化" ["intro"]=> string(288) "目录 ECharts 异步加载 ECharts 数据可视化在过去几年中取得了巨大进展。开发人员对可视化产品的期望不再是简单的图表创建工具，而是在交互、性能、数据处理等方面有更高的要求。 chart.setOption({ color: [ " ["username"]=> string(9) "penghuwan" ["tagsname"]=> string(6) "算法" ["tagsid"]=> string(7) "["344"]" ["catesname"]=> string(0) "" ["catesid"]=> string(2) "[]" ["createtime"]=> string(10) "1511398109" ["_id"]=> string(3) "423" } [6]=> array(10) { ["id"]=> string(3) "422" ["text"]=> string(64) "JavaScript数据可视化编程学习（二）Flotr2，雷达图" ["intro"]=> string(288) "目录 ECharts 异步加载 ECharts 数据可视化在过去几年中取得了巨大进展。开发人员对可视化产品的期望不再是简单的图表创建工具，而是在交互、性能、数据处理等方面有更高的要求。 chart.setOption({ color: [ " ["username"]=> string(7) "chengxs" ["tagsname"]=> string(28) "数据可视化|前端学习" ["tagsid"]=> string(9) "[396,397]" ["catesname"]=> string(18) "前端基本知识" ["catesid"]=> string(5) "[198]" ["createtime"]=> string(10) "1511397800" ["_id"]=> string(3) "422" } [7]=> array(10) { ["id"]=> string(3) "421" ["text"]=> string(36) "C#表达式目录树（Expression）" ["intro"]=> string(288) "目录 ECharts 异步加载 ECharts 数据可视化在过去几年中取得了巨大进展。开发人员对可视化产品的期望不再是简单的图表创建工具，而是在交互、性能、数据处理等方面有更高的要求。 chart.setOption({ color: [ " ["username"]=> string(4) "wwym" ["tagsname"]=> string(0) "" ["tagsid"]=> string(2) "[]" ["catesname"]=> string(4) ".NET" ["catesid"]=> string(7) "["119"]" ["createtime"]=> string(10) "1511397474" ["_id"]=> string(3) "421" } [8]=> array(10) { ["id"]=> string(3) "420" ["text"]=> string(47) "数据结构 队列_队列实例：事件处理" ["intro"]=> string(288) "目录 ECharts 异步加载 ECharts 数据可视化在过去几年中取得了巨大进展。开发人员对可视化产品的期望不再是简单的图表创建工具，而是在交互、性能、数据处理等方面有更高的要求。 chart.setOption({ color: [ " ["username"]=> string(7) "idreamo" ["tagsname"]=> string(40) "C语言|数据结构|队列|事件处理" ["tagsid"]=> string(23) "["246","247","248",395]" ["catesname"]=> string(12) "数据结构" ["catesid"]=> string(7) "["133"]" ["createtime"]=> string(10) "1511397279" ["_id"]=> string(3) "420" } [9]=> array(10) { ["id"]=> string(3) "419" ["text"]=> string(47) "久等了,博客园官方Android客户端发布" ["intro"]=> string(288) "目录 ECharts 异步加载 ECharts 数据可视化在过去几年中取得了巨大进展。开发人员对可视化产品的期望不再是简单的图表创建工具，而是在交互、性能、数据处理等方面有更高的要求。 chart.setOption({ color: [ " ["username"]=> string(3) "cmt" ["tagsname"]=> string(0) "" ["tagsid"]=> string(2) "[]" ["catesname"]=> string(0) "" ["catesid"]=> string(2) "[]" ["createtime"]=> string(10) "1511396549" ["_id"]=> string(3) "419" } } ["count"]=> int(200) } 222 ASP入门（四）-VBScript的流程控制语句 - 爱码网

ASP入门（四）-VBScript的流程控制语句

我们可以使用四种条件语句

  • If … Then … 语句
  • If … Then … Else 语句
  • If … Then … ElseIf 语句
  • Select … Case 语句

通过下面这段代码(ConditionalStatement.asp)我们演示所有的条件语句用法：

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<% Option Explicit %> 
<!-- '如果使用 Option Explicit，该语句必须出现在脚本的任何其他语句之前。-->
<!doctype html>
<html>
<head>
<meta charset="utf-8">
<title>VBScript的条件语句</title>
</head>
<body>
<h1>VBScript的条件语句</h1>
<%
Dim Num1, Num2
Num1 = 10
Num2 = 20
'If ... Then ...当条件为true时执行的语句只有一条
Response.Write("<p><h3>If ... Then ... 演示</h3>")
If Num1 < Num2 Then Response.Write("Num1 < Num2" & "</p><hr>")

'If ... Then ... End If 当条件为true时执行的语句不止一条时
If Num1 < Num2 Then
  Response.Write("<p><h3>If ... Then ... End If 演示</h3>")
  Response.Write("Num1 < Num2</p><hr>")
End If

'If ... Then ... Else ... End If 演示
Response.Write("<p><h3>If ... Then ... Else ... End If 演示</h3>")
If Num1 > Num2 Then 
  Response.Write("Num1 > Num2</p><hr>")
Else
  Response.Write("Num1 < Num2</p><hr> ")
End If

'If ... Then ... ElseIf ... Else ...演示
Response.Write("<p><h3>If ... Then ... ElseIf ... Else ... End If 演示</h3>")
If Num1 = Num2 Then
  Response.Write("Num1 = Num2</p><hr>")
ElseIf Num1 > Num2 Then
  Response.Write("Num1 > Num2</p><hr>")
Else
  Response.Write("Num1 < Num2</p><hr>")
End If

'Select Case ... End Select演示返回当天星期几
Response.Write("<p><h3>Select Case演示</h3>")
Dim Week, WeekName
Week = WeekDay(date) '获取现在是星期几
Select Case Week
Case 1
  WeekName = "Sleepy Sunday"
Case 2
  WeekName = "Monday again!"
Case 3
  WeekName = "Just Tuesday!"
Case 4
  WeekName = "Wednesday!"
Case 5
  WeekName = "Thursday..."
Case 6
  WeekName = "Finally Friday!"
Case 7
  WeekName = "Super Saturday!!!!"
End Select
Response.Write(WeekName & "</p>") 
%>
</body>
</html>

运行后结果如下显示：

ASP入门（四）-VBScript的流程控制语句

VBScript循环语句

在VBScript中，我们可以四种循环语句

  • For…Next 运行制定次数的一段代码
  • For Each…Next 针对集合中的每个项目或者数组中的每个元素来运行某段代码
  • Do…Loop 当条件为true（While）或者直到条件为true（Until）
  • While…Wend 不要使用这个语句，请用Do…Loop代替

同样，本人写一段大代码(LoopStatement.asp)来展示循环语句的使用，代码的主要功能是计算1到100相加的计算。

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<% Option Explicit %> 
<!-- '如果使用 Option Explicit，该语句必须出现在脚本的任何其他语句之前。-->
<!doctype html>
<html>
<head>
<meta charset="utf-8">
<title>VBScript的循环语句</title>
</head>
<body>
<h1>VBScript的循环语句</h1>
<%
Dim i, Sum
'Do While ... Loop循环
i = 1
Sum = 0
'计算1到100相加的结果
Do While i <= 100  '先判断，在循环
  Sum = Sum + i
  i = i + 1
Loop
Response.Write("<b>Do While...Loop</b><br>")
Response.Write("1+2+3+...+99+100=" & Sum & "<hr>")
'---------------------------------------------------------
'Do...Loop While循环使用
i = 1
Sum = 0
Do 
  Sum = Sum + i
  i = i + 1 
Loop While i <= 100  '先循环，再判断
Response.Write("<b>Do...Loop While</b><br>")
Response.Write("1+2+3+...+99+100=" & Sum & "<hr>")
'---------------------------------------------------------
'Exit Do的使用
i = 1
Sum = 0 
Do 
  If i > 100 Then Exit Do '当i>100时退出Do循环 
  Sum = Sum + i
  i = i + 1
Loop
Response.Write("<b>Do...Loop中使用Exit Do控制</b><br>")
Response.Write("1+2+3+...+99+100=" & Sum & "<hr>")
'---------------------------------------------------------
i = 1
Sum = 0
Do 
  Sum = Sum + i
  i = i + 1
Loop Until i > 100 '直到i>100，停止循环
Response.Write("<b>Do...Loop Until</b><br>")
Response.Write("1+2+3+...+99+100=" & Sum & "<hr>")
'---------------------------------------------------------
'While ... Wend使用
i = 1
Sum = 0 
While i <=100 
  Sum = Sum + i
  i = i + 1
Wend
Response.Write("<b>While...Wend</b><br>")
Response.Write("1+2+3+...+99+100=" & Sum & "<hr>")
'---------------------------------------------------------
'For ... Next使用
Sum = 0
For i = 1 To 100
  Sum = Sum + i
Next
Response.Write("<b>For...Next</b><br>")
Response.Write("1+2+3+...+99+100=" & Sum & "<hr>")
'---------------------------------------------------------
'分别计算1到100的奇数和偶数的和，最后奇数和偶数相加就是最终结果
Dim OddSum '奇数和
Dim EvenSum '偶数和
OddSum = 0
EvenSum = 0
For i = 1 To 100 Step 2
  OddSum = OddSum + i
Next
For i = 0 To 1000 Step 2
  If i > 100 Then Exit For '当i>100时，退出For循环
  EvenSum = EvenSum + i
Next
Sum = EvenSum + OddSum
Response.Write("<b>For...Next...Step</b><br>")
Response.Write("1+2+3+...+99+100=" & Sum & "<hr>")
'---------------------------------------------------------
Dim Num(100) '声明101个元素的数组Num
For i = 0 To 100
  Num(i) = i '赋值，Num(0)=0, Num(1)=1,...,Num(100)=100
Next
Sum = 0
Dim Nums 
For Each Nums In Num '遍历数组每个元素
  Sum = Sum + Nums
Next
Response.Write("<b>For Each...In...Next</b><br>")
Response.Write("1+2+3+...+99+100=" & Sum & "<hr>")
'---------------------------------------------------------
%>
</body>
</html>

运行后显示结果如下：

ASP入门（四）-VBScript的流程控制语句

示例代码下载

ASP流程控制语句.RAR

相关文章：

猜你喜欢
相关资源
相似解决方案
热门标签
Java Python linux javascript Mysql C# Docker 算法 前端 SpringBoot Redis Vue spring 设计模式 .net core .net kubernetes c++ 数据库 数据结构 大数据 js 机器学习 微服务 Android Go 程序员 面试 JVM ASP.net core 云原生 人工智能 后端 PHP git CSS golang k8s Nginx Django mybatis 深度学习 多线程 React 架构 devops 爬虫 云计算 Spring Boot LeetCode