《VBScript编程基础课件》由会员分享，可在线阅读，更多相关《VBScript编程基础课件（80页珍藏版）》请在金锄头文库上搜索。
1、第6章VBScript编程基础6.1VBScript概述6.2在网页中使用VBScript6.3VBScript基本语法6.4VBScript程序流控制6.5With语句6.6Sub过程与Function函数6.7内部函数6.8VBScript编程实例1VBScript编程基础6.1VBScript概述概述HTML是一种标记语言，不具备条件及循环流程控制、输入/输出交互等能力。脚本语言是介于HTML和Java、C+等编程语言之间的语言。HTML通常用于格式化文本和链接网页。编程语言通常用于向计算机发送一系列复杂的指令。脚本语言也可用来向计算机发送指令，但它们的语法和规则没有可编译的编程语言那样
2、严格和复杂。另外脚本语言只能嵌入到HTML网页中使用。2VBScript编程基础6.1VBScript概述概述目前最常用的两种脚本语言：pJavaScript：sun公司开发，兼容性和可移植性都较好，与C语言的结构很类似pVBScript：微软公司推出，是ASP默认的脚本语言。ASP程序是由文本、HTML标记和脚本组合而成的。3VBScript编程基础VBScript(即 Microsoft Visual Basic ScriptingEdition)是一种脚本语言，它是VisualBasic的一个子集，可直接嵌入到HTML文件之中。编程方法与VB基本相同，但删去了部分VB的特性。如VBScr
3、ipt只有一种数据类型。虽然VBScript不是唯一的脚本语言，也不是ASP支持的唯一解释性执行的语言，但由于它是微软公司自身提出并发布的，因而与ASP程序有最好的兼容性，同时由于它简单易学，故成为ASP默认的脚本语言。6.1VBScript概述概述4VBScript编程基础使用VBScript，既可编写服服务务器器端端脚脚本本，也可编写客户端脚本客户端脚本。服务器端脚本在Web服务器上执行，生成发送到浏览器的HTML页面。客户端脚本由浏览器处理，将脚本代码用标记嵌入到HTML页面中去。下面首先介绍运行在客户端的脚本是如何插入到网页中的：6.2在网页中使用在网页中使用VBScript5VBSc
4、ript编程基础 在在HTMLHTML文文件件中中直直接接嵌嵌入入VBScriptVBScript脚脚本本。这样能够扩展HTML，使它不仅仅是一种页面格式语言。带有VBScript脚本的网页在每次下载到浏览器时都可以是不同的，而且可以对用户的操作做出反应。 在正式学习VBScript的语法之前，首先看一个简单例子，以便直观了解如何在HTML中加入VBScript程序。6.2在网页中使用在网页中使用VBScript6VBScript编程基础你好吗？该该htmhtm文件可以直接打开，也可以采用方式打开文件可以直接打开，也可以采用方式打开7VBScript编程基础要在HTML中加入VBScript程
5、序，通常利用HTML的SCRIPT标记，其语法格式如下：VBScript程序说明：1LANGUAGE项表明用来编写脚本程序的语言种类，可以是JavaScript或VBScript.8VBScript编程基础2.是HTML标记语言的注释符，代表注释的结束。当然客户端脚本部分的注释标记不是必须的，但一般应加上，因为客户端脚本由浏览器执行，而浏览器并不一定能支持所有的脚本语言。加了HTML注释后，IE浏览器首先检查标识对和，若发现该标识对的内容不为空，便会抛开注释标记直接解释执行包含在注释符标记内的VBScript脚本。9VBScript编程基础3Script块可出现在HTML页面的任何地方（BOD
6、Y或HEAD部分之中），但建议将该块的代码放在HEAD部分中，以便所有脚本代码集中放置。这样可确保在BODY部分调用代码之前所有脚本代码都被读取并解码。但是当脚本代码作为对象的事件代码时，则不必把放在HEAD部分中，可就近放在对象附近。10VBScript编程基础在在ASP页面中加入页面中加入VBScript在ASP中，VBScript构成了ASP代码的主体，它运行于服务器端，ASP中的服务器端脚本要用分隔符括 起 ， 或 者 在 标 记 中 用RUNAT=Server表示脚本在服务器端执行。语法格式如下：或 前者比后者更为简洁。 11VBScript编程基础在VBScript脚本中加入注释的
7、方法有以下两种，即REMREM 第一种注释方式 第二种注释方式这两种方法执行同样的功能，在VBScript脚本中不能用不能用HTMLHTML风格的注释风格的注释。HTML风格的注释与VBScript注释的一个重要区别是：当处理脚本时，VBScript注释将被删除，不发送给浏览器，不能用浏览器中的“查看源文件”命令来察看VBScript注释。12VBScript编程基础网页中同时加入服务器端脚本与客户端脚本网页中同时加入服务器端脚本与客户端脚本i=1i=i+1document.writeii=2i=i+1response.writei13VBScript编程基础第6章VBScript编程基础6.
8、1VBScript概述6.2在网页中使用VBScript6.3VBScript基本语法基本语法6.4VBScript程序流控制6.5With语句6.6Sub过程与Function函数6.7内部函数6.8VBScript编程实例14VBScript编程基础6.3.1 VBScript数据类型VBScript只有一一种种数数据据类类型型，称为Variant。中文名称叫变变体体。Variant是一种特殊的数据类型，根据不同的使用方式，可以包含不同类别的信息。最简单的Variant可可以以包包含含数数字字或或字字符符串串信信息息，即当数据内容是数值时，则VBScript就把它当作数字处理，若数据内容是
9、字符串，则VBScript把它当作字符串处理。当然，也可将数字包含在双引号（“”）中显式地使其成为字符串。除简单地将数据内容分为数值和字符串外，variant还可以进一步区分信息的含义，variant包含的数值信息类型称为子类型子类型15VBScript编程基础类型名类型名描描 述述Empty未初始化的未初始化的Variant。对于数值变量，值为。对于数值变量，值为0；对于字符串变量，则值为零长度字符串即；对于字符串变量，则值为零长度字符串即。Null不包含任何有效数据的不包含任何有效数据的Variant，必须从外部对其赋值。，必须从外部对其赋值。Boolean表示布尔型变量，逻辑值不是表示布
10、尔型变量，逻辑值不是True就是就是False。Byte长度为一个字节的整数，包含长度为一个字节的整数，包含0到到255之间的整数。之间的整数。Integer长度为两个字节的整数，包含长度为两个字节的整数，包含-32,768到到32,767之间的整数。之间的整数。Currency表示表示-922,337,203,685,477.5808到到922,337,203,685,477.5807的数字。的数字。Long长度为四个字节的整数，包含长度为四个字节的整数，包含-2,147,483,648到到2,147,483,647之间的整数。之间的整数。Single单单精精度度浮浮点点数数，负负数数范范围
11、围从从-3.402823E38到到-1.401298E-45之之间间，正正数数范范围围介介于于1.401298E-45到到3.402823E38之间。之间。Double双双精精度度浮浮点点数数，负负数数范范围围介介于于-1.79769313486232E308到到-4.947E-324之之间间，正正数数范范围围从从4.947E-324到到1.79769313486232E308。Date(Time)表示日期的数字，日期范围从公元表示日期的数字，日期范围从公元100年年1月月1日到公元日到公元9999年年12月月31日。日。String变长字符串，最大长度可为变长字符串，最大长度可为20亿个字符
12、。亿个字符。Object对象，用来表示对对象，用来表示对ActiveX对象或其他对象的引用。对象或其他对象的引用。Error其值是一错误号，对应一种错误。其值是一错误号，对应一种错误。16VBScript编程基础例如：定义三个分别为var1、var2、var3、var4的变量，并分别赋值。var1=34.变量var1为整型var2=“123”变量var2为字符串var3=“good”变量var3为字符串var4=True变量var4为布尔型17VBScript编程基础7.3.2变量和常量1、变量 在程序中，变量的值在程序执行期间是变化的，而常量则不变。由于在VBScript中只有variant
13、一种数据类型，故在VBScript中声明了一个变量后，就可以在其中保存各种数据了。（1）声明变量VBScript中变量声明有两种方式：显式声明和隐式声明。显式声明是使用Dim语句、Public语句或Private语句显式地定义变量，例如： Dim varname public var声明多个变量时，使用逗号分隔各个变量。例如： Dim var1, var2, var3, var418VBScript编程基础其中，最最常常用用的的是是用用DimDim语语句句来来声声明明，而PublicPublic用来声明共有变量并为其开辟存储空间，用public声明的变量可以在页面中所有的脚本和过程中使用。pr
14、ivateprivate用来声明私有变量，私有变量只能在声明它的“”标识对中使用。另一种是直接在VBScript程序中使使用用变变量量名名来来隐隐式式地声明变量地声明变量。例如：sum=0mystring=”this is a test”19VBScript编程基础(2)变量的命名规则变量命名必须遵循 VBScript 的标准命名规则。主要包括以下一些规定： l变量名只能由字母、数字和下划线组成；l变量名的第一个字符必须是字母；l不能使用VBScript的关键字作变量名；l长度不能超过255个字符；l名字在被声明的作用域内必须唯一。注意：注意：VBScript不区分大小写。不区分大小写。20V
15、BScript编程基础把变量值打印出来可使用两种方法把变量值打印出来可使用两种方法1、使用response.write方法如：response.Writearesponse.Writeb&c2、使用方法,这里的a，b，c，d都是变量名，并且已经赋过值的。21VBScript编程基础（3）变量的作用域与存活期 变量的作用域（也叫作用范围）是由声明它的位置决定。如果在过程中声明变量，则只有该过程中的代码可以访问或更改变量值，这类变量具有局部作用域，称为局部变量局部变量（过程级变量）。如果在过程之外声明变量，则该变量可以被VBScript中所有过程所识别，其作用域为当前的整个ASP网页，称为全局变量
16、全局变量（脚本级变量）。变量存在的时间称为存活期存活期。全局变量的存活期从被声明的一刻起，直到VBScript程序运行结束。对于局部变量，其存活期仅是该过程运行的时间，该过程结束后，变量随之消失。22VBScript编程基础以上脚本运行后，输出的以上脚本运行后，输出的x的值为的值为2,y值为值为14,执行最后一句时，执行最后一句时，出现出现“执行时出现变量未定义的错误执行时出现变量未定义的错误”，num是局部变量，是局部变量，在过程外不存在。在过程外不存在。23VBScript编程基础(4)标量变量和数组变量 只包含一个值的变量被称为标量变量，而数组数组变量是包含一系列值的变量变量是包含一系列
17、值的变量。数组变量和标量变量以相同的方式声明，唯一的区别是声明数组变量时变量名后面带有括号 “( )”。下例声明了一个包含21个元素的一维数组： Dim array(20)Dim array(20) VBScript 中所有数组的下标都是从0开始，数组声明提供的是该数组的最大下标，这里是20，故这个数组实际上包含 21 个元素。其中每个数组元素像标量变量一样被赋值和引用。24VBScript编程基础例如：给上面定义的数组里的各个元素逐一赋值： array(0)=25 array(1)=32 array(2)=10 . . . array(20)=50 其实，数组并不仅限于一维。数组的维数最大可
18、以为 60，声明多维数组时，各维数之间用逗号隔开。例如声明一个5行4列的二维数组,数组名为sum： Dim sum(4, 3)25VBScript编程基础2、 常量VBScript常量是具有一定含义的名称，用于代替数字或字符串，其值是固定不变的。常量可像变量一样说明，赋值给它，只是该值不能改变。在VBScript中可以使用const语句创建用户自定义常数，并给它们赋值。例如： Const MyString = 这是一个常量。Const PI = 3.14通常日期和时间常量包含在两个井号（#）之间，如const currentdate=#10-12-2004# 26VBScript编程基础6.3
19、.3 运算符和表达式1、VBScript运算符VBScript有四大类运算符，分别是算术运算符、连接运算符号、关系运算符和逻辑运算符。注意运算符的优先级注意运算符的优先级参看教材参看教材P159P15927VBScript编程基础2、表达式 变量、常量或字符串和数值通过合法的操作符连变量、常量或字符串和数值通过合法的操作符连接起来构成了表达式接起来构成了表达式，概念和大多数程序设计语言一样。根据表达式值的类型，VBScript的表达式分为算术表达式、字符串表达式、逻辑表达式三种。如：(y*16)+34 算术表达式算术表达式x=20 or x7 逻辑表达式逻辑表达式“字符串str的值是：” &
20、string1 字符串表字符串表达式达式28VBScript编程基础第6章VBScript编程基础6.1VBScript概述6.2在网页中使用VBScript6.3VBScript基本语法6.4VBScript程序流控制程序流控制6.5With语句6.6Sub过程与Function函数6.7内部函数6.8VBScript编程实例29VBScript编程基础VBScript提供选择选择和循环循环两种程序控制语句6.4.1 选择语句 选择语句也称为条件语句，分为If语句和Select case语句If语句的三种基本形式1） If 条件表达式条件表达式 then 语句或语句组 End if30VBS
21、cript编程基础例：第一种选择语句的例子。!-dimmydatemydate=#1-9-05#ifmydate这段程序在客户端运行的这段程序在客户端运行的31VBScript编程基础2）If.Then.Else语句语句If.Then.Else语句的格式为：If条件表达式条件表达式then语句语句1或语句组或语句组1else语句语句2或语句组或语句组2endif语句的执行过程：判断条件表达式的值，若为真，则执行语句组1，否则执行语句组2；然后执行ifthenelse语句的后继语句。32VBScript编程基础例2：已知两个整数，且输出最大数。y)thenmax=xelsemax=yendifm
22、sgbox“最大数为：”&max-程序的运行结果如右图所示:33VBScript编程基础3） If语句的嵌套格式语句的嵌套格式如果对多个条件进行判断，可以通过添加elseif子句来扩充If.Then.Else语句的功能，实现控制基于多种可能的程序流程。例如：If(x0)Thenmsgbox“x不是正数“Elseif(y0)thenmsgbox“y不是正数”Elseif(z0)thenmsgbox“z不是正数”Elseavg=(x+y+z)/3Msgbox三个正数的平均值为&avgEndIf34VBScript编程基础（2）Select Case语句在ifthenelse语句中添加任意多个Els
23、eIf子句可以提供多种选择，但使用多个ElseIf子句经常让程序变得很累赘。在多个条件中SelectCase语句可以使代码更加简练易读。可将selectcase语句称为多分支选择语句，一般格式为：selectcase表达式case值1语句组1case值2语句组2.caseelse语句组nendselect35VBScript编程基础语句的执行过程：先计算表达式的值，将表达式的结果与结构中每个Case的值比较。如果匹配，则执行该Case后面的语句块；否则执行caseelse后的语句。caseelse部分是可缺省的。例：采用selectcase语句来判断学生成绩的等级，成绩等级如下：90100：优
24、8089：良7079：中6069：及格60分以下：不及格36VBScript编程基础100)or(score0)thenmsgbox“输入有误！“elseselectcasescore10case10,9msgbox”该学生的成绩为”&score&“优“case8msgbox”该学生的成绩为”&score&“良“case7msgbox”该学生的成绩为”&score&“中“case6msgbox”该学生的成绩为”&score&“及格“caseelsemsgbox”该学生的成绩为”&score&“不及格“endselect 37VBScript编程基础Case语句的应用根据时间显示不同的问候语Ca
25、se.asp38VBScript编程基础注意SelectCase结构只计算开始处的一个表达式（只计算一次），而If.Then.ElseIf结构计算每个ElseIf语句的表达式，这些表达式可以各不相同。仅当每个仅当每个ElseIf语句语句计算的表达式都相同时，才可以使用计算的表达式都相同时，才可以使用SelectCase结构来代替结构来代替If.Then.ElseIf结构。结构。注意注意vbscript的控制语句与的控制语句与HTML语句的结语句的结合使用合使用39VBScript编程基础6.4.2 循环语句实际应用中，常遇到需反复执行的代码，用循环语句可方便地处理这样的问题。在VBScript
26、中的循环语句有以下四种形式：Do.Loop语句：使用DO-Loop循环可以不指定循环次数，当条件为True时或条件变为True之前，循环一直继续下去。While.Wend：与DO语句相似，仅当条件为True时进行循环。For.Next：可以指定循环次数，当到达循环运行次数后，退出循环。ForEach.Next：不同于以上三种，它是对于数组和集合中的每个元素重复执行一组语句，多用于对数据库的操作。40VBScript编程基础DoLoop语句它它有以下两种语法格式：（1）Dowhile|Until条件表达式条件表达式语句块语句块Loop该说明：在循环开始时检查条件表达式，若用while关键字，则当
27、条件表达式的值为真时，执行循环体的语句块；若用Until关键字，则当条件表达式的值为假时，执行循环体，而当条件表达式值为真时，跳出循环。41VBScript编程基础例:求1+2+3+.+100=?Dimk,sumsum=0k=1DoWhile(k=100)sum=sum+kk=k+1Loopmsgbox”1+2+100=”&sumDo Until k10042VBScript编程基础（2）Do 语句块语句块LoopWhile|Until条件表达式条件表达式该格式是先执行一次循环体，然后才检查循环条件即求条件表达式的值。若想中途退出循环可用ExitDo语句，例：x=3Dox=x+2if(x10)
28、thenexitdoLoopUntilx=2043VBScript编程基础2、While.Wend语句 它的语法格式如下：While条件表达式条件表达式语句组语句组Wend先检验条件表达式的值是否为真，若为真，执行循环体语句；否则退出循环。 注意：该语句与DO语句很相似，但它只有While关键字的单一形式。另外它没有任何可跳离循环的语句，即不支持exit语句，当然也就没有exitwhile的表达形式。 但是由于While.Wend缺少灵活性，所以建议最好使用Do.Loop语句。44VBScript编程基础3、For.Next语句其语法格式为：For计数器变量计数器变量=初值初值to终值终值st
29、ep 语句组语句组Next在循环中使用计数器变量，该变量的值随每一次循环增加或减少，每次增加或减少的量称为步长即step。步长可为正，也可为负。若不指定步长，则默认为1。执行的运行过程：For循环从计数器的初值开始执行，每执行一次循环体语句，计数器变量变化步长值，若新的计数器变量值不超出终值，则继续执行循环体，如此重复，直到计数器变量值超过终值，则循环结束。45VBScript编程基础将上例用For循环改下如下：46VBScript编程基础要想中断循环，可用ExitFor语句，它主要用于在计数器到达终值之前要强制退出循环的情况。如：Dimm,sumsum=0form=30to6step2sum
30、=sum+mif(sum40)thenexitfornext从上例可看出，要使计数器变量递减，可将Step设为负值，但此时计数器变量的终止值必小于起止值。47VBScript编程基础4、ForEach.Next语句ForEach.Next循环与For.Next循环类似。ForEach.Next不是将语句运行指定的次数，而是对于数组中的每个元素或对象集合中的每一项重复相同的语句组。这在不知道集合中元素的数目时非常有用。例6-19、对数组求和。48VBScript编程基础Dima(4),k,j,sum,mj=0sum=0fork=3to7a(j)=kj=j+1nextforEachminasum=
31、sum+mNextmsgbox数组a的和为：&sum49VBScript编程基础6.5VBScript过程过程 在实际的编程过程中，有时会将一些用于实现某一特定功能而且相对集中的语句放在一个子程序中，这样的子程序也称为过程。在使用VBScript进行编程时，主要工作就是编写过程。通常把独立的功能模块封装成一个过程。在VBScript中有两种过程：Sub过程过程（又称子过程）和Function过程过程，两者的主要区别在于后者可以有返回值，而Sub过程没有返回值。50VBScript编程基础6.5.1Sub过程(1)过程的定义Sub过程是包含在Sub和EndSub语句之间的一组VBScript语句
32、，执行操作不返回值执行操作不返回值。它可以使用参数（由调用过程传递的常数、变量或表达式）。若Sub过程无任何参数，则Sub语句必须包含空括号（）。Sub过程名过程名(参数列表参数列表)语句块语句块exitsub语句块语句块Endsub51VBScript编程基础（2）过程的调用过程的调用有两种方法，分别是： 方法1：Call 过程名(参数1，参数2，) 方法2：过程名 参数1，参数2，说明：用方法2时只需输入过程名及所有参数值，参数值之间用逗号隔开，同时要去掉括号。若使用了Call语句，则必须将所有参数包含在括号之中。52VBScript编程基础6.5.2Function过程（1）函数的定义F
33、unction过程是包含在Function和EndFunction语句之间的一组VBScript语句。但Function过程可以返回值过程可以返回值，可以使用参数，若没有任何参数，则Function语句必须包含空括号()。Function过程通过函数名返回一个值，这个值是在过程的语句中赋给函数名的。返回值的类型总是Variant。Function函数名函数名(参数列表参数列表)语句块语句块exitFunction语句块语句块函数名函数名=函数返回值函数返回值EndFunction53VBScript编程基础（2）函数的调用调用Function过程时，Function过程名即函数名必须用在变量赋
34、值语句的右端或表达式中。即：变量变量= =函数名（参数）函数名（参数） Response.write Response.write 函数名（参数）函数名（参数）54VBScript编程基础6.6内部函数内部函数VBScript提供了大量的内部系统函数供编程者使用。1、输入、输入/输出函数输出函数通过浏览器完成各种数据的输入和输出。（1）输入框函数）输入框函数InputBox函数函数功能：在屏幕上显示一对话框，用户可在其中输入，并返回文本框内容。格式：InputBox(prompt,title,default,xpos,ypos,help)除第一个参数外，其余均可缺省。55VBScript编程基
35、础（2）消息框函数）消息框函数MsgBox功能：在对话框中显示消息，等待用户单击按钮。可通过提供的参数来指定对话框中显示的按钮，函数返回一个值指出用户选择了对话框中的哪个按钮。MsgBox(prompt,buttons,title,help)各参数的意义如下：prompt:显示在对话框中的字符串，最大长度为1024个字符。buttons:决定在对话框中显示哪个按钮，下表说明了buttons参数中可以包含的值。56VBScript编程基础2、字符串函数、字符串函数 VBScript提供了丰富的字符串处理函数.Lcase/UcaseLcase/Ucase函数函数功能：把字符串中的所有字母转换成对应
36、的小写字母（或大写字母）。语法形式：Lcase/Ucase(字符串)StrCompStrComp函数函数功能：用于比较两个字符串是否相同。格式：StrComp(串1，串2，compare)其中，可选参数compare如果取值为0(默认情况)，则按二进制方式比较且区分大小写；若取值为1，表示按文本方式比较，不区分大小写。57VBScript编程基础StrComp函数有以下返回值：string1小于string2-1string1等于string20string1大于string21string1或string2为NullnullMyStr1=“ABCD”:MyStr2=“abcd”MyComp=
37、StrComp(MyStr1,MyStr2,1)返回0。MyComp=StrComp(MyStr1,MyStr2,0)返回-1。MyComp=StrComp(MyStr2,MyStr1)返回1。58VBScript编程基础Len函数函数功能：计算指定字符串的长度或是存储一变量所需的字节数。格式：格式：Len(Len(字符串字符串| |变量变量) )Left/RightLeft/Right函数（字符串左右截取函数）函数（字符串左右截取函数）功能：从字符串的左边或右边开始，截取出指定个数的字符串。其中left()从串的左边开始截取，Right()则从右边截取。格式：格式：Left/Right(Le
38、ft/Right(字符串，截取的个数字符串，截取的个数) )说明：当截取的个数大于字符串长度时返回整个字符串。59VBScript编程基础Mid函数函数功能：从字符串中指定的位置起取出指定数目的子字符串。格式：格式：Mid(Mid(字符串，字符串，startstart，length)length)说明：返回字符串从start开始长度为length的子串。Ltrim/Rtrim/Trim(Ltrim/Rtrim/Trim(字符串字符串) )（删除空格函数）（删除空格函数）功能：删除字符串左边或右边的空白字符。其中Ltrim()删除字符串左边的所有空格字符，Rtrim()删除右边的空格，Trim(
39、)同时删除字符串左边和右边的所有空格。格式：格式：Ltrim/Rtrim/Trim(Ltrim/Rtrim/Trim(字符串字符串) )60VBScript编程基础Instr函数函数（字符串匹配函数）功能：查找某字符串在另一个字符串中第一次出现的位置。格格式式：Instr(Instr(开开始始位位置置， 源源字字符符串串，待待查查找找的的字符串字符串 ，比较方式，比较方式)说明：“开始位置”用于指定在“源字符串”中搜索的开始位置，若设置了比较方式，则该参数必须指定，若未指定比较方式，则该参数可不写出。比较方式为0时，以二进制方式进行比较，区分大小写；为1时，不区分大小写，以文本方式进行比较。若
40、缺省该参数，则默认按二进制方式进行比较。利用该函数可实现在文本中查找字符串。61VBScript编程基础searchstring=xxjXXjxxJxxJsearchchar=“Jmypos1=Instr(4,searchstring,searchchar,1)mypos2=Instr(1,searchstring,searchchar,0)mypos3=Instr(searchstring,searchchar)mypos4=Instr(1,searchstring,W)Document.writemypos1&mypos2&mypos3&mypos462VBScript编程基础63VBSc
41、ript编程基础3、数学函数、数学函数VBScript除了提供数学运算外，还提供了数学函数，包括绝对值函数、平方根函数、指数函数和三角函数等。 Sqr函数函数功能：求平方根格式：格式：Sqr(x)Sqr(x)x x大于等于大于等于Abs函数函数功能：求绝对值格式：格式：abs(x)abs(x)64VBScript编程基础Int与与Fix函数函数功能：Int和Fix都是直接删除小数部分，返回剩下的整数。不同之处在于：若x是负数，Int返回小于或等于x的第一个负整数；而Fix则会返回大于或等于x的第一个负整数。当x为正数时，二者返回的值一样。如：Int(-6.7)=-7，而Fix(-6.7)=-6
42、格式：格式：Int(x) Int(x) 或或Fix(x)Fix(x)65VBScript编程基础Rnd函数函数功能：该函数返回一个小于小于1但大于或等于但大于或等于0的随机数。格式：Rnd(number)说明：number决定了Rnd生成随机数的方式，若number小于0，每次产生的随机数均相同；若number大于0或缺省该参数，则产生与上次不同的新随机数；若number等于0，则本次产生的随机数与上次产生的随机数相同。由于该函数产生的是01间的随机数，若要产生指定范围的随机数，可使用以下公式来实现：Int(upperbound-lowerbound+1)*Rnd+lowerbound)其中，
43、upperbound表示范围的上界，lowerbound表示范围的 下 界 。 如 要 产 生 28间 的 随 机 数 ， 可 表 示 为 ：num=Int(7*Rnd+2)66VBScript编程基础例：产生10以内不重复的随机数。functionyzl(up,low)dimy(9)fori=0to9doflag=falserandomize初始化随机数生成器y(i)=int(rnd*(up-low+1)+low)forj=0toi-1ify(j)=y(i)thenflag=trueendifnext67VBScript编程基础loopwhile(flag=true)nextyzl=yEnd
44、functiont=yzl(10,0)fori=0to9document.writet(i)document.writenext68VBScript编程基础4、时间和日期函数、时间和日期函数datedate函数函数 功能：返回系统当前日期 格式：格式：datedate（）（）TimeTime函数函数 功能：返回系统当前时间 格式：格式：time()time()NowNow函数函数 功能：返回系统当前日期与时间 格式：格式：now()now()以上三个函数的括号可省略以上三个函数的括号可省略69VBScript编程基础WeekDayWeekDay函数函数功能：返回给定日期中的星期数，默认是以星期
45、日为第一天。格式：格式：WeekDay(dateWeekDay(date，firstdayofweek)firstdayofweek)说明：如WeekDay(#2004-9-07#)返回值为3,表示该日是星期二。 如果想把星期一作为一周的第一天，可以使用如下的格式：WeekDay(date,2)。70VBScript编程基础Year（date）：返回一个代表某年的整数Month（date）：返回1到12之间的一个整数，代表一年中的某月Day（date）：返回1到31之间的一个整数，代表某月中的一天其中其中date参数是任意可以代表日期的表达式参数是任意可以代表日期的表达式如如year(#200
46、7-5-8#)71VBScript编程基础Hour（Time）：）：返回0到23之间的一个整数（包括0和23），代表一天中的某一小时。Minute（Time）:返回0到59之间的一个整数（包括0和59），代表一小时内的某一分钟。Second（Time）:返回0到59之间的一个整数（包括1和59），代表一分钟内的某一秒。其中其中time参数是任意可以代表时间的表达式参数是任意可以代表时间的表达式如如hour(#12:23:34#)或或hour(“12:23:34”) 72VBScript编程基础DateAddDateAdd函数函数功能：返回添加了指定时间间隔后的日期。格式：格式：DateAdd(
47、interval,num, inidate)DateAdd(interval,num, inidate)说明：第一个参数指定一个时间间隔；第二个参数代表添加多少个时间间隔；第三个参数是一个日期或时间的变量或常量。你的密码将于过期 上例返回比前当日期晚3个星期的日期。其中Date参数也可用一个日期常量来表示，如下例：要获得2008-04-07之后16天的日期，则实现的代码为：73VBScript编程基础DateDiff函数函数功能：用于计算两个日期或时间之间的间隔。格式：格式：DateDiff(interval,date1,date2)DateDiff(interval,date1,date2)
48、说明：第一个参数与DateAdd函数的参数一相同。为了避免出现负数，第一个日期参数应该比第二个早。例:要计算2009-08-08距离现在的天数，则实现的语句为：该函数在处理按时间计费的系统时十分有用。74VBScript编程基础5、转换函数、转换函数Hex函数和函数和oct函数函数功能：hex函数把十进制数转换为16进制数；oct函数把十进制数转换为8进制数格式：格式：hex(number) oct(number) hex(number) oct(number) 75VBScript编程基础ASC函数函数功能：将字符或字符串的首字符转换为相应的ASCII码。格式：格式：ASCASC（字符或字符
49、串）（字符或字符串）说明：对于英文字符，返回值为0255，中文字符返回值为-3276832767。Chr函数函数功能：将数值表达式值当作ASCII码，函数返回该ASCII码对应的字符。格式：格式：Chr(Chr(数值表达式数值表达式) )76VBScript编程基础CStrCStr函数函数 功能：将数值表达式的值转换为字符串。 格式：格式：CStr(CStr(数值表达式数值表达式) )77VBScript编程基础CByte(expression)：转换为Byte子类型CInt(expression)：转换为Integer子类型CLng(expression)：转换为Long子类型CSng(ex
50、pression)：转换为Single子类型CDbl(expression)：转换为Double子类型其中其中expression参数是任意有效的表达式参数是任意有效的表达式78VBScript编程基础6、测试函数测试函数（1 1）IsNullIsNull函数函数功能：测试表表达达式式的值是否为空值（NULL），若是返回True,否则返回False。格式：格式：IsNull(IsNull(表达式表达式) )（2 2）IsEmptyIsEmpty函数函数功能：判断一个变变量量是否已初始化(就是赋值) ，若未初始化则函数返回True，否则返回False。格式：格式：IsEmpty(IsEmpty(
51、变量名变量名) )（3 3）IsNumericIsNumeric函数函数功能：测试表表达达式式是否由数字组成，若是返回True,否则返回False。格式：格式：IsNumeric(IsNumeric(表达式表达式) )79VBScript编程基础7、与数组相关的函数、与数组相关的函数（1）Ubound函数函数功能：返回数组在指定维数上下标的上界值。格式：格式：Ubound(数组名数组名,维数序号维数序号)（2）Lbound函数函数功能：返回数组在指定维数上下标的上界值。格式：格式：Lbound(数组名数组名,维数序号维数序号)例:dima(3,6)Ubound(sum,2)的返回值为680VBScript编程基础
