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

最新推荐文章于 2018-04-06 18:57:00 发布
最新推荐文章于 2018-04-06 18:57:00 发布
阅读量66 收藏 1
点赞数
原文链接：http://www.cnblogs.com/pchmonster/p/4719446.html
版权

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>

运行后结果如下显示：

20150810003

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>

运行后显示结果如下：

20150810004

示例代码下载

ASP流程控制语句.RAR

转载于:https://www.cnblogs.com/pchmonster/p/4719446.html

weixin_30795127
关注
  • 0
    点赞
  • 踩
  • 1
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
金鹰asp超速入门视频教程-013.流程控制语句.rar
07-09
【ASP流程控制语句详解】 ASP（Active Server Pages）是一种基于服务器端的脚本环境，用于创建动态交互式网页。在“金鹰asp超速入门视频教程-013.流程控制语句”中，我们将深入探讨ASP中的流程控制结构，这是编写...
金鹰asp超速入门视频教程-028.VBScript的循环语句.rar
07-09
学习完这门“金鹰asp超速入门视频教程-028.VBScript的循环语句”后，您将对ASP和VBScript有更深入的理解，能熟练运用循环语句解决实际问题。配合《书籍教程-网站开发》的相关内容，您将具备制作动态网站的基本技能，...
vbscript之流程控制语句
osteps的博客
01-14 113
流程控制语句 以下用实例来演示流程控制语句中的循环语句与条件语句： 条件语句：if ...else 以下为引用内容：&lt;%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%&gt;&lt;!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR...
VBscript脚本语言
weixin_34148456的博客
04-06 1017
VBScript语言概述 　　在ASP中，通过使用VBscript脚本语言编写程序代码，可以实现主要的功能模块。将VBscript程序嵌入到HTML中，制作出动态交互的Web页面，VBScript是程序开发语言Visual Basic的一个子集，为ASP默认的编程语言 　　一、VBScript脚本语言的特点 　　语言简单，易学易懂 　　增强客户端功能、降低WEB服务器负荷。VBScri...
ASP入门基础教程-VBScript的输入与输出语句
shixiaolan_2001的专栏
05-30 1380
1、MsgBox函数　　 信息框函数（MsgBox）是常用的输出信息的函数。它在对话框中显示信息，等待用户单击按钮，并返回一个整数以标明用户单击了哪一个按钮。其语法格式如下：　　变量=MsgBox (信息内容) [, [, ]] )　　 说明： 指定在对话框中出现的文本，在信息内容中使用硬回车符(CHR13）可以使文本换行。对话框的宽度和高度随着的内容的增加而增加，最多可以有1024个
ASP入门（三）-VBScript变量、运算符
weixin_30672019的博客
08-10 112
ASP内置了两种语法引擎，分别是VBScript和JScript。 VBScript是VB的一个子集。JScript和JavaScript有些类似。 如果你熟悉VB，建议用VBScript，否则推荐使用JScript语法，这样学习JavaScript时得心应手。 本入门系列我们将采用VBScript进行讲解。 选择一个顺手的开发工具 我还是习惯用Dreamweaver CS6来进行开发，...
金鹰asp超速入门视频教程-024.条件语句.rar
07-09
《金鹰ASP超速入门视频教程-024.条件语句》是一个专注于介绍ASP编程中的条件语句的教程，适合初学者快速掌握ASP在动态网页设计中的应用。ASP（Active Server Pages）是一种由微软公司推出的服务器端脚本环境，用于...
金鹰asp超速入门视频教程-025.IF语句.rar
07-09
在本教程"金鹰asp超速入门视频教程-025.IF语句.rar"中，重点讲解的是ASP中的IF语句，这是编程中常用的条件判断结构。IF语句在ASP中扮演着核心角色，允许开发者根据不同的条件执行不同的代码块，从而实现动态网页的...
金鹰asp超速入门视频教程-027.循环语句.rar
07-09
【ASP基础与循环语句详解】 ASP（Active Server Pages）是一种由微软开发的服务器端脚本环境，用于创建和执行动态、交互式的Web服务。它允许开发者使用多种编程语言，如VBScript或JScript，来编写网页应用程序。ASP...
Datacom-HCIA认证全套课件
07-30
Datacom-HCIA认证全套课件 完整的，不错 HC110110001 传输介质简介.pptx HC110110002 以太网帧结构.pptx HC110110003 IP编址.pptx HC110110004 ICMP协议.pptx HC110110005 ARP协议.pptx HC110110006 传输层协议.pptx HC110110007 数据转发过程.pptx HC110110008 VRP基础.pptx HC110110009 命令行基础.pptx HC110110010 文件系统基础.pptx HC110110011 VRP系统管理.pptx HC110110012 交换网络基础.pptx HC110110013 STP原理与配置.pptx
基于tp5的校园生活系统.zip
最新发布
07-30
基于tp5的校园生活系统.zip
C++技术资料分享17重要培训技术资料.zip
07-30
C++技术资料分享17重要培训技术资料.zip
第十三届恩智浦智能汽车竞赛---三轮电磁组.zip
07-30
毕业设计是高等教育阶段学生完成学业的一个重要环节，通常在学士或硕士学业即将结束时进行。这是学生将在整个学业中所学知识和技能应用到实际问题上的机会，旨在检验学生是否能够独立思考、解决问题，并展示其专业能力的一项综合性任务。 毕业设计的主要特点包括： 独立性： 毕业设计要求学生具备独立思考和解决问题的能力。学生需要选择一个合适的课题，研究相关文献，进行实地调查或实验，并提出独立见解。 实践性： 毕业设计是将理论知识应用到实际问题中的一次实践。通过完成毕业设计，学生能够将所学的专业知识转化为实际的解决方案，加深对专业领域的理解。 综合性： 毕业设计往往要求学生运用多个学科的知识，综合各种技能。这有助于培养学生的综合素养，提高他们的综合能力。 导师指导： 学生在毕业设计过程中通常由一名指导老师或导师团队提供指导和支持。导师负责引导学生确定研究方向、制定计划、提供建议，并在整个过程中监督进展。 学术规范： 毕业设计要求学生按照学术规范完成研究，包括文献综述、研究设计、数据采集与分析、结论和讨论等环节。学生需要撰写一篇完整的毕业论文，并进行答辩。
nurbsMATLAB中，NURBS（非均匀有理B样条）是一种强大的数学工具，用于
07-30
在MATLAB中，NURBS（非均匀有理B样条）是一种强大的数学工具，用于表示和处理复杂的曲线和曲面。NURBS在计算机图形学、CAD（计算机辅助设计）、CAM（计算机辅助制造）等领域有着广泛的应用。下面将详细探讨MATLAB中NURBS的绘制方法以及相关知识点。 我们需要理解NURBS的基本概念。NURBS是B样条（B-Spline）的一种扩展，其特殊之处在于引入了权重因子，使得曲线和曲面可以在不均匀的参数空间中进行平滑插值。这种灵活性使得NURBS在处理非均匀数据时尤为有效。 在MATLAB中，可以使用`nurbs`函数创建NURBS对象，它接受控制点、权值、 knot向量等参数。控制点定义了NURBS曲线的基本形状，而knot向量决定了曲线的平滑度和分布。权值则影响曲线通过控制点的方式，大的权值会使曲线更靠近该点。 例如，我们可以使用以下代码创建一个简单的NURBS曲线： ```matlab % 定义控制点 controlPoints = [1 1; 2 2; 3 1; 4 2]; % 定义knot向量 knotVector = [0 0 0 1 1 1]; % 定义权值（默认为1，如果未指定） weights = ones(size(controlPoints,1),1); % 创建NURBS对象 nurbsObj = nurbs(controlPoints, weights, knotVector); ``` 然后，我们可以用`plot`函数来绘制NURBS曲线： ```matlab plot(nurbsObj); grid on; ``` `data_example.mat`可能包含了一个示例的NURBS数据集，其中可能包含了控制点坐标、权值和knot向量。我们可以通过加载这个数据文件来进一步研究NURBS的绘制： ```matlab load('data_example.mat'); % 加载数据 nurbsData = struct2cell(data_example); % 转换为cell数组 % 解析数据 controlPoints = nurbsData{1}; weights = nurbsData{2}; knotVector = nurbsData{3}; % 创建并绘制NURBS曲线 nurbsObj = nurbs(controlPoints, weights, knotVector); plot(nurbsObj); grid on; ``` MATLAB还提供了其他与NURBS相关的函数，如`evalnurbs`用于评估NURBS曲线上的点，`isoparm`用于生成NURBS曲面上的等参线，以及`isocurve`用于在NURBS曲面上提取特定参数值的曲线。这些工具对于分析和操作NURBS对象非常有用。 MATLAB中的NURBS功能允许用户方便地创建、编辑和可视化复杂的曲线和曲面。通过对控制点、knot向量和权值的调整，可以精确地控制NURBS的形状和行为，从而满足各种工程和设计需求。通过深入理解和熟练掌握这些工具，可以在MATLAB环境中实现高效的NURBS建模和分析。
TP-UART 2-IC.pdf
07-30
TP-UART 2-IC.pdf
ASP动态开发：VBScript基础入门与ASP集成
ASP动态网站开发教程之VBScript语言基础深入讲解了在ASP开发中使用VBScript的关键要素。VBScript是由Macromedia公司开发的一种脚本语言，作为ASP的主要支持语言，它为创建动态网页提供了便利。以下是一些主要内容： ...
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值