VBScript 教程

VBScript 全称为 Visual Basic Script。

VBScript 是微软公司出品的脚本语言。

VBScript 是ASP (Active Server Pages)默认使用的脚本语言。

你可以在 Internet Explorer 尝试使用 VBScript 。

VBScript 编辑器

VBScript 是一个动态脚本语言。

Internet Explorer 支持 VBScript. 所以你可以在IE浏览器中执行VBScript， 通过我们的 VBScript 在线实例，你可以查看实例的运行结果：

实例(只能在Internet Explorer运行)

<html>
<body>

<script type="text/vbscript">
document.write("This is my first VBScript!")
</script>

</body>
</html>

尝试一下 »

点击 "尝试一下" 按钮查看运行结果。

什么是 VBScript?

  • VBScript 是一种脚本语言
  • 脚本语言是一种轻量级的编程语言
  • VBScript 是微软的编程语言 Visual Basic 的轻量级的版本

VBScript 实例

通过实例进行学习。使用我们的编辑器，你可以编辑源代码，然后单击 "尝试一下" 按钮来查看结果。

在线实例！

VBScript 参考手册

在本站中你可以找到完整的 VBScript 参考手册。

VBScript 参考手册

学习之前，您需要具备的基础知识：

在继续学习之前，您应该对下面的知识有基本的了解：

  • WWW, HTML 以及网站建设的基础知识

如果您希望首先学习以上的项目，请访问我们的首页。

提示：目前只有 Internet Explorer 支持 VBScript，其他浏览器不支持，但是因为 IE 浏览器的广泛使用，相应的 VBScript 的应用也不容忽视。

什么是VBScript?

  • VBScript 是一种脚本语言
  • 脚本语言是一种轻量级的编程语言
  • VBScript 是微软的编程语言 Visual Basic 的轻量级的版本

它如何工作？

当VBScript 被插入一个 HTML 文档后，因特网浏览器会读取这个文档，并对 VBScript 进行解释。VBScript 可能会立即执行，也可能在之后的事件发生时执行。

在下一节内容中，我们将开始学习如何使用 VBScript！ 

VBScript 用法

HTML <script> 标签被用来向 HTML 中插入 VBScript。

HTML 中的 VBScript

如需在 HTML 中插入 VBScript，脚本必须写在标准的 <script> 和 </script> 标签之间。

在 <script> 标签中，请使用 type 属性来定义脚本语言 "text/vbscript"：

<html>
<body>
<script type="text/vbscript">
...
</script>
</body>
</html>

IE 将解释和执行 <script> 和 </script> 之间的 VBScript 代码。

lamp VBScript 不应该被用作客户端脚本语言！
在这里，我们使用仅适用于 IE 的 VBScript 的用于学习。

VBScript 输出

当 VBScript 被用在 Web 服务器上的 ASP 页面时，语句 response.write() 产生输出。

当我们使用 Internet Explorer 来测试 VBScript，我们使用 document.write() 来产生输出：

实例（仅适用于 Internet Explorer）

<html>
<body>
<script type="text/vbscript">
document.write("Hello World!")
</script>
</body>
</html>

尝试一下 »

在上面的实例中，浏览器输出 "Hello World!" 到 HTML 页面。

VBScript 变量

变量是一种使用方便的占位符，是存储信息的"容器"。

实例

尝试一下 - 实例（只适用于 IE）

创建和改变变量
如何创建一个变量，并为它赋值，然后再改变它的值。

在一段文本中插入变量值
如何在一段文本中插入变量值。

创建数组
数组用来存储一系列相关的数据项。本例演示如何创建一个存储名字的数组。

还记得在学校里学过的代数吗？

还记得在学校里学过的代数吗？x=5，y=6，z=x+y

还记得吗？一个字母（比如 x）可以保存一个值（比如 5)，并且可以使用上面的信息计算出 z 的值是 11。

这些字母称为变量，变量可用于保存值（x=5）或表达式（z=x+y）。

VBScript 变量

与代数相比，VBScript 变量用于保存值或表达式。

变量可以有一个短的名称，如 x，或一个更具描述性的名称，如 carname。

VBScript 变量名称的规则：

  • 必须以字母开头
  • 不能包含点号（.）
  • 不能超过 255 个字符
  • 在被声明的作用域内必须唯一

在 VBScript 中，所有的变量都与类型 variant 相关，可存储不同类型的数据。

声明（创建）VBScript 变量

在 VBScript 创建变量通常指"声明"变量。

您可以通过 Dim、Public 或 Private 语句声明 VBScript 变量。如下所示：

Dim x
Dim carname

现在您已经创建了两个变量。变量的名称是 "x" 和 "carname"。

您也可以在脚本中通过使用它的名称来声明变量。如下所示：

carname="Volvo"

现在您又创建了一个变量。变量的名称是 "carname"。然后，这个做法不是一个好习惯，因为您可能会在脚本中拼错变量名，那样可能会在脚本运行时引起奇怪的结果。

如果您拼错变量名，比如 "carname" 变量错拼为 "carnime"，脚本会自动创建一个名为 "carnime" 的新变量。为了防止脚本这样做，您可以使用 Option Explicit 语句。如果您使用这个语句，就必须使用 dim、public 或 private 语句来声明所有的变量。

把 Option Explicit 语句放置于脚本的顶端，如下所示：

Option Explicit
Dim carname
carname=some value

为变量赋值

您可以为某个变量赋值，如下所示：

carname="Volvo"
x=10

变量名是在表达式的左侧，需要赋给变量的值在表达式的右侧。现在变量 "carname" 的值是 "Volvo"，变量 "x" 的值是 "10"。

变量的生存期

变量的生存期指的是它可以存在的时长。

当您在一个子程序中声明变量时，变量只能在此程序内进行访问。当退出此程序时，变量也会失效。这样的变量称为本地变量。您可以在不同的子程序中使用名称相同的本地变量，因为每个变量只能在声明它的程序内得到识别。

如果您在子程序以外声明了一个变量，在您的页面上的所有子程序都可以访问它。这类变量的生存期始于它们被声明，止于页面被关闭。

VBScript 数组变量

数组变量用于在一个单一的变量中存储多个值。

在下面的实例中，声明了一个包含 3 个元素的数组：

Dim names(2)

括号内显示的数字是 2。数组的下标以 0 开始，因此该数组包含 3 个元素。这是容量固定的数组。您可以为数组的每个元素分配数据，如下所示：

names(0)="Tove"
names(1)="Jani"
names(2)="Stale"

同样地，通过使用特定数组元素的下标号，您可以取回任何元素的值。如下所示：

mother=names(0)

您可以在一个数组中使用多达 60 个维数。声明多维数组的方法是在括号中用逗号来分隔数字。这里，我们声明了一个包含 5 行 7 列的 2 维数组：

Dim table(4,6)

为二位数组赋值：

实例（仅适用于 IE）

<html>
<body>

<script type="text/vbscript">
Dim x(2,2)
x(0,0)="Volvo"
x(0,1)="BMW"
x(0,2)="Ford"
x(1,0)="Apple"
x(1,1)="Orange"
x(1,2)="Banana"
x(2,0)="Coke"
x(2,1)="Pepsi"
x(2,2)="Sprite"
for i=0 to 2
document.write("<p>")
for j=0 to 2
document.write(x(i,j) & "<br />")
next
document.write("</p>")
next
</script>

</body>
</html>

尝试一下 »
认识了 VBScript 变量，在接下来的一节内容中，我们一起来学习 VBScript 程序的使用！

VBScript 程序

VBScript 可使用两种程序：

  • 子程序
  • 函数程序

VBScript 子程序

子程序是将一段具有某种特定功能的语句区块单句撰写成一个独立的程序，给予特定的名称。

子程序：

  • 是一系列的语句，被封装在 Sub 和 End Sub 语句内
  • 可执行某些操作，但不会返回值
  • 可带有参数
Sub mysub()
some statements
End Sub

或者

Sub mysub(argument1,argument2)
some statements
End Sub

实例（仅适用于 IE）

Sub mysub()
document.write("I was written by a sub procedure")
End Sub

尝试一下 »

VBScript 函数程序

函数程序：

  • 是一系列的语句，被封装在 Function 和 End Function 语句内
  • 可执行某些操作，并会返回值
  • 可带有通过程序调用来向其传递的参数。
  • 如果没有参数，必须带有空的圆括号 ()
  • 通过向函数程序名赋值的方式，可使其返回值
Function myfunction()
some statements
myfunction=some value
End Function

或者

Function myfunction(argument1,argument2)
some statements
myfunction=some value
End Function

实例（仅适用于 IE）

function myfunction()
myfunction=Date()
end function

尝试一下 »

调用程序

这个简单的函数程序被调用来计算两个参数的和：

实例（仅适用于 IE）

Function myfunction(a,b)
myfunction=a+b
End Function

document.write(myfunction(5,9))

尝试一下 »

函数 "myfunction" 将返回参数 "a" 和参数 "b" 的和。这里返回的是 14。

当您调用程序时，您可以使用 Call 语句，如下所示：

Call MyProc(argument)

或者，您可以省略 Call 语句，如下所示：

MyProc argument

VBScript 条件语句

VBScript 条件语句允许你控制脚本的流程，可以编写进行判断和重复操作的 VBScript 代码。

条件语句

条件语句用于根据不同的情况执行不同的操作。

在 VBScript 中，我们可以使用四种条件语句：

  • If stat语句ement - 假如您希望在条件为 true 时执行一系列的代码，可以使用这个语句
  • If...Then...Else 语句 - 假如您希望执行两套代码其中之一，可以使用这个语句
  • If...Then...ElseIf 语句 - 假如您希望选择多套代码之一来执行，可以使用这个语句
  • Select Case 语句 - 假如您希望选择多套代码之一来执行，可以使用这个语句

If...Then...Else

在下面的情况中，您可以使用 If...Then...Else 语句：

  • 在条件为 true 时，执行某段代码
  • 选择两段代码之一来执行

如果在条件为 true 时只执行一条语句，可以把代码写为一行：

If i=10 Then alert("Hello")

在上面的代码中，没有 ..Else.. 语句。我们仅仅让代码在条件为 true 时（当 i=10 时）执行一项操作。

如果在条件为 true 时执行不止一条语句，那么就必须在一行写一条语句，然后使用关键词 "End If" 来结束这个语句：

If i=10 Then
alert("Hello")
i = i+1
End If

在上面的代码中，同样没有 ..Else.. 语句。我们仅仅让代码在条件为 true 时执行了多项操作。

假如您想要在条件为 true 时执行某条语句，并在条件不为 true 时执行另一条语句，就必须添加关键词 "Else"：

实例（仅适用于 IE）

<script type="text/vbscript">
i=hour(time)
If i < 10 Then
document.write("Good morning!")
Else
document.write("Have a nice day!")
End If
</script>

尝试一下 »

在上面的代码中，当条件为 true 时会执行第一段代码，当条件不成立时执行第二段代码（当 i 大于 10 时）。

If...Then...ElseIf

如果您想要选择多套代码之一来执行，可以使用 If...Then...ElseIf 语句：

实例（仅适用于 IE）

<script type="text/vbscript">
i=hour(time)
If i = 10 Then
document.write("Just started...!")
ElseIf i = 11 Then
document.write("Hungry!")
ElseIf i = 12 Then
document.write("Ah, lunch-time!")
ElseIf i = 16 Then
document.write("Time to go home!")
Else
document.write("Unknown")
End If
</script>

尝试一下 »

Select Case

如果您想要选择多套代码之一来执行，可以使用 "Select Case" 语句：

实例（仅适用于 IE）

<script type="text/vbscript">
d=weekday(date)
Select Case d
Case 1
document.write("Sleepy Sunday")
Case 2
document.write("Monday again!")
Case 3
document.write("Just Tuesday!")
Case 4
document.write("Wednesday!")
Case 5
document.write("Thursday...")
Case 6
document.write("Finally Friday!")
Case else
document.write("Super Saturday!!!!")
End Select
</script>

尝试一下 »

以上代码的工作原理：首先，我们需要一个简单的表达式（常常是一个变量），并且这个表达式会被做一次求值运算。然后，表达式的值会与每个 Case 中的值作比较。如果匹配，被匹配的 Case 所对应的代码会被执行。

在本节内容中，你已经学习了 VBScript 条件语句，在下一节内容中，你将接触 VBScript 循环语句，这两种语句常常配合使用！

VBScript 循环

VBScript 循环用于重复执行一组语句，本节介绍了四种循环语句。

循环语句

循环语句用于运行相同的代码块指定的次数。Looping statements are used to run the same block of code a specified number of times.

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

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

For...Next 循环

请使用 For...Next 语句运行一段代码指定的次数。

For 语句规定计数变量（i）以及它的初始值和结束值。Next 语句会以 1 作为步进值来递增变量（i）。

实例

<html>
<body>

<script type="text/vbscript">
For i = 0 To 5
document.write("The number is " & i & "<br />")
Next
</script>

</body>
</html>

尝试一下 »

Step 关键词

通过 Step 关键词，您可以规定计数变量递增或递减的步进值。

在下面的实例中，计数变量（i）每次循环的递增步进值为 2。

For i=2 To 10 Step 2
some code
Next

如果要递减计数变量，您就必须使用负的 Step 值。并且必须规定小于开始值的结束值。

在下面的实例中，计数变量（i）每次循环的递减步进值为 2。

For i=10 To 2 Step -2
some code
Next

退出 For...Next

您可以通过 Exit For 关键词退出 For...Next 语句。

For i=1 To 10
If i=5 Then Exit For
some code
Next

For Each...Next 循环

For Each...Next 针对集合中的每个项目或者数组中的每个元素来重复运行某段代码。

实例

<html>
<body>

<script type="text/vbscript">
Dim cars(2)
cars(0)="Volvo"
cars(1)="Saab"
cars(2)="BMW"

For Each x In cars
document.write(x & "<br />")
Next
</script>

</body>
</html>

尝试一下 »

Do...Loop

如果你不知道重复多少次，可以使用 Do...Loop 语句。

Do...Loop 语句重复执行某段代码直到条件是 true 或条件变成 true。

重复执行代码直到条件是 true

您可以使用 While 关键字来检查 Do... Loop 语句的条件。

Do While i>10
some code
Loop

如果 i 等于 9，上述循环内的代码将终止执行。

Do
some code
Loop While i>10

这个循环内的代码将被执行至少一次，即使 i 小于 10。

重复执行代码直到条件变成 true

您可以使用 Until 关键字来检查 Do...Loop 语句的条件。

Do Until i=10
some code
Loop

如果 i 等于 10，上述循环内的代码将终止执行。

Do
some code
Loop Until i=10

这个循环内的代码将被执行至少一次，即使 i 等于 10。

退出 Do...Loop

您可以通过 Exit Do 关键词退出 Do...Loop 语句。

Do Until i=10
i=i-1
If i<10 Then Exit Do
Loop

这个循环内的代码，只要 i 不为 10 且 i 大于 10 时都将被执行。

实例s

更多实例（仅适用于 IE）

循环遍历标题
如何循环遍历 html 中的六个标题。

Do...While loop
如何做一个简单的 Do...While 循环。

以上就是 VBScript 循环语句的全部内容了，现在你可以自己动手通过代码熟悉该语句的使用啦！

您已经学习了 VBScript，下一步呢？

VBScript 总结

本教程已经向您讲解了 VBScript。

您已经学习了有关变量和函数，以及如何如何根据不同的情况运行不同的脚本。

如需了解更多有关 VBScript 的信息，请参阅我们的 VBScript 实例和我们的 VBScript 参考手册。

现在您已经学习了 VBScript，下一步呢？

下一步应该是学习 ASP。

HTML 文件中的脚本是在客户端（在浏览器）执行的，ASP 文件中的脚本是在服务器上执行的。

通过 ASP，您可以动态地编辑、改变或添加网页的任何内容，响应 HTML 表单提交的数据，访问任何数据或数据库并向浏览器返回结果，为不同的用户定制更有用的页面等等。

由于 ASP 文件被作为纯粹的 HTML 返回浏览器，，因此我们可以在任何浏览器中查看 ASP。

如果您想要学习更多有关 ASP 的知识，请访问我们的 ASP 教程。

在 VB 函数章节中我们将向你详细介绍与 VB 相关的函数！

VBScript 函数

在 VBScript 中存在许多函数，本节将为你介绍它们！

本页列出了所有内建的 VBScript 函数，主要分为以下几类：

Date/Time 函数

函数 描述
CDate 把有效的日期和时间表达式转换为日期（Date）类型。
Date 返回当前的系统日期。
DateAdd 返回已添加指定时间间隔的日期。
DateDiff 返回两个日期之间的时间间隔数。
DatePart 返回给定日期的指定部分。
DateSerial 返回指定年、月、日的日期。
DateValue 返回日期。
Day 返回代表一月中的一天的数字（介于并包括 1 到 31 之间）。
FormatDateTime 返回格式化为日期或时间的表达式。
Hour 返回代表一天中的小时的数字（介于并包括 0 到 23 之间）。
IsDate 返回指示计算表达式能否转换为日期的布尔值。
Minute 返回一个数字，代表小时的分钟（介于并包括 0 到 59 之间）。
Month 返回一个数字，代表年的月份（介于并包括 1 到 12 之间）。
MonthName 返回指定月份的名称。
Now 返回当前的系统日期和时间。
Second 返回一个数字，代表分钟的秒（介于并包括 0 到 59 之间）。
Time 返回当前的系统时间。
Timer 返回自 12:00 AM 以来的秒数。
TimeSerial 返回特定小时、分钟和秒的时间。
TimeValue 返回时间。
Weekday 返回一个数字，代表一周的天数（介于并包括 1 到 7 之间）。
WeekdayName 返回一周中指定的一天的星期名。
Year 返回一个数字，代表年份。

Conversion 函数

 Top
函数 描述
Asc 把字符串中的首字母转换为 ANSI 字符代码。
CBool 把表达式转换为布尔（Boolean）类型。
CByte 把表达式转换为字节（Byte）类型。
CCur 把表达式转换为货币（Currency）类型。
CDate 把有效的日期和时间表达式转换为日期（Date）类型。
CDbl 把表达式转换为双精度（Double）类型。
Chr 把指定的 ANSI 字符代码转换为字符。
CInt 把表达式转换为整数（Integer）类型。
CLng 把表达式转换为长整型（Long）类型。
CSng 把表达式转换为单精度（Single）类型。
CStr 把表达式转换为字符串（String）类型。
Hex 返回指定数字的十六进制值。
Oct 返回指定数字的八进制值。

Format 函数

 Top
函数 描述
FormatCurrency 返回作为货币值进行格式化的表达式。
FormatDateTime 返回作为日期或时间进行格式化的表达式。
FormatNumber 返回作为数字进行格式化的表达式。
FormatPercent 返回作为百分数进行格式化的表达式。

Math 函数

 Top
函数 描述
Abs 返回指定数字的绝对值。
Atn 返回指定数字的反正切。
Cos 返回指定数字（角度）的余弦。
Exp 返回 e（自然对数的底）的幂次方。
Hex 返回指定数字的十六进制值。
Int 返回指定数字的整数部分。
Fix 返回指定数字的整数部分。
Log 返回指定数字的自然对数。
Oct 返回指定数字的八进制值。
Rnd 返回小于1但大于或等于0的一个随机数。
Sgn 返回可指示指定数字的符号的一个整数。
Sin 返回指定数字（角度）的正弦。
Sqr 返回指定数字的平方根。
Tan 返回指定数字（角度）的正切。

Array 函数

 Top
函数 描述
Array 返回一个包含数组的变量。
Filter 返回下标从零开始的数组，其中包含基于特定过滤条件的字符串数组的子集。
IsArray 返回一个指示指定的变量是否为数组的布尔值。
Join 返回一个由数组中若干子字符串组成的字符串。
LBound 返回指示数组维数的最小下标。
Split 返回下标从零开始的一维数组，包含指定数量的子字符串。
UBound 返回指示数组维数的最大下标。

String 函数

 Top
函数 描述
InStr 返回字符串在另一字符串中首次出现的位置。搜索从字符串的第一个字符开始。
InStrRev 返回字符串在另一字符串中首次出现的位置。搜索从字符串的最末字符开始。
LCase 把指定字符串转换为小写。
Left 从字符串的左侧返回指定数量的字符。
Len 返回字符串中的字符数量。
LTrim 删除字符串左侧的空格。
RTrim 删除字符串右侧的空格。
Trim 删除字符串左侧和右侧的空格。
Mid 从字符串中返回指定数量的字符。
Replace 使用另一个字符串替换字符串的指定部分指定的次数。
Right 从字符串的右侧返回指定数量的字符。
Space 返回由指定数量的空格组成的字符串。
StrComp 比较两个字符串，返回代表比较结果的一个值。
String 返回包含指定长度的重复字符的字符串。
StrReverse 反转字符串。
UCase 把指定的字符串转换为大写。

其他函数

 Top
函数 描述
CreateObject 创建指定类型的对象。
Eval 计算表达式，并返回结果。
GetLocale 返回当前的 locale ID。
GetObject 返回对文件中 automation 对象的引用。
GetRef 允许您把 VBScript 子程序连接到页面上的一个 DHTML 事件。
InputBox 显示对话框，用户可在其中输入文本，并/或点击按钮，然后返回内容。
IsEmpty 返回一个布尔值，指示指定的变量是否已被初始化。
IsNull 返回一个布尔值，指示指定的表达式是否包含无效数据（Null）。
IsNumeric 返回一个布尔值，指示指定的表达式是否可作为数字来计算。
IsObject 返回一个布尔值，指示指定的表达式是否是一个 automation 对象。
LoadPicture 返回一个图片对象。仅用于 32 位平台。
MsgBox 显示消息框，等待用户点击按钮，并返回指示用户点击了哪个按钮的值。
RGB 返回一个表示 RGB 颜色值的数字。
Round 对数字进行四舍五入。
ScriptEngine 返回使用中的脚本语言。
ScriptEngineBuildVersion 返回使用中的脚本引擎的内部版本号。
ScriptEngineMajorVersion 返回使用中的脚本引擎的主版本号。
ScriptEngineMinorVersion 返回使用中的脚本引擎的次版本号。
SetLocale 设置 locale ID，并返回之前的 locale ID。
TypeName 返回指定变量的子类型。
VarType 返回指示变量子类型的值。

VBScript 关键字

本节介绍了 VBScript 中的一些常用的关键字。

VBScript 关键字

关键字 描述
Empty

用于指示一个未初始化的变量值。当第一次创建变量时或变量值显式设置为空时，变量值未初始化且变量为被赋值。

实例：
Dim x '变量 x 未初始化！
x="ff" '变量 x 不再是未初始化
x=Empty '变量 x 未初始化！

注意：这和 Null 不一样！！
IsEmpty

用于测试一个变量是否未初始化。

实例：If (IsEmpty(x)) '变量 x 未初始化？
Nothing 用于指示一个未初始化的对象值，或者把对象变量从对象分离用于释放系统资源。

实例: Set myObject=Nothing
Is Nothing 用于测试一个值是否是初始化的对象。

实例：If (myObject Is Nothing) '它是否未设置？

注意：如果您把一个值与 Nothing 作比较，您将不会得到正确的结果！实例: If (myObject = Nothing) '总是错误！
Null 用于指示变量不包含有效数据。

Null 把值设置为"无效"，Empty 则表示值"未设置"。

注意：这不同于 Empty 或 Nothing！！

实例：x=Null 'x 不包含有效数据
IsNull 用于测试一个值是否包含无效数据。

实例: if (IsNull(x)) 'x 是无效的？
True 用于指示一个布尔条件是正确的（True 为 -1）
False 用于指示一个布尔条件是不正确的（False 为 0）

VBScript Round 函数

在使用 VBScript 的时候，如果需要对数字进行四舍五入，那么请使用 Round 函数！

VBScript 参考手册 完整的 VBScript 参考手册

Round 函数对数字进行四舍五入。

语法

Round(expression[,numdecimalplaces])

参数 描述
expression 必需。需要被四舍五入的数值表达式。
numdecimalplaces 可选。规定对小数点右边的多少位进行四舍五入。默认是 0。

实例

实例 1

<script type="text/vbscript">

document.write(Round(24.13278) & "<br />")
document.write(Round(24.75122))

</script>

以上实例输出结果：

24
25

尝试一下 »

实例 2

如何对一个数字进行四舍五入，保留 2 位小数：

<script type="text/vbscript">

document.write(Round(24.13278,2))

</script>

以上实例输出结果：

24.13

尝试一下 »
VBScript 参考手册 完整的 VBScript 参考手册

VBScript RGB 函数

在 VBScript 如果需要对 RGB 颜色值进行表示，就使用 RGB 函数！

VBScript 参考手册 完整的 VBScript 参考手册

RGB 函数返回表示 RGB 颜色值的数字。

语法

RGB(red,green,blue)

参数 描述
red 必需。介于 0 - 255 之间（且包括）的数字，代表颜色的红色部分。
green 必需。介于 0 - 255 之间（且包括）的数字，代表颜色的绿色部分。
blue 必需。介于 0 - 255 之间（且包括）的数字，代表颜色的蓝色部分。

实例

实例 1

<script type="text/vbscript">

document.write(rgb(255,0,0))

</script>

以上实例输出结果：

255

尝试一下 »

实例 2

<script type="text/vbscript">

document.write(rgb(255,30,30))

</script>

以上实例输出结果：

1974015

尝试一下 »
VBScript 参考手册 完整的 VBScript 参考手册

相关文章

颜色值

VBScript MsgBox 函数

MsgBox 函数的功能是弹出一个对话框，等待用户单击按钮，并返回一个 Integer 值表示用户单击了哪一个按钮。

VBScript 参考手册 完整的 VBScript 参考手册

MsgBox 函数显示一个消息框，等待用户点击某个按钮，然后返回指示被点击按钮的值。

MsgBox 函数返回下面的值：

  • 1 = vbOK - OK 按钮被点击
  • 2 = vbCancel - Cancel 按钮被点击
  • 3 = vbAbort - Abort 按钮被点击
  • 4 = vbRetry - Retry 按钮被点击
  • 5 = vbIgnore - Ignore 按钮被点击
  • 6 = vbYes - Yes 按钮被点击
  • 7 = vbNo - No 按钮被点击

注意：当 helpfile 和 context 参数均被规定后，用户可按 F1 键来查看帮助。

提示：请参阅 InputBox 函数。

语法

MsgBox(prompt[,buttons][,title][,helpfile,context])

参数 描述
prompt 必需。作为消息显示在对话框中的字符串表达式。prompt 的最大长度大约是 1024 个字符，这取决于所使用的字符的宽度。如果 prompt 中包含多个行，则可在各行之间用回车符（Chr(13)）、换行符（Chr(10)）或回车换行符的组合（Chr(13) & Chr(10)）分隔各行。
buttons 可选，是表示指定显示按钮的数目和类型、使用的图标样式，默认按钮的标识以及消息框样式的数值的总和。默认值为 0。
  • 0 = vbOKOnly - 只显示 OK 按钮
  • 1 = vbOKCancel - 显示 OK 和 Cancel 按钮
  • 2 = vbAbortRetryIgnore - 显示 Abort、Retry 和 Ignore 按钮
  • 3 = vbYesNoCancel - 显示 Yes、No 和 Cancel 按钮
  • 4 = vbYesNo - 显示 Yes 和 No 按钮
  • 5 = vbRetryCancel - 显示 Retry 和 Cancel 按钮
  • 16 = vbCritical - 显示临界信息图标
  • 32 = vbQuestion - 显示警告查询图标
  • 48 = vbExclamation - 显示警告消息图标
  • 64 = vbInformation - 显示信息消息图标
  • 0 = vbDefaultButton1 - 第一个按钮为默认按钮
  • 256 = vbDefaultButton2 - 第二个按钮为默认按钮
  • 512 = vbDefaultButton3 - 第三个按钮为默认按钮
  • 768 = vbDefaultButton4 - 第四个按钮为默认按钮
  • 0 = vbApplicationModal - 应用程序模式（用户必须响应消息框才能继续在当前应用程序中工作）
  • 4096 = vbSystemModal - 系统模式（在用户响应消息框前，所有应用程序都被挂起）

我们可以把按钮分成四组：第一组值(0-5)用于描述对话框中显示的按钮类型与数目；第二组值(16,32,48,64)用于描述图标的样式；第三组值(0,256,512,768)用于确定默认按钮；而第四组值(0,4096)则决定消息框的样式。在将这些数字相加以生成 buttons 参数值时，只能从每组值中取用一个数字。
title 可选。消息框的标题。默认是应用程序的名称。
helpfile 可选。字符串表达式，用于标识为对话框提供上下文相关帮助的帮助文件。必须与 context 参数一起使用。
context 可选。数值表达式，用于标识由帮助文件的作者指定给某个帮助主题的上下文编号。必须与 helpfile 参数一起使用。

实例

实例 1

<script type="text/vbscript">

MsgBox("Hello world")

</script>

尝试一下 »

实例 2

带有换行符的消息框：

<script type="text/vbscript">

MsgBox("Hello" & chr(13) & "world")

</script>

尝试一下 »

实例 3

不同的 buttonsets 和不同的图标。返回点击的按钮的值：

<script type="text/vbscript">

x=MsgBox("Hello world",n)
document.getElementById("myDiv").innerHTML="You clicked: " & x

</script>

尝试一下 »

实例 4

带有标题的消息框：

<script type="text/vbscript">

x=MsgBox("Are you a programmer",4,"Please answer")

</script>

尝试一下 »

VBScript 参考手册 完整的 VBScript 参考手册

VBScript LoadPicture 函数

VBScript LoadPicture 函数可以查看本地图片的一些信息。

VBScript 参考手册 完整的 VBScript 参考手册

LoadPicture 函数返回一个图片对象。

可被 LoadPicture 函数识别的图形格式有：

  • bitmap 文件 (.bmp)
  • icon 文件 (.ico)
  • run-length encoded 文件 (.rle)
  • metafile 文件 (.wmf)
  • enhanced metafiles (.emf)
  • GIF 文件 (.gif)
  • JPEG 文件 (.jpg)

注意：该函数仅用于 32 位平台。

语法

LoadPicture(picturename)

参数 描述
picturename 必需。需被载入的图片文件的文件名。

VBScript 参考手册 完整的 VBScript 参考手册

VBScript VarType 函数

VBScript VarType 函数返回标识变体子类型的数值。

VBScript 参考手册 完整的 VBScript 参考手册

VarType 函数返回指示指定变量的子类型的值。

VarType 函数返回下说面的值：

  • 0 = vbEmpty - 表示空（未初始化）
  • 1 = vbNull - 表示 Null（无有效数据）
  • 2 = vbInteger - 表示一个整数
  • 3 = vbLong - 表示一个长整数
  • 4 = vbSingle - 表示一个单精度浮点数
  • 5 = vbDouble - 表示一个双精度浮点数
  • 6 = vbCurrency - 表示货币
  • 7 = vbDate - 表示日期
  • 8 = vbString - 表示一个字符串
  • 9 = vbObject - 表示一个 automation 对象
  • 10 = vbError - 表示一个错误
  • 11 = vbBoolean - 表示一个布尔值
  • 12 = vbVariant - 表示 Variant（仅用于变量数组）
  • 13 = vbDataObject - 表示一个数据访问对象
  • 17 = vbByte - 表示一个字节
  • 8192 = vbArray - 表示一个数组

注意：假如变量是数组，则 VarType() 会返回 8192 + VarType(array_element)。举例：整数数组的 VarType() 会返回 8192 + 2 = 8194。

语法

VarType(varname)

参数 描述
varname 必需。变量的名称。

实例

实例

<script type="text/vbscript">

x="Hello World!"
document.write(VarType(x) & "<br />")
x=4
document.write(VarType(x) & "<br />")
x=4.675
document.write(VarType(x) & "<br />")
x=Null
document.write(VarType(x) & "<br />")
x=Empty
document.write(VarType(x) & "<br />")
x=True
document.write(VarType(x))

</script>

以上实例输出结果：

8
2
5
1
0
11

尝试一下 »
VBScript 参考手册 完整的 VBScript 参考手册

VBScript IsObject 函数

VBScript IsObject 函数返回 Boolean 值，表示表达式是否引用了有效的“自动”对象。

VBScript 参考手册 完整的 VBScript 参考手册

IsObject 函数返回一个布尔值，指示指定的表达式是否是 automation 对象。如果表达式是 automation 对象则返回 True，否则返回 False。

语法

IsObject(expression)

参数 描述
expression 必需。一个表达式。

实例

实例 1

<script type="text/vbscript">

Set x=document
document.write(IsObject(x))

</script>

以上实例输出结果：

True

尝试一下 »

实例 2

<script type="text/vbscript">

x="Peter"
document.write(IsObject(x))

</script>

以上实例输出结果：

False

尝试一下 »
VBScript 参考手册 完整的 VBScript 参考手册

VBScript TypeName 函数

VBScript TypeName 函数返回一字符串，它提供了关于变量的变体子类型信息。

VBScript 参考手册 完整的 VBScript 参考手册

TypeName 函数返回指定变量的子类型。

TypeName 函数返回下面的值：

  • Byte - 表示一个字节值
  • Integer - 表示一个整型值
  • Long - 表示一个长整型值
  • Single - 表示一个单精度浮点值
  • Double - 表示一个双精度浮点值
  • Currency - 表示一个货币值
  • Decimal - 表示一个十进制值
  • Date - 表示一个日期或时间值
  • String - 表示一个字符串值
  • Boolean - 表示一个布尔值，True 或 False
  • Empty - 表示一个未初始化变量
  • Null - 表示无有效数据
  • <object type> - 表示实际对象类型名
  • Object - 表示一般对象
  • Unknown - 表示未知对象类型
  • Nothing - 表示还未引用对象实例的对象变量
  • Error - 表示一个错误

语法

TypeName(varname)

参数 描述
varname 必需。变量的名称。

实例

实例

<script type="text/vbscript">

x="Hello World!"
document.write(TypeName(x) & "<br />")
x=4
document.write(TypeName(x) & "<br />")
x=4.675
document.write(TypeName(x) & "<br />")
x=Null
document.write(TypeName(x) & "<br />")
x=Empty
document.write(TypeName(x) & "<br />")
x=True
document.write(TypeName(x))

</script>

以上实例输出结果：

String
Integer
Double
Null
Empty
Boolean

尝试一下 »
VBScript 参考手册 完整的 VBScript 参考手册

VBScript IsNumeric 函数

VBScript IsNumeric 函数返回 Boolean 值，表示表达式能否当作一个数，并且使用该数进行计算。 

VBScript 参考手册 完整的 VBScript 参考手册

IsNumeric 函数返回一个布尔值，指示指定的表达式是否可作为数字来计算。如果表达式作为数字来计算则返回 True ，否则返回 False。

注意：如果表达式是一个日期，IsNumeric 函数将返回 False。

语法

IsNumeric(expression)

参数 描述
expression 必需。一个表达式。

实例

实例

<script type="text/vbscript">
Dim x
x=10
document.write(IsNumeric(x) & "<br />")
x=Empty
document.write(IsNumeric(x) & "<br />")
x=Null
document.write(IsNumeric(x) & "<br />")
x="10"
document.write(IsNumeric(x) & "<br />")
x="911 Help"
document.write(IsNumeric(x))
</script>

以上实例输出结果：

True
True
False
True
False

尝试一下 »
VBScript 参考手册 完整的 VBScript 参考手册

VBScript SetLocale 函数

在 VBS 文档中，对于 VBScript SetLocale 函数的描述为设置全球区域设置，并返回以前的区域设置。

VBScript 参考手册 完整的 VBScript 参考手册

SetLocale 函数设置 locale ID，并返回之前的 locale ID。function sets the locale ID and returns the previous locale ID.

locale 是用户参考信息集合，比如语言、国家、地区和文化习俗。locale 决定键盘布局、字母排序顺序、日期、时间、数字与货币格式等等。

提示：请使用 GetLocale 函数来获取本地 ID。

语法

SetLocale(lcid)

参数 描述
lcid 必需。任意一个在 Locale ID 表中的短字符串、十六进制值、十进制值，该值必须唯一标识一个地理区域。如果 lcid 参数被设置为 0，则 locale 将由系统设置。

实例

实例 1（仅适用于 IE）

使用 GetLocale 函数检查当前的本地 ID。设置本地 ID = 2057，并再次检查本地 ID：

<script type="text/vbscript">
document.write(GetLocale() & "<br />")
SetLocale(2057)
document.write(GetLocale())
</script>

以上实例输出结果：

document.write(GetLocale() & " ") SetLocale(2057) document.write(GetLocale())

尝试一下 »

实例 2（仅适用于 IE）

SetLocale 函数还返回之前的 ID：

<script type="text/vbscript">

document.write(SetLocale(1044))

</script>

以上实例输出结果：

document.write(SetLocale(1044)) SetLocale(0)

尝试一下 »

Locale ID 表
Locale 描述 简写 十六进制值 十进制值
Afrikaans af 0x0436 1078
Albanian sq 0x041C 1052
Arabic – United Arab Emirates ar-ae 0x3801 14337
Arabic - Bahrain ar-bh 0x3C01 15361
Arabic - Algeria ar-dz 0x1401 5121
Arabic - Egypt ar-eg 0x0C01 3073
Arabic - Iraq ar-iq 0x0801 2049
Arabic - Jordan ar-jo 0x2C01 11265
Arabic - Kuwait ar-kw 0x3401 13313
Arabic - Lebanon ar-lb 0x3001 12289
Arabic - Libya ar-ly 0x1001 4097
Arabic - Morocco ar-ma 0x1801 6145
Arabic - Oman ar-om 0x2001 8193
Arabic - Qatar ar-qa 0x4001 16385
Arabic - Saudi Arabia ar-sa 0x0401 1025
Arabic - Syria ar-sy 0x2801 10241
Arabic - Tunisia ar-tn 0x1C01 7169
Arabic - Yemen ar-ye 0x2401 9217
Armenian hy 0x042B 1067
Azeri – Latin az-az 0x042C 1068
Azeri – Cyrillic az-az 0x082C 2092
Basque eu 0x042D 1069
Belarusian be 0x0423 1059
Bulgarian bg 0x0402 1026
Catalan ca 0x0403 1027
Chinese - China zh-cn 0x0804 2052
Chinese - Hong Kong S.A.R. zh-hk 0x0C04 3076
Chinese – Macau S.A.R zh-mo 0x1404 5124
Chinese - Singapore zh-sg 0x1004 4100
Chinese - Taiwan zh-tw 0x0404 1028
Croatian hr 0x041A 1050
Czech cs 0x0405 1029
Danish da 0x0406 1030
Dutch – The Netherlands nl-nl 0x0413 1043
Dutch - Belgium nl-be 0x0813 2067
English - Australia en-au 0x0C09 3081
English - Belize en-bz 0x2809 10249
English - Canada en-ca 0x1009 4105
English – Carribbean en-cb 0x2409 9225
English - Ireland en-ie 0x1809 6153
English - Jamaica en-jm 0x2009 8201
English - New Zealand en-nz 0x1409 5129
English – Phillippines en-ph 0x3409 13321
English - South Africa en-za 0x1C09 7177
English - Trinidad en-tt 0x2C09 11273
English - United Kingdom en-gb 0x0809 2057
English - United States en-us 0x0409 1033
Estonian et 0x0425 1061
Farsi fa 0x0429 1065
Finnish fi 0x040B 1035
Faroese fo 0x0438 1080
French - France fr-fr 0x040C 1036
French - Belgium fr-be 0x080C 2060
French - Canada fr-ca 0x0C0C 3084
French - Luxembourg fr-lu 0x140C 5132
French - Switzerland fr-ch 0x100C 4108
Gaelic – Ireland gd-ie 0x083C 2108
Gaelic - Scotland gd 0x043C 1084
German - Germany de-de 0x0407 1031
German - Austria de-at 0x0C07 3079
German - Liechtenstein de-li 0x1407 5127
German - Luxembourg de-lu 0x1007 4103
German - Switzerland de-ch 0x0807 2055
Greek el 0x0408 1032
Hebrew he 0x040D 1037
Hindi hi 0x0439 1081
Hungarian hu 0x040E 1038
Icelandic is 0x040F 1039
Indonesian id 0x0421 1057
Italian - Italy it-it 0x0410 1040
Italian - Switzerland it-ch 0x0810 2064
Japanese ja 0x0411 1041
Korean ko 0x0412 1042
Latvian lv 0x0426 1062
Lithuanian lt 0x0427 1063
FYRO Macedonian mk 0x042F 1071
Malay - Malaysia ms-my 0x043E 1086
Malay – Brunei ms-bn 0x083E 2110
Maltese mt 0x043A 1082
Marathi mr 0x044E 1102
Norwegian - Bokmål no-no 0x0414 1044
Norwegian – Nynorsk no-no 0x0814 2068
Polish pl 0x0415 1045
Portuguese - Portugal pt-pt 0x0816 2070
Portuguese - Brazil pt-br 0x0416 1046
Raeto-Romance rm 0x0417 1047
Romanian - Romania ro 0x0418 1048
Romanian - Moldova ro-mo 0x0818 2072
Russian ru 0x0419 1049
Russian - Moldova ru-mo 0x0819 2073
Sanskrit sa 0x044F 1103
Serbian - Cyrillic sr-sp 0x0C1A 3098
Serbian – Latin sr-sp 0x081A 2074
Setsuana tn 0x0432 1074
Slovenian sl 0x0424 1060
Slovak sk 0x041B 1051
Sorbian sb 0x042E 1070
Spanish - Spain es-es 0x0C0A 1034
Spanish - Argentina es-ar 0x2C0A 11274
Spanish - Bolivia es-bo 0x400A 16394
Spanish - Chile es-cl 0x340A 13322
Spanish - Colombia es-co 0x240A 9226
Spanish - Costa Rica es-cr 0x140A 5130
Spanish - Dominican Republic es-do 0x1C0A 7178
Spanish - Ecuador es-ec 0x300A 12298
Spanish - Guatemala es-gt 0x100A 4106
Spanish - Honduras es-hn 0x480A 18442
Spanish - Mexico es-mx 0x080A 2058
Spanish - Nicaragua es-ni 0x4C0A 19466
Spanish - Panama es-pa 0x180A 6154
Spanish - Peru es-pe 0x280A 10250
Spanish - Puerto Rico es-pr 0x500A 20490
Spanish - Paraguay es-py 0x3C0A 15370
Spanish - El Salvador es-sv 0x440A 17418
Spanish - Uruguay es-uy 0x380A 14346
Spanish - Venezuela es-ve 0x200A 8202
Sutu sx 0x0430 1072
Swahili sw 0x0441 1089
Swedish - Sweden sv-se 0x041D 1053
Swedish - Finland sv-fi 0x081D 2077
Tamil ta 0x0449 1097
Tatar tt 0X0444 1092
Thai th 0x041E 1054
Turkish tr 0x041F 1055
Tsonga ts 0x0431 1073
Ukrainian uk 0x0422 1058
Urdu ur 0x0420 1056
Uzbek – Cyrillic uz-uz 0x0843 2115
Uzbek – Latin uz-uz 0x0443 1091
Vietnamese vi 0x042A 1066
Xhosa xh 0x0434 1076
Yiddish yi 0x043D 1085
Zulu zu 0x0435 1077

VBScript 参考手册 完整的 VBScript 参考手册

VBScript IsNull 函数

VBScript IsNull 函数最终返回的是一个 Boolean 值。 

VBScript 参考手册 完整的 VBScript 参考手册

IsNull 函数返回一个布尔值，指示指定的表达式是否包含无效数据（Null）。如果表达式是 Null 则返回 True，否则返回 False。

语法

IsNull(expression)

参数 描述
expression 必需。一个表达式。

实例

实例

<script type="text/vbscript">
Dim x
document.write(IsNull(x) & "<br />")
x=10
document.write(IsNull(x) & "<br />")
x=Empty
document.write(IsNull(x) & "<br />")
x=Null
document.write(IsNull(x))
</script>

以上实例输出结果：

False
False
False
True

尝试一下 »
VBScript 参考手册 完整的 VBScript 参考手册

VBScript String 函数

VBScript String 函数返回重复的字符串，达到指定的长度。

VBScript 参考手册 完整的 VBScript 参考手册

String 函数返回包含指定长度的重复字符的一个字符串。

语法

String(number,character)

参数 描述
number 必需。被返回字符串的长度。
character 必需。被重复的字符。

实例 1

document.write(String(10,"#"))
Output:
##########

实例 2

document.write(String(4,"*"))
Output:
****

实例 3

document.write(String(4,42))
Output:
****

实例 4

document.write(String(4,"XYZ"))
Output:
XXXX

VBScript 参考手册 完整的 VBScript 参考手册

VBScript IsEmpty 函数

VBScript IsEmpty 函数将返回一个 Boolean 值。

VBScript 参考手册 完整的 VBScript 参考手册

IsEmpty 函数返回一个布尔值，指示指定的变量是否已经初始化。如果变量未初始化则返回 True，否则返回 False。

语法

IsEmpty(expression)

参数 描述
expression 必需。一个表达式（通常是一个变量名）。

实例

实例

<script type="text/vbscript">
Dim x
document.write(IsEmpty(x) & "<br />")
x=10
document.write(IsEmpty(x) & "<br />")
x=Empty
document.write(IsEmpty(x) & "<br />")
x=Null
document.write(IsEmpty(x))
</script>

以上实例输出结果：

True
False
True
False

尝试一下 »
VBScript 参考手册 完整的 VBScript 参考手册

VBScript StrComp 函数

VBScript StrComp 函数返回反映字符串比较结果的值。

VBScript 参考手册 完整的 VBScript 参考手册

StrComp 函数比较两个字符串，并返回代表比较结果的一个值。

StrComp 函数可返回下面的值：

  • -1 (如果 string1 < string2)
  • 0 (如果 string1 = string2)
  • 1 (如果 string1 > string2)
  • Null (如果 string1 或 string2 为 Null)

语法

StrComp(string1,string2[,compare])

参数 描述
string1 必需。字符串表达式。
string2 必需。字符串表达式。
compare 可选。规定要使用的字符串比较类型。默认是 0。

可采用下列的值：

  • 0 = vbBinaryCompare - 执行二进制比较
  • 1 = vbTextCompare - 执行文本比较

实例 1

document.write(StrComp("VBScript","VBScript"))
Output:
0

实例 2

document.write(StrComp("VBScript","vbscript"))
Output:
-1

实例 3

document.write(StrComp("VBScript","vbscript",1))
Output:
0

VBScript 参考手册 完整的 VBScript 参考手册

VBScript InputBox 函数

VBScript InputBox 函数在对话框中显示提示，等待用户输入文本或者单击按钮，并返回文本框的内容。

VBScript 参考手册 完整的 VBScript 参考手册

InputBox 函数显示一个对话框，用户可在其中输入文本并/或点击一个按钮。如果用户点击点击 OK 按钮或按键盘上的 ENTER 键， 则 InputBox 函数返回文本框中的文本。如果用户点击 Cancel 按钮，函数返回一个空字符串("")。

注意：如果同时规定 helpfile 和 context 参数，则会向对话框添加一个 Help 按钮。

提示：请参阅 MsgBox 函数。

语法

InputBox(prompt[,title][,default][,xpos][,ypos][,helpfile,context])

参数 描述
prompt 必需。显示在对话框中的消息。prompt 的最大长度大约是 1024 个字符，这取决于所使用的字符的宽度。如果 prompt 中包含多个行，则可在各行之间用回车符（Chr(13)）、换行符（Chr(10)）或回车换行符的组合（Chr(13) & Chr(10)）来分隔各行。
title 可选。对话框的标题。默认是应用程序的名称。
default 可选。一个在文本框中的默认文本。
xpos 可选。数值表达式，用于指定对话框的左边缘与屏幕左边缘的水平距离（单位为 twips*）。如果省略 xpos，则对话框会在水平方向居中。
ypos 可选。数值表达式，用于指定对话框的上边缘与屏幕上边缘的垂直距离（单位为 twips*）。如果省略 ypos，则对话框显示在屏幕垂直方向距下边缘大约三分之一处。
helpfile 可选。字符串表达式，用于标识为对话框提供上下文相关帮助的帮助文件。必须与 context 参数一起使用。
context 可选。数值表达式，用于标识由帮助文件的作者指定给某个帮助主题的上下文编号。必须与 helpfile 参数一起使用。

* twip 是度量单位，在视觉上与系统显示的相同。

1 twip 为 1/1440 英寸。

实例

实例 1

<script type="text/vbscript">
Function myFunction()
fname=InputBox("Enter your name")
End Function
</script>

尝试一下 »

实例 2

带有标题的提示框：

<script type="text/vbscript">
Function myFunction()
fname=InputBox("Enter your name","Userinput")
End Function
</script>

尝试一下 »

实例 3

带有输入框默认文本的提示框：

<script type="text/vbscript">
Function myFunction()
fname=InputBox("Enter your name",,"Donald Duck")
End Function
</script>

尝试一下 »

实例 4

一个显示在距屏幕左边缘 700 twips* 位置的提示框。

<script type="text/vbscript">
Function myFunction()
fname=InputBox("Enter your name",,,700)
End Function
</script>

尝试一下 »

实例 5

一个显示在距屏幕上边缘 500 twips* 位置的提示框。

<script type="text/vbscript">
Function myFunction()
fname=InputBox("Enter your name",,,,500)
End Function
</script>

尝试一下 »
VBScript 参考手册 完整的 VBScript 参考手册

VBScript Space 函数

VBScript Space 函数返回由指定数量的空格组成的字符串。

VBScript 参考手册 完整的 VBScript 参考手册

Space 函数返回由指定数量的空格组成的字符串。

语法

Space(number)

参数 描述
number 必需。字符串中的空格数量。

实例 1

Dim txt
txt=Space(10)
document.write(txt)
Output:
" "

VBScript 参考手册 完整的 VBScript 参考手册

VBScript GetRef 函数

VBScript GetRef 函数返回对可以绑定到事件的过程的引用。

VBScript 参考手册 完整的 VBScript 参考手册

GetRef 函数允许您把 VBScript 子程序连接到页面上的一个 DHTML 事件。

语法

Set object.event=GetRef(procname)

参数 描述
object 必需。事件所关联的 HTML 对象的名称。
event 必需。要与函数绑定的事件的名称。
procname 必需。与 HTML 事件关联的 Sub 或 Function 过程的名称。

实例

实例

<button id="myBtn">Click me</button>
<script type="text/vbscript">
document.getElementById("myBtn").onclick=GetRef("mySub")
Sub mySub()
alert("Hello world")
End Sub
</script>

尝试一下 »
VBScript 参考手册 完整的 VBScript 参考手册

VBScript Right 函数

VBScript Right 函数返回字符串最右边的指定数量的字符。

VBScript 参考手册 完整的 VBScript 参考手册

Right 函数从字符串的右侧返回指定数量的字符。

提示：请使用 Len 函数来确定字符串中的字符数量。

提示：请参阅 Left 函数。

语法

Right(string,length)

参数 描述
string 必需。从其中返回字符的字符串。
length 必需。规定需返回多少字符。如果设置为 0，则返回空字符串("")。如果设置为大于或等于字符串的长度，则返回整个字符串。

实例

实例 1

<script type="text/vbscript">
txt="This is a beautiful day!"
document.write(Right(txt,10))
</script>

以上实例输出结果：

tiful day!

尝试一下 »

实例 2

返回整个字符串：

<script type="text/vbscript">

txt="This is a beautiful day!"
x=Len(txt)
document.write(Right(txt,x))

</script>

以上实例输出结果：

This is a beautiful day!

尝试一下 »
VBScript 参考手册 完整的 VBScript 参考手册

VBScript GetObject 函数

VBScript GetObject 函数从文件返回对“自动”对象的访问。

VBScript 参考手册 完整的 VBScript 参考手册

GetObject 函数返回对文件中 automation 对象的引用。

语法

GetObject([pathname][,class])
参数 描述
pathname 可选。包含 automation 对象的文件的完整路径和名称。如果此参数被忽略，就必须有 class 参数。
class 可选。automation 对象的类。此参数使用此语法：appname.objectype。

VBScript 参考手册 完整的 VBScript 参考手册

VBScript Replace 函数

VBScript Replace 函数返回一个字符串，其中某个指定的子串被另一个子串替换，替换的次数也有规定。 

VBScript 参考手册 完整的 VBScript 参考手册

Replace 函数使用另一个字符串替换字符串的指定部分指定的次数。

语法

Replace(string,find,replacewith[,start[,count[,compare]]])

参数 描述
string 必需。被搜索的字符串。
find 必需。将被替换的字符串部分。
replacewith 必需。用于替换的子字符串。
start 可选。指定的开始位置。默认值是 1。起始位置之前的所有字符将被删除。
count 可选。规定要执行的替换的次数。
默认值是 -1，表示进行所有可能的替换。
compare 可选。规定要使用的字符串比较类型。默认是 0。

可采用下列的值：

  • 0 = vbBinaryCompare - 执行二进制比较
  • 1 = vbTextCompare - 执行文本比较

实例

实例 1

把单词 "beautiful" 替换为 "fantastic"：

<script type="text/vbscript">
txt="This is a beautiful day!"
document.write(Replace(txt,"beautiful","fantastic"))
</script>

以上实例输出结果：

This is a fantastic day!

尝试一下 »

实例 2

把字母 "i" 替换为 "##"：

<script type="text/vbscript">
txt="This is a beautiful day!"
document.write(Replace(txt,"i","##"))
</script>

以上实例输出结果：

Th##s ##s a beaut##ful day!

尝试一下 »

实例 3

把字母 "i" 替换为 "##"，从位置 15 开始：

请注意，位置 15 之前的所有字符都会被删除。

<script type="text/vbscript">
txt="This is a beautiful day!"
document.write(Replace(txt,"i","##",15))
</script>

以上实例输出结果：

t##ful day!

尝试一下 »

实例 4

从位置 1 开始，把前 2 个字母 "i" 替换为 "##"：

<script type="text/vbscript">
txt="This is a beautiful day!"
document.write(Replace(txt,"i","##",1,2))
</script>

以上实例输出结果：

Th##s ##s a beautiful day!

尝试一下 »

实例 5

把字母 "t" 替换为 "##"，采用文本和二进制比较：

<script type="text/vbscript">
txt="This is a beautiful day!"
document.write(Replace(txt,"t","##",1,-1,1) & "<br />")
document.write(Replace(txt,"t","##",1,-1,0))
</script>

以上实例输出结果：

##his is a beau##iful day!
This is a beau##iful day!

尝试一下 »
VBScript 参考手册 完整的 VBScript 参考手册

VBScript GetLocale 函数

VBScript GetLocale 函数返回当前区域设置 ID 值。

VBScript 参考手册 完整的 VBScript 参考手册

GetLocale 函数返回当前的 locale ID。

locale 是用户参考信息集合，比如语言、国家、地区和文化习俗。locale 决定键盘布局、字母排序顺序、日期、时间、数字与货币格式等等。

返回值可以是任意一个 32 位的值，如Locale ID 表所示。

提示：请使用 SetLocale 函数来设置本地 ID。

语法

GetLocale()

实例

实例（仅适用于 IE）

<script type="text/vbscript">
document.write(GetLocale)
</script>

以上实例输出结果：

document.write(GetLocale)

尝试一下 »

Locale ID 表

Locale 描述 简写 十六进制值 十进制值
Afrikaans af 0x0436 1078
Albanian sq 0x041C 1052
Arabic – United Arab Emirates ar-ae 0x3801 14337
Arabic - Bahrain ar-bh 0x3C01 15361
Arabic - Algeria ar-dz 0x1401 5121
Arabic - Egypt ar-eg 0x0C01 3073
Arabic - Iraq ar-iq 0x0801 2049
Arabic - Jordan ar-jo 0x2C01 11265
Arabic - Kuwait ar-kw 0x3401 13313
Arabic - Lebanon ar-lb 0x3001 12289
Arabic - Libya ar-ly 0x1001 4097
Arabic - Morocco ar-ma 0x1801 6145
Arabic - Oman ar-om 0x2001 8193
Arabic - Qatar ar-qa 0x4001 16385
Arabic - Saudi Arabia ar-sa 0x0401 1025
Arabic - Syria ar-sy 0x2801 10241
Arabic - Tunisia ar-tn 0x1C01 7169
Arabic - Yemen ar-ye 0x2401 9217
Armenian hy 0x042B 1067
Azeri – Latin az-az 0x042C 1068
Azeri – Cyrillic az-az 0x082C 2092
Basque eu 0x042D 1069
Belarusian be 0x0423 1059
Bulgarian bg 0x0402 1026
Catalan ca 0x0403 1027
Chinese - China zh-cn 0x0804 2052
Chinese - Hong Kong S.A.R. zh-hk 0x0C04 3076
Chinese – Macau S.A.R zh-mo 0x1404 5124
Chinese - Singapore zh-sg 0x1004 4100
Chinese - Taiwan zh-tw 0x0404 1028
Croatian hr 0x041A 1050
Czech cs 0x0405 1029
Danish da 0x0406 1030
Dutch – The Netherlands nl-nl 0x0413 1043
Dutch - Belgium nl-be 0x0813 2067
English - Australia en-au 0x0C09 3081
English - Belize en-bz 0x2809 10249
English - Canada en-ca 0x1009 4105
English – Carribbean en-cb 0x2409 9225
English - Ireland en-ie 0x1809 6153
English - Jamaica en-jm 0x2009 8201
English - New Zealand en-nz 0x1409 5129
English – Phillippines en-ph 0x3409 13321
English - South Africa en-za 0x1C09 7177
English - Trinidad en-tt 0x2C09 11273
English - United Kingdom en-gb 0x0809 2057
English - United States en-us 0x0409 1033
Estonian et 0x0425 1061
Farsi fa 0x0429 1065
Finnish fi 0x040B 1035
Faroese fo 0x0438 1080
French - France fr-fr 0x040C 1036
French - Belgium fr-be 0x080C 2060
French - Canada fr-ca 0x0C0C 3084
French - Luxembourg fr-lu 0x140C 5132
French - Switzerland fr-ch 0x100C 4108
Gaelic – Ireland gd-ie 0x083C 2108
Gaelic - Scotland gd 0x043C 1084
German - Germany de-de 0x0407 1031
German - Austria de-at 0x0C07 3079
German - Liechtenstein de-li 0x1407 5127
German - Luxembourg de-lu 0x1007 4103
German - Switzerland de-ch 0x0807 2055
Greek el 0x0408 1032
Hebrew he 0x040D 1037
Hindi hi 0x0439 1081
Hungarian hu 0x040E 1038
Icelandic is 0x040F 1039
Indonesian id 0x0421 1057
Italian - Italy it-it 0x0410 1040
Italian - Switzerland it-ch 0x0810 2064
Japanese ja 0x0411 1041
Korean ko 0x0412 1042
Latvian lv 0x0426 1062
Lithuanian lt 0x0427 1063
FYRO Macedonian mk 0x042F 1071
Malay - Malaysia ms-my 0x043E 1086
Malay – Brunei ms-bn 0x083E 2110
Maltese mt 0x043A 1082
Marathi mr 0x044E 1102
Norwegian - Bokmål no-no 0x0414 1044
Norwegian – Nynorsk no-no 0x0814 2068
Polish pl 0x0415 1045
Portuguese - Portugal pt-pt 0x0816 2070
Portuguese - Brazil pt-br 0x0416 1046
Raeto-Romance rm 0x0417 1047
Romanian - Romania ro 0x0418 1048
Romanian - Moldova ro-mo 0x0818 2072
Russian ru 0x0419 1049
Russian - Moldova ru-mo 0x0819 2073
Sanskrit sa 0x044F 1103
Serbian - Cyrillic sr-sp 0x0C1A 3098
Serbian – Latin sr-sp 0x081A 2074
Setsuana tn 0x0432 1074
Slovenian sl 0x0424 1060
Slovak sk 0x041B 1051
Sorbian sb 0x042E 1070
Spanish - Spain es-es 0x0C0A 1034
Spanish - Argentina es-ar 0x2C0A 11274
Spanish - Bolivia es-bo 0x400A 16394
Spanish - Chile es-cl 0x340A 13322
Spanish - Colombia es-co 0x240A 9226
Spanish - Costa Rica es-cr 0x140A 5130
Spanish - Dominican Republic es-do 0x1C0A 7178
Spanish - Ecuador es-ec 0x300A 12298
Spanish - Guatemala es-gt 0x100A 4106
Spanish - Honduras es-hn 0x480A 18442
Spanish - Mexico es-mx 0x080A 2058
Spanish - Nicaragua es-ni 0x4C0A 19466
Spanish - Panama es-pa 0x180A 6154
Spanish - Peru es-pe 0x280A 10250
Spanish - Puerto Rico es-pr 0x500A 20490
Spanish - Paraguay es-py 0x3C0A 15370
Spanish - El Salvador es-sv 0x440A 17418
Spanish - Uruguay es-uy 0x380A 14346
Spanish - Venezuela es-ve 0x200A 8202
Sutu sx 0x0430 1072
Swahili sw 0x0441 1089
Swedish - Sweden sv-se 0x041D 1053
Swedish - Finland sv-fi 0x081D 2077
Tamil ta 0x0449 1097
Tatar tt 0X0444 1092
Thai th 0x041E 1054
Turkish tr 0x041F 1055
Tsonga ts 0x0431 1073
Ukrainian uk 0x0422 1058
Urdu ur 0x0420 1056
Uzbek – Cyrillic uz-uz 0x0843 2115
Uzbek – Latin uz-uz 0x0443 1091
Vietnamese vi 0x042A 1066
Xhosa xh 0x0434 1076
Yiddish yi 0x043D 1085
Zulu zu 0x0435 1077

VBScript 参考手册 完整的 VBScript 参考手册

VBScript Mid 函数

VBScript Mid 函数用于从字符串中返回指定数量的字符。

VBScript 参考手册 完整的 VBScript 参考手册

Mid 函数从字符串中返回指定数量的字符。

提示：请使用 Len 函数来确定字符串中的字符数量。

语法

Mid(string,start[,length])

参数 描述
string 必需。从其中返回字符的字符串表达式。
start 必需。规定起始位置。如果设置为大于字符串中的字符数量，则返回空字符串("")。
length 可选。要返回的字符数量。

实例

实例 1

返回 1 个字符，从位置 1 开始：

<script type="text/vbscript">
txt="This is a beautiful day!"
document.write(Mid(txt,1,1))
</script>

以上实例输出结果：

T

尝试一下 »

实例 2

返回 15 个字符，从位置 1 开始：

<script type="text/vbscript">
txt="This is a beautiful day!"
document.write(Mid(txt,1,15))
</script>

以上实例输出结果：

This is a beaut

尝试一下 »

实例 3

返回所有字符，从位置 1 开始：

<script type="text/vbscript">
txt="This is a beautiful day!"
document.write(Mid(txt,1))
</script>

以上实例输出结果：

This is a beautiful day!

尝试一下 »

实例 4

返回所有字符，从位置 12 开始：

<script type="text/vbscript">
txt="This is a beautiful day!"
document.write(Mid(txt,12))
</script>

以上实例输出结果：

eautiful day!

尝试一下 »
VBScript 参考手册 完整的 VBScript 参考手册

VBScript Eval 函数

VBScript Eval 函数计算并返回表达式的值。

VBScript 参考手册 完整的 VBScript 参考手册

Eval 函数计算表达式，并返回结果。

语法

Eval(expression)

参数 描述
expression 必需。要计算的表达式。

实例

实例

创建正则表达式对象：

<script type="text/vbscript">
function myFunction()
alert("Hello world")
end function
eval("myFunction()")
</script>

尝试一下 »
VBScript 参考手册 完整的 VBScript 参考手册

VBScript Trim 函数

VBScript Trim 函数返回去掉前导空格或末尾空格的字符串副本。

VBScript 参考手册 完整的 VBScript 参考手册

Trim 函数删除字符串两边的空格。

提示：请参阅 LTrim 和 RTrim 函数。

语法

Trim(string)

参数 描述
string 必需。字符串表达式。

实例

实例

<script type="text/vbscript">
fname=" Jack "
document.write("Hello" & Trim(fname) & "and welcome.")
</script>

以上实例输出结果：

HelloJackand welcome.

尝试一下 »
VBScript 参考手册 完整的 VBScript 参考手册

VBScript CreateObject 函数

VBScript CreateObject 函数是创建和返回对 COM 对象的引用。

VBScript 参考手册 完整的 VBScript 参考手册

CreateObject 函数创建一个指定类型的对象。

语法

CreateObject(servername.typename[,location])

参数 描述
servername 必需。提供此对象的应用程序名称。
typename 必需。对象的类型或类（type/class）。
location 可选。在何处创建对象。

实例

实例

创建正则表达式对象：

<script type="text/vbscript">
txt="This is a beautiful day"
Set objReg=CreateObject("vbscript.regexp")
objReg.Pattern="i"
document.write(objReg.Replace(txt,"##"))
</script>

以上实例输出结果：

Th##s is a beautiful day

尝试一下 »
VBScript 参考手册 完整的 VBScript 参考手册

VBScript UCase 函数

VBScript UCase 函数返回的字符串已经被转换为大写字母。 

VBScript 参考手册 完整的 VBScript 参考手册

UCase 函数把指定的字符串转换为大写。

提示：请参阅 LCase 函数。

语法

UCase(string)

参数 描述
string 必需。需被转换为大写的字符串。

实例

实例 1

<script type="text/vbscript">
txt="This is a beautiful day!"
document.write(UCase(txt))
</script>

以上实例输出结果：

THIS IS A BEAUTIFUL DAY!

尝试一下 »

实例 2

<script type="text/vbscript">
txt="This is a BEAUTIFUL day!"
document.write(UCase(txt))
</script>

以上实例输出结果：

THIS IS A BEAUTIFUL DAY!

尝试一下 »
VBScript 参考手册 完整的 VBScript 参考手册

VBScript LTrim 函数

VBScript LTrim 函数返回去掉前导空格的字符串副本。

VBScript 参考手册 完整的 VBScript 参考手册

LTrim 函数删除字符串左边的空格。

提示：请参阅 RTrim 和 Trim 函数。

语法

LTrim(string)

参数 描述
string 必需。字符串表达式。

实例

实例

<script type="text/vbscript">
fname=" Jack "
document.write("Hello" & LTrim(fname) & "and welcome.")
</script>

以上实例输出结果：

HelloJack and welcome.

尝试一下 »
VBScript 参考手册 完整的 VBScript 参考手册

VBScript StrReverse 函数

VBScript StrReverse 函数返回一字符串，其中字符的顺序与指定的字符串中的顺序相反。

VBScript 参考手册 完整的 VBScript 参考手册

StrReverse 函数反转一个字符串。

语法

StrReverse(string)

参数 描述
string 必需。需被反转的字符串。

实例 1

Dim txt
txt="This is a beautiful day!"
document.write(StrReverse(txt))
Output:
!yad lufituaeb a si sihT

VBScript 参考手册 完整的 VBScript 参考手册

VBScript Len 函数

VBScript Len 函数可以返回字符串中的字符数量，或者存储变量所需的字节数。 

VBScript 参考手册 完整的 VBScript 参考手册

Len 函数返回字符串中的字符数量。

语法

Len(string)

参数 描述
string 字符串表达式。

实例

实例 1

<script type="text/vbscript">
txt="This is a beautiful day!"
document.write(Len(txt))
</script>

以上实例输出结果：

24

尝试一下 »

实例 2

您还可以把字符串直接放入 Len 函数：

<script type="text/vbscript">
document.write(Len("This is a beautiful day!"))
</script>

以上实例输出结果：

24

尝试一下 »
VBScript 参考手册 完整的 VBScript 参考手册

VBScript Left 函数

VBScript Left 函数可以返回字符串最左边的指定数量的字符。

VBScript 参考手册 完整的 VBScript 参考手册

Left 函数从字符串的左侧返回指定数量的字符。

提示：请使用 Len 函数来确定字符串中的字符数量。

提示：请参阅 Right 函数。

语法

Left(string,length)

参数 描述
string 必需。从其中返回字符的字符串。
length 必需。规定需返回多少字符。如果设置为 0，则返回空字符串("")。如果设置为大于或等于字符串的长度，则返回整个字符串。

实例

实例 1

<script type="text/vbscript">
txt="This is a beautiful day!"
document.write(Left(txt,15))
</script>

以上实例输出结果：

This is a beaut

尝试一下 »

实例 2

返回整个字符串：

<script type="text/vbscript">
txt="This is a beautiful day!"
x=Len(txt)
document.write(Left(txt,x))
</script>

以上实例输出结果：

This is a beautiful day!

尝试一下 »
VBScript 参考手册 完整的 VBScript 参考手册

VBScript Array 函数

VBScript Array 函数用于返回变量，该变量包含数组。

VBScript 参考手册 完整的 VBScript 参考手册

Array 函数返回一个包含数组的变量。

注意：数组中的第一个元素是零。

语法

Array(arglist)

参数 描述
arglist 必需。数组中元素值的列表（由逗号分割）。

实例

实例 1

<script type="text/vbscript">
a=Array(5,10,15,20)
document.write(a(3))
</script>

以上实例输出结果：

20

尝试一下 »

实例 2

<script type="text/vbscript">
a=Array(5,10,15,20)
document.write(a(0))
</script>

以上实例输出结果：

5

尝试一下 »

实例 3

遍历数组中的所有项：

<script type="text/vbscript">
a=Array(5,10,15,20)
for each x in a
document.write(x & "<br />")
next
</script>

以上实例输出结果：

5
10
15
20

尝试一下 »
VBScript 参考手册 完整的 VBScript 参考手册

VBScript Exp 函数

VBScript Exp 函数用于返回 e （自然对数的底）的幂次方，请参考本文中的实例。

VBScript 参考手册 完整的 VBScript 参考手册

Exp 函数返回 e（自然对数的底）的幂次方。

注意：number 的值不能超过 709.782712893。

提示：请参阅 Log 函数。

语法

Exp(number)

参数 描述
number 必需。有效的数值表达式。

实例

实例

<script type="text/vbscript">
document.write(Exp(6.7) & "<br />")
document.write(Exp(-6.7))
</script>

以上实例输出结果：

812.405825167543
1.23091190267348E-03

尝试一下 »
VBScript 参考手册 完整的 VBScript 参考手册

VBScript LCase 函数

VBScript LCase 函数返回已被转换为小写字母的字符串。

VBScript 参考手册 完整的 VBScript 参考手册

LCase 函数把指定字符串转换为小写。

提示：请参阅 UCase 函数。

语法

LCase(string)

参数 描述
string 必需。需要被转换为小写的字符串。

实例

实例 1

<script type="text/vbscript">
txt="THIS IS A BEAUTIFUL DAY!"
document.write(LCase(txt))
</script>

以上实例输出结果：

this is a beautiful day!

尝试一下 »

实例 2

<script type="text/vbscript">
txt="This is a BEAUTIFUL day!"
document.write(LCase(txt))
</script>

以上实例输出结果：

this is a beautiful day!

尝试一下 »
VBScript 参考手册 完整的 VBScript 参考手册

VBScript Tan 函数

VBScript Tan 函数用于返回角度的正切值，请参考本节内容！

VBScript 参考手册 完整的 VBScript 参考手册

Tan 函数返回指定数字（角度）的正切。

语法

Tan(number)

参数 描述
number 必需。将某个角表示为弧度的有效的数值表达式。

实例

实例

<script type="text/vbscript">
document.write(Tan(40) & "<br />")
document.write(Tan(-40))
</script>

以上实例输出结果：

-1.1172149309239
1.1172149309239

尝试一下 »
VBScript 参考手册 完整的 VBScript 参考手册

VBScript Cos 函数

VBScript Cos 函数返回角度的余弦值，具体使用请参考本节内容。

VBScript 参考手册 完整的 VBScript 参考手册

Cos 函数返回指定数字（角度）的余弦。

语法

Cos(number)

参数 描述
number 必需。将某个角表示为弧度的数值表达式。

实例

实例

<script type="text/vbscript">
document.write(Cos(50.0) & "<br />")
document.write(Cos(-50.0))
</script>

以上实例输出结果：

0.964966028492113
0.964966028492113

尝试一下 »
VBScript 参考手册 完整的 VBScript 参考手册

VBScript InStrRev 函数

VBScript InStrRev 函数返回一个字符串在另一个字符串中出现的位置，是从字符串的末尾算起。

VBScript 参考手册 完整的 VBScript 参考手册

InStrRev 函数返回字符串在另一字符串中首次出现的位置。搜索从字符串的末端开始，但是返回的位置是从字符串的起点开始计数的。

InStrRev 函数可返回下面的值：

  • 如果 string1 为 "" - InStrRev 返回 0
  • 如果 string1 为 Null - InStrRev 返回 Null
  • 如果 string2 为 "" - InStrRev 返回 start
  • 如果 string2 为 Null - InStrRev 返回 Null
  • 如果 string2 没有找到 - InStrRev 返回 0
  • 如果在 string1 中找到 string2 - InStrRev 返回找到匹配字符串的位置
  • 如果 start > Len(string1) - InStrRev 返回 0

提示：请参阅 InStr 函数。

语法

InStrRev(string1,string2[,start[,compare]])

参数 描述
string1 必需。需要被搜索的字符串。
string2 必需。需要搜索的字符串表达式。
start 可选。规定每次搜索的起始位置。默认的搜索起始位置是最后一个字符（-1）。
compare 可选。规定要使用的字符串比较类型。默认是 0。

可采用下列的值：

  • 0 = vbBinaryCompare - 执行二进制比较
  • 1 = vbTextCompare - 执行文本比较

实例

实例 1

<script type="text/vbscript">
txt="This is a beautiful day!"
document.write(InStrRev(txt,"beautiful"))
</script>

以上实例输出结果：

11

尝试一下 »

实例 2

查找字母 "i"，采用不同的起始位置：

<script type="text/vbscript">
txt="This is a beautiful day!"
document.write(InStrRev(txt,"i",-1) & "<br />")
document.write(InStrRev(txt,"i",7) & "<br />")
</script>

以上实例输出结果：

16
6

尝试一下 »

实例 3

查找字母 "T"，采用文本和二进制比较：

<script type="text/vbscript">
txt="This is a beautiful day!"
document.write(InStrRev(txt,"T",-1,1) & "<br />")
document.write(InStrRev(txt,"T",-1,0) & "<br />")
</script>

以上实例输出结果：

15
1

尝试一下 »
VBScript 参考手册 完整的 VBScript 参考手册

VBScript Sqr 函数

VBScript Sqr 函数用于返回数的平方根，本节内容讲解了该函数的使用。

VBScript 参考手册 完整的 VBScript 参考手册

Sqr 函数返回一个数的平方根。

注意：number 参数不能是负值。

语法

Sqr(number)

参数 描述
number 必需。大于 0 的有效的数值表达式。

实例

实例

<script type="text/vbscript">
document.write(Sqr(9) & "<br />")
document.write(Sqr(0) & "<br />")
document.write(Sqr(47))
</script>

以上实例输出结果：

3
0
6.85565460040104

尝试一下 »
VBScript 参考手册 完整的 VBScript 参考手册

VBScript Atn 函数

VBScript Atn 函数用于返回数的反正切的值。

VBScript 参考手册 完整的 VBScript 参考手册

Atn 函数返回指定数字的反正切。

语法

Atn(number)

参数 描述
number 必需。一个数值表达式。

实例

实例 1

<script type="text/vbscript">

document.write(Atn(89) & "<br />")
document.write(Atn(8.9))

</script>

以上实例输出结果：

1.55956084453693
1.45890606062322

尝试一下 »

实例 2

计算 pi 的值：

<script type="text/vbscript">

Dim pi
pi=4*Atn(1)
document.write(pi)

</script>

以上实例输出结果：

3.14159265358979

尝试一下 »
VBScript 参考手册 完整的 VBScript 参考手册

VBScript InStr 函数

VBScript InStr 函数用于返回一个字符串在另一个字符串中第一次出现的位置。

VBScript 参考手册 完整的 VBScript 参考手册

InStr 函数返回一个字符串在另一个字符串中首次出现的位置。

InStr 函数返回下面的值：

  • 如果 string1 为 "" - InStr 返回 0
  • 如果 string1 为 Null - InStr 返回 Null
  • 如果 string2 为 "" - InStr 返回 start
  • 如果 string2 为 Null - InStr 返回 Null
  • 如果 string2 没有找到 - InStr 返回 0
  • 如果在 string1 中找到 string2 - InStr 返回找到匹配字符串的位置
  • 如果 start > Len(string1) - InStr 返回 0

提示：请参阅 InStrRev 函数。

语法

InStr([start,]string1,string2[,compare])

参数 描述
start 可选。规定每次搜索的起始位置。默认的搜索起始位置是第一个字符（1）。如果已规定 compare 参数，则必须有此参数。
string1 必需。需要被搜索的字符串。
string2 必需。需要搜索的字符串表达式。
compare 可选。规定要使用的字符串比较类型。默认是 0。

可采用下列的值：

  • 0 = vbBinaryCompare - 执行二进制比较
  • 1 = vbTextCompare - 执行文本比较

实例

实例 1

<script type="text/vbscript">

txt="This is a beautiful day!"
document.write(InStr(txt,"beautiful"))

</script>

以上实例输出结果：

11

尝试一下 »

实例 2

查找字母 "i"，采用不同的起始位置：

<script type="text/vbscript">

txt="This is a beautiful day!"
document.write(InStr(1,txt,"i") & "<br />")
document.write(InStr(7,txt,"i") & "<br />")

</script>

以上实例输出结果：

3
16

尝试一下 »

实例 3

查找字母 "t"，采用文本和二进制比较：

<script type="text/vbscript">

txt="This is a beautiful day!"
document.write(InStr(1,txt,"t",1) & "<br />")
document.write(InStr(1,txt,"t",0) & "<br />")

</script>

以上实例输出结果：

1
15

尝试一下 »
VBScript 参考手册 完整的 VBScript 参考手册

VBScript Sin 函数

VBScript Sin 函数用于计算角度的正弦值。

VBScript 参考手册 完整的 VBScript 参考手册

Sin 函数返回指定数字（角度）的正弦。

语法

Sin(number)

参数 描述
number 必需。将某个角表示为弧度的有效的数值表达式。

实例

实例

<script type="text/vbscript">

document.write(Sin(47) & "<br />")
document.write(Sin(-47))

</script>

以上实例输出结果：

0.123573122745224
-0.123573122745224

尝试一下 »
VBScript 参考手册 完整的 VBScript 参考手册

VBScript Abs 函数

使用 VBScript Abs 函数能够返回某个数的绝对值。

VBScript 参考手册 完整的 VBScript 参考手册

Abs 函数返回指定数字的绝对值。

注意：如果 number 参数包含 Null，则返回 Null。

注意：如果 number 参数是一个未初始化的变量，则返回 0。

语法

Abs(number)

参数

参数 描述
number 必需。一个数值表达式。

实例

实例 1

<script type="text/vbscript">

document.write(Abs(1) & "<br />")
document.write(Abs(-1))

</script>

以上实例输出结果：

1
1

尝试一下 »

实例 2

<script type="text/vbscript">

document.write(Abs(48.4) & "<br />")
document.write(Abs(-48.4))

</script>

以上实例输出结果：

48.4
48.4

尝试一下 »
VBScript 参考手册 完整的 VBScript 参考手册

VBScript UBound 函数

VBScript UBound 函数返回指定维数数组的最大有效下标。

VBScript 参考手册 完整的 VBScript 参考手册

UBound 函数返回指示数组维数的最大下标。

提示：UBound 函数与 LBound 函数共同使用，可以确定数组的大小。

语法

UBound(arrayname[,dimension])

参数

参数 描述
arrayname 必需。数组变量的名称。
dimension 可选。要返回哪一维的下界。 1 = 第一维， 2 = 第二维，以此类推。默认是 1 。

实例

实例 1

<script type="text/vbscript">

days=Array("Sun","Mon","Tue","Wed","Thu","Fri","Sat")
document.write(LBound(days) & "<br />")
document.write(UBound(days) & "<br />")

</script>

以上实例输出结果：

0
6

尝试一下 »

实例 2

一个二维数组：

<script type="text/vbscript">

Dim food(2,3)
food(0,0)="Apple"
food(0,1)="Banana"
food(0,2)="Orange"
food(0,3)="Lemon"
food(1,0)="Pizza"
food(1,1)="Hamburger"
food(1,2)="Spaghetti"
food(1,3)="Meatloaf"
food(2,0)="Cake"
food(2,1)="Cookie"
food(2,2)="Icecream"
food(2,3)="Chocolate"
document.write(LBound(food,1) & "<br />")
document.write(UBound(food,1) & "<br />")
document.write(LBound(food,2) & "<br />")
document.write(UBound(food,2) & "<br />")

</script>

以上实例输出结果：

0
2
0
3

尝试一下 »
VBScript 参考手册 完整的 VBScript 参考手册

VBScript Sgn 函数

VBScript Sgn 函数返回一个表示数的符号的整数。

VBScript 参考手册 完整的 VBScript 参考手册

Sgn 函数返回可指示指定数字的符号的一个整数。

语法

Sgn(number)

参数

参数 描述
number 必需。有效的数值表达式。

如果数字是：

  • >0 - Sgn 会返回 1
  • =0 - Sgn 会返回 0
  • <0 - Sgn 会返回 -1

实例

实例

<script type="text/vbscript">

document.write(Sgn(15) & "<br />")
document.write(Sgn(-5.67) & "<br />")
document.write(Sgn(0))

</script>

以上实例输出结果：

1
-1
0

尝试一下 »
VBScript 参考手册 完整的 VBScript 参考手册

VBScript FormatPercent 函数

VBScript FormatPercent 函数返回格式化为百分比（乘以 100）的表达式，以 % 符号结尾。

VBScript 参考手册 完整的 VBScript 参考手册

FormatPercent 函数返回作为百分数被格式化的表达式（尾随有 % 符号的百分比（乘以 100 ））。

语法

FormatPercent(Expression[,NumDigAfterDec[,
IncLeadingDig[,UseParForNegNum[,GroupDig]]]])

参数

参数 描述
expression 必需。需被格式化的表达式。
NumDigAfterDec 可选。指示小数点右侧显示位数的数值。默认值为 -1（使用的是计算机的区域设置）。
IncLeadingDig 可选。指示是否显示小数值的前导零：
  • -2 = TristateUseDefault - 使用计算机的区域设置
  • -1 = TristateTrue - True
  • 0 = TristateFalse - False
UseParForNegNum 可选。指示是否将负值置于括号中：
  • -2 = TristateUseDefault - 使用计算机的区域设置
  • -1 = TristateTrue - True
  • 0 = TristateFalse - False
GroupDig 可选。指示是否使用计算机区域设置中指定的数字分组符号将数字分组：
  • -2 = TristateUseDefault - 使用计算机的区域设置
  • -1 = TristateTrue - True
  • 0 = TristateFalse - False

实例 1

'How many percent is 6 of 345?
document.write(FormatPercent(6/345))

Output:

1.74%

实例 2

'How many percent is 6 of 345?
document.write(FormatPercent(6/345,1))

Output:

1.7%

VBScript 参考手册 完整的 VBScript 参考手册

VBScript Split 函数

VBScript 参考手册 完整的 VBScript 参考手册

Split 函数返回基于 0 的一维数组，此数组包含指定数量的子字符串。

语法

Split(expression[,delimiter[,count[,compare]]])

参数 描述
expression 必需。包含子字符串和分隔符的字符串表达式。
delimiter 可选。用于识别子字符串界限的字符。默认是空格字符。
count 可选。需被返回的子字符串的数目。-1 指示返回所有的子字符串。
compare 可选。规定要使用的字符串比较类型。

可采用下列的值：

  • 0 = vbBinaryCompare - 执行二进制比较
  • 1 = vbTextCompare - 执行文本比较

实例

实例 1

<script type="text/vbscript">

a=Split("W3CSchool is my favourite website")
for each x in a
document.write(x & "<br />")
next

</script>

以上实例输出结果：

W3CSchool
is
my
favourite
website

尝试一下 »

实例 2

使用 delimeter 参数分割文本：

<script type="text/vbscript">

a=Split("Brown cow, White horse, Yellow chicken",",")
for each x in a
document.write(x & "<br />")
next

</script>

以上实例输出结果：

Brown cow
White horse
Yellow chicken

尝试一下 »

实例 3

使用 delimeter 参数和 count 参数分割文本：

<script type="text/vbscript">

a=Split("W3CSchool is my favourite website"," ",2)
for each x in a
document.write(x & "<br />")
next

</script>

以上实例输出结果：

W3CSchool
is my favourite website

尝试一下 »

实例 4

使用文本比较的 delimeter 参数分割文本：

<script type="text/vbscript">

a=Split("SundayMondayTuesdayWEDNESDAYThursdayFridaySaturday","day",-1,1)
for each x in a
document.write(x & "<br />")
next

</script>

以上实例输出结果：

Sun
Mon
Tues
WEDNES
Thurs
Fri
Satur

尝试一下 »

实例 5

使用二进制比较的 delimeter 参数分割文本：

<script type="text/vbscript">

a=Split("SundayMondayTuesdayWEDNESDAYThursdayFridaySaturday","day",-1,0)
for each x in a
document.write(x & "<br />")
next

</script>

以上实例输出结果：

Sun
Mon
Tues
WEDNESDAYThurs
Fri
Satur

尝试一下 »
VBScript 参考手册 完整的 VBScript 参考手册

VBScript Rnd 函数

VBScript 参考手册 完整的 VBScript 参考手册

Rnd 函数返回一个随机数。数字总是小于 1 但大于或等于 0 。

语法

Rnd[(number)]

参数 描述
number 可选。有效的数值表达式。

如果数字是：

  • <0 - Rnd 会每次都返回相同的数字。
  • >0 - Rnd 会返回序列中的下一个随机数。
  • =0 - Rnd 会返回最近生成的数。
  • 省略 - Rnd 会返回序列中的下一个随机数。

实例

实例 1

随机数：

<script type="text/vbscript">

document.write(Rnd)

</script>

请注意，您每次都会得到相同的数字。为了避免这种情况，请使用实例 2 中的 Randomize 语句。

以上实例输出结果：

0.7055475

尝试一下 »

实例 2

为了避免像在实例 1 中每次都得到相同的数字，请使用 Randomize 语句：

<script type="text/vbscript">

Randomize
document.write(Rnd)

</script>

以上实例输出结果：

0.4758112

尝试一下 »

实例 3

以下是如何在一个给定的范围内产生随机整数：

<script type="text/vbscript">

Dim max,min
max=100
min=1
Randomize
document.write(Int((max-min+1)*Rnd+min))

</script>

以上实例输出结果：

71

尝试一下 »
VBScript 参考手册 完整的 VBScript 参考手册

VBScript FormatNumber 函数

VBScript 参考手册 完整的 VBScript 参考手册

FormatNumber 函数返回作为数字进行格式化的表达式。

语法

FormatNumber(Expression[,NumDigAfterDec[,
IncLeadingDig[,UseParForNegNum[,GroupDig]]]])

参数 描述
expression 必需。需被格式化的表达式。
NumDigAfterDec 可选。指示小数点右侧显示位数的数值。默认值为 -1（使用的是计算机的区域设置）。
IncLeadingDig 可选。指示是否显示小数值的前导零：
  • -2 = TristateUseDefault - 使用计算机的区域设置
  • -1 = TristateTrue - True
  • 0 = TristateFalse - False
UseParForNegNum 可选。指示是否将负值置于括号中：
  • -2 = TristateUseDefault - 使用计算机的区域设置
  • -1 = TristateTrue - True
  • 0 = TristateFalse - False
GroupDig 可选。指示是否使用计算机区域设置中指定的数字分组符号将数字分组：
  • -2 = TristateUseDefault - 使用计算机的区域设置
  • -1 = TristateTrue - True
  • 0 = TristateFalse - False

实例

实例 1

<script type="text/vbscript">

document.write(FormatNumber(20000))

</script>

以上实例输出结果：

20,000.00

尝试一下 »

实例 2

设置小数点后的位数：

<script type="text/vbscript">

document.write(FormatNumber(20000,2) & "<br />")
document.write(FormatNumber(20000,5))

</script>

以上实例输出结果：

20,000.00
20,000.00000

尝试一下 »

实例 3

是否显示小数值的前导零：

<script type="text/vbscript">

document.write(FormatNumber(.20,,0) & "<br />")
document.write(FormatNumber(.20,,-1))

</script>

以上实例输出结果：

.20
0.20

尝试一下 »

实例 4

是否将负值置于括号中：

<script type="text/vbscript">

document.write(FormatNumber(-50,,,0) & "<br />")
document.write(FormatNumber(-50,,,-1))

</script>

以上实例输出结果：

-50.00
(50.00)

尝试一下 »

实例 5

是否将数字分组：

<script type="text/vbscript">

document.write(FormatNumber(1000000,,,,0) & "<br />")
document.write(FormatNumber(1000000,,,,-1))

</script>

以上实例输出结果：

1000000.00
1,000,000.00

尝试一下 »
VBScript 参考手册 完整的 VBScript 参考手册

VBScript LBound 函数

VBScript 参考手册 完整的 VBScript 参考手册

LBound 函数返回指示数组维数的最小下标。

注意：任何维数的 LBound 总是 0。

提示：LBound 函数与 UBound 函数共同使用，可以确定数组的大小。

语法

LBound(arrayname[,dimension])

参数 描述
arrayname 必需。数组变量的名称。
dimension 可选。要返回哪一维的下界。 1 = 第一维， 2 = 第二维，以此类推。默认是 1 。

实例

实例 1

<script type="text/vbscript">

days=Array("Sun","Mon","Tue","Wed","Thu","Fri","Sat")
document.write(LBound(days) & "<br />")
document.write(UBound(days) & "<br />")

</script>

以上实例输出结果：

0
6

尝试一下 »

实例 2

一个二维数组：

<script type="text/vbscript">

Dim food(2,3)
food(0,0)="Apple"
food(0,1)="Banana"
food(0,2)="Orange"
food(0,3)="Lemon"
food(1,0)="Pizza"
food(1,1)="Hamburger"
food(1,2)="Spaghetti"
food(1,3)="Meatloaf"
food(2,0)="Cake"
food(2,1)="Cookie"
food(2,2)="Icecream"
food(2,3)="Chocolate"
document.write(LBound(food,1) & "<br />")
document.write(UBound(food,1) & "<br />")
document.write(LBound(food,2) & "<br />")
document.write(UBound(food,2) & "<br />")

</script>

以上实例输出结果：

0
2
0
3

尝试一下 »
VBScript 参考手册 完整的 VBScript 参考手册

VBScript Join 函数

VBScript 参考手册 完整的 VBScript 参考手册

Join 函数返回一个由数组中若干子字符串组成的字符串。

语法

Join(list[,delimiter])

参数 描述
list 必需。一维数组，其中包含需被连接的子字符串。
delimiter 可选。用于在返回的字符串中分割子字符串的字符。默认是空格字符。

实例

实例

分离一个数组中的项目，有和没有使用 delimeter 参数：

<script type="text/vbscript">

days=Array("Sun","Mon","Tue","Wed","Thu","Fri","Sat")
document.write(Join(days) & "<br />")
document.write(Join(days,",") & "<br />")
document.write(Join(days," ### "))

</script>

以上实例输出结果：

Sun Mon Tue Wed Thu Fri Sat
Sun,Mon,Tue,Wed,Thu,Fri,Sat
Sun ### Mon ### Tue ### Wed ### Thu ### Fri ### Sat

尝试一下 »
VBScript 参考手册 完整的 VBScript 参考手册

VBScript Log 函数

VBScript 参考手册 完整的 VBScript 参考手册

Log 函数返回指定数字的自然对数。自然对数是以 e 为底的对数。

注意：不允许使用负值。

提示：请参阅 Exp 函数。

语法

Log(number)

参数 描述
number 必需。大于 0 的有效的数值表达式。

实例

实例

<script type="text/vbscript">

document.write(Log(38.256783227))

</script>

以上实例输出结果：

3.64432088381777

尝试一下 »
VBScript 参考手册 完整的 VBScript 参考手册

VBScript FormatCurrency 函数

VBScript 参考手册 完整的 VBScript 参考手册

FormatCurrency 函数返回作为货币值被格式化的表达式，使用计算机系统控制面板中定义的货币符号。

语法

FormatCurrency(Expression[,NumDigAfterDec[,
IncLeadingDig[,UseParForNegNum[,GroupDig]]]])

参数 描述
expression 必需。需被格式化的表达式。
NumDigAfterDec 可选。指示小数点右侧显示位数的数值。默认值为 -1（使用的是计算机的区域设置）。
IncLeadingDig 可选。指示是否显示小数值的前导零：
  • -2 = TristateUseDefault - 使用计算机的区域设置
  • -1 = TristateTrue - True
  • 0 = TristateFalse - False
UseParForNegNum 可选。指示是否将负值置于括号中：
  • -2 = TristateUseDefault - 使用计算机的区域设置
  • -1 = TristateTrue - True
  • 0 = TristateFalse - False
GroupDig 可选。指示是否使用计算机区域设置中指定的数字分组符号将数字分组：
  • -2 = TristateUseDefault - 使用计算机的区域设置
  • -1 = TristateTrue - True
  • 0 = TristateFalse - False

实例

实例 1

<script type="text/vbscript">

document.write(FormatCurrency(20000))

</script>

以上实例输出结果：

$20,000.00

尝试一下 »

实例 2

设置小数点后的位数：

<script type="text/vbscript">

document.write(FormatCurrency(20000,2) & "<br />")
document.write(FormatCurrency(20000,5))

</script>

以上实例输出结果：

$20,000.00
$20,000.00000

尝试一下 »

实例 3

是否显示小数值的前导零：

<script type="text/vbscript">

document.write(FormatCurrency(.20,,0) & "<br />")
document.write(FormatCurrency(.20,,-1))

</script>

以上实例输出结果：

$.20
$0.20

尝试一下 »

实例 4

是否将负值置于括号中：

<script type="text/vbscript">

document.write(FormatCurrency(-50,,,0) & "<br />")
document.write(FormatCurrency(-50,,,-1))

</script>

以上实例输出结果：

-$50.00
($50.00)

尝试一下 »

实例 5

是否将一百万美元分组：

<script type="text/vbscript">

document.write(FormatCurrency(1000000,,,,0) & "<br />")
document.write(FormatCurrency(1000000,,,,-1))

</script>

以上实例输出结果：

$1000000.00
$1,000,000.00

尝试一下 »
VBScript 参考手册 完整的 VBScript 参考手册

VBScript IsArray 函数

VBScript IsArray 函数返回一个 Boolean 值，它表示变量是否为数组。

VBScript 参考手册 完整的 VBScript 参考手册

IsArray 函数返回一个指示指定的变量是否为数组的布尔值。如果变量为数组，则返回 True，否则返回 False。

语法

IsArray(variable)

参数

参数 描述
variable 必需。任何变量。

实例

实例 1

<script type="text/vbscript">

days=Array("Sun","Mon","Tue","Wed","Thu","Fri","Sat")
document.write(IsArray(days))

</script>

以上实例输出结果：

True

尝试一下 »

实例 2

<script type="text/vbscript">

Dim a(5)
a(0)="Saturday"
a(1)="Sunday"
a(2)="Monday"
a(3)="Tuesday"
a(4)="Wednesday"
document.write(IsArray(a))

</script>

以上实例输出结果：

True

尝试一下 »

实例 3

<script type="text/vbscript">

a="Saturday"
document.write(IsArray(a))

</script>

以上实例输出结果：

False

尝试一下 »
VBScript 参考手册 完整的 VBScript 参考手册

VBScript Fix 函数

VBScript Fix 函数可以返回一个数的整数的部分。

VBScript 参考手册 完整的 VBScript 参考手册

Fix 函数返回指定数字的整数部分。

注意：如果 number 参数包含 Null，则返回 Null。

提示：请参阅 Int 函数。

语法

Fix(number)

参数

参数 描述
number 必需。有效的数值表达式。

实例

实例 1

<script type="text/vbscript">

document.write(Fix(6.83227) & "<br />")
document.write(Fix(6.23443))

</script>

以上实例输出结果：

6
6

尝试一下 »

实例 2

<script type="text/vbscript">

document.write(Fix(-6.13443) & "<br />")
document.write(Fix(-6.93443))

</script>

以上实例输出结果：

-6
-6

尝试一下 »
VBScript 参考手册 完整的 VBScript 参考手册

VBScript Oct 函数

VBScript Oct 函数返回表示一个数的八进制值的字符串。 

VBScript 参考手册 完整的 VBScript 参考手册

Oct 函数返回一个字符串，表示指定数字的八进制值。

注意：如果参数不是整数，则在进行运算前将其四舍五入为最接近的整数。

语法

Oct(number)

参数

参数 描述
number 必需。任何有效的表达式。

如果数字是：

  • Null - 那么 Oct 函数返回 Null。
  • Empty - 那么 Oct 函数返回零（0）。
  • Any other number - 那么 Oct 函数返回 11 个八进制字符。

实例

实例

<script type="text/vbscript">

document.write(Oct(3) & "<br />")
document.write(Oct(5) & "<br />")
document.write(Oct(9) & "<br />")
document.write(Oct(10) & "<br />")
document.write(Oct(11) & "<br />")
document.write(Oct(12) & "<br />")
document.write(Oct(400) & "<br />")
document.write(Oct(459) & "<br />")
document.write(Oct(460) & "<br />")

</script>

以上实例输出结果：

3
5
11
12
13
14
620
713
714

尝试一下 »
VBScript 参考手册 完整的 VBScript 参考手册

VBScript Filter 函数

VBScript Filter 函数可以根据指定的筛选条件，返回含有字符串数组子集的、下限为 0 的数组。 

VBScript 参考手册 完整的 VBScript 参考手册

Filter 函数返回一个基于 0 的数组，此数组包含以特定过滤条件为基础的字符串数组的子集。

注意：如果找不到与 value 参数相匹配的值，Filter 函数会返回一个空数组。

注意：如果参数 inputstrings 为 Null 或者不是一维数组，则会发生错误。

语法

Filter(inputstrings,value[,include[,compare]])

参数

参数 描述
inputstrings 必需。要检索的一维字符串数组。
value 必需。要搜索的字符串。
include 可选。Boolean 值，指定返回的子字符串是否包含 Value。如果 Include 为 True，Filter 将返回包含子字符串 Value 的数组子集。如果 Include 为 False，Filter 将返回不包含子字符串 Value 的数组子集。默认值为 True。
compare 可选。规定要使用的字符串比较类型。

可采用下列的值：

  • 0 = vbBinaryCompare - 执行二进制比较
  • 1 = vbTextCompare - 执行文本比较

实例

实例 1

Filter：项目包含的 "S"：

<script type="text/vbscript">

a=Array("Sunday","Monday","Tuesday","Wednesday","Thursday","Friday","Saturday")
b=Filter(a,"S")
for each x in b
document.write(x & "<br />")
next

</script>

以上实例输出结果：

Sunday
Saturday

尝试一下 »

实例 2

Filter：项目不包含的 "S"（include=False）：

<script type="text/vbscript">

a=Array("Sunday","Monday","Tuesday","Wednesday","Thursday","Friday","Saturday")
b=Filter(a,"S",False)
for each x in b
document.write(x & "<br />")
next

</script>

以上实例输出结果：

Monday
Tuesday
Wednesday
Thursday
Friday

尝试一下 »

实例 3

Filter：包含 "S" 的项目，用文本比较（compare=1）：

<script type="text/vbscript">

a=Array("Sunday","Monday","Tuesday","Wednesday","Thursday","Friday","Saturday")
b=Filter(a,"S",True,1)
for each x in b
document.write(x & "<br />")
next

</script>

以上实例输出结果：

Sunday
Tuesday
Wednesday
Thursday
Saturday

尝试一下 »
VBScript 参考手册 完整的 VBScript 参考手册

VBScript Int 函数

VBScript Int 函数返回某个数的整数部分。

VBScript 参考手册 完整的 VBScript 参考手册

Int 函数返回指定数字的整数部分。

注意：如果 number 参数包含 Null，则返回 Null。

提示：请参阅 Fix 函数。

语法

Int(number)

参数

参数 描述
number 必需。有效的数值表达式。

实例

实例 1

<script type="text/vbscript">

document.write(Int(6.83227) & "<br />")
document.write(Int(6.23443))

</script>

以上实例输出结果：

6
6

尝试一下 »

实例 2

<script type="text/vbscript">

document.write(Int(-6.13443) & "<br />")
document.write(Int(-6.93443))

</script>

以上实例输出结果：

-7
-7

尝试一下 »
VBScript 参考手册 完整的 VBScript 参考手册

相关文章

VBScript Fix 函数

VBScript Hex 函数

VBScript Hex 函数用于返回一个字符串，该字符串表示数的十六进制值。

VBScript 参考手册 完整的 VBScript 参考手册

Hex 函数返回一个字符串，表示指定数字的十六进制值。

注意：如果参数不是整数，则在进行运算前将其四舍五入为最接近的整数。

语法

Hex(number)

参数

参数 描述
number 必需。任何有效的表达式。

如果数字是：

  • Null - 那么 Hex 函数返回 Null。
  • Empty - 那么 Hex 函数返回零（0）。
  • Any other number - 那么 Hex 函数返回 8 个十六进制字符。

实例

实例

<script type="text/vbscript">

document.write(Hex(3) & "<br />")
document.write(Hex(5) & "<br />")
document.write(Hex(9) & "<br />")
document.write(Hex(10) & "<br />")
document.write(Hex(11) & "<br />")
document.write(Hex(12) & "<br />")
document.write(Hex(400) & "<br />")
document.write(Hex(459) & "<br />")
document.write(Hex(460) & "<br />")

</script>

以上实例输出结果：

3
5
9
A
B
C
190
1CB
1CC

尝试一下 »
VBScript 参考手册 完整的 VBScript 参考手册

VBScript CBool 函数

VBScript CBool 函数返回已被转换为 Boolean 子类型的变量的表达式。

VBScript 参考手册 完整的 VBScript 参考手册

CBool 函数把表达式转换为布尔（Boolean）类型。

表达式必须是一个数值。

语法

CBool(expression)

参数

参数 描述
expression 必需。任何有效的表达式。非零的值返回 True，零返回 False。如果表达式不能解释为数值，则发生 run-time 错误。

实例

实例

<script type="text/vbscript">

document.write(CBool(5) & "<br />")
document.write(CBool(0) & "<br />")
document.write(CBool(-5) & "<br />")

</script>

以上实例输出结果：

True
False
True

尝试一下 »
VBScript 参考手册 完整的 VBScript 参考手册

VBScript CStr 函数

VBScript CStr 函数用于返回表达式，该表达式已被转换为 String 子类型的 Variant。

VBScript 参考手册 完整的 VBScript 参考手册

CStr 函数把表达式转换为字符串（String）类型。

语法

CStr(expression)

参数

参数 描述
expression 必需。任何有效的表达式。

如果表达式是：

  • Boolean - CStr 函数将返回一个字符串，其中包含 true 或 false。
  • Date - CStr 函数将返回一个字符串，其中包含短日期格式的日期。
  • Null - 将发生 run-time 错误。
  • Empty - CStr 函数将返回一个空字符串（""）。
  • Error - CStr 函数将返回一个字符串，其中包含单词 "Error" 和错误号码。
  • Other numeric - CStr 函数将返回一个字符串，其中包含数字。

实例

实例

<script type="text/vbscript">

document.write(CStr("300000") & "<br />")
document.write(CStr(#10-05-25#) & "<br />")

</script>

以上实例输出结果：

300000
10/5/2025

尝试一下 »
VBScript 参考手册 完整的 VBScript 参考手册

VBScript Asc 函数

VBScript Asc 函数可以返回字符串首字母的 ANSI 字符代码。

VBScript 参考手册 完整的 VBScript 参考手册

Asc 函数把字符串中的第一个字母转换为对应的 ANSI 代码，并返回结果。

语法

Asc(string)

参数

参数 描述
string 必需。字符串表达式。不能为空字符串！

实例

实例 1

<script type="text/vbscript">

document.write(Asc("A") & "<br />")
document.write(Asc("a") & "<br />")
document.write(Asc("F") & "<br />")
document.write(Asc("f") & "<br />")
document.write(Asc("2") & "<br />")
document.write(Asc("#") & "<br />")

</script>

以上实例输出结果：

65
97
70
102
50
35

尝试一下 »

实例 2

Asc 返回字符串中第一个字符的 ANSI 代码：

<script type="text/vbscript">

document.write(Asc("W") & "<br />")
document.write(Asc("W3CSchool.com"))

</script>

以上实例输出结果：

87
87

尝试一下 »

实例 3

如何返回字符串中所有字符的 ANSI 代码：

<script type="text/vbscript">

txt="W3Cschools.com"
for i=1 to len(txt)
document.write(Asc(mid(txt,i,1)) & "<br />")
next

</script>

以上实例输出结果：

87
51
115
99
104
111
111
108
115
46
99
111
109

尝试一下 »
VBScript 参考手册 完整的 VBScript 参考手册

VBScript CSng 函数

VBScript CSng 函数能够返回一个表达式，该表达式已被转换为 Single 子类型的 Variant。

VBScript 参考手册 完整的 VBScript 参考手册

CSng 函数把表达式转换为单精度（Single）类型。

表达式必须是一个数值。

语法

CSng(expression)

参数

参数 描述
expression 必需。任何有效的表达式。

实例

实例

<script type="text/vbscript">

document.write(CSng("300000") & "<br />")
document.write(CSng(1536.75263541) & "<br />")
document.write(CSng(-6700000) & "<br />")

</script>

以上实例输出结果：

300000
1536.753
-6700000

尝试一下 »
VBScript 参考手册 完整的 VBScript 参考手册

VBScript Year 函数

VBScript Year 函数返回表示年份的数值。

VBScript 参考手册 完整的 VBScript 参考手册

Year 函数返回表示年份的一个数字。

语法

Year(date)

参数

参数 描述
date 必需。任何可表示日期的表达式。

实例

实例

<script type="text/vbscript">

document.write(Year("2010-02-16"))

</script>

以上实例输出结果：

2010

尝试一下 »

VBScript 参考手册 完整的 VBScript 参考手册

VBScript CLng 函数

VBScript CLng 函数返回一个表达式，此表达式已被转换为 Long 子类型的 Variant。

VBScript 参考手册 完整的 VBScript 参考手册

CLng 函数把表达式转换为长整型（Long）类型。

注意：值必须是介于 -2147483648 与 2147483647 之间的数字。

语法

CLng(expression)

参数

参数 描述
expression 必需。任何有效的表达式。

实例

实例

<script type="text/vbscript">

document.write(CLng("300000") & "<br />")
document.write(CLng(1536.750) & "<br />")
document.write(CLng(-6700000) & "<br />")

</script>

以上实例输出结果：

300000
1537
-6700000

尝试一下 »
VBScript 参考手册 完整的 VBScript 参考手册

VBScript WeekdayName 函数

VBScript WeekdayName 函数用于返回表示星期几的字符串。

VBScript 参考手册 完整的 VBScript 参考手册

WeekdayName 函数返回一周中指定的一天的星期名。

语法

WeekdayName(weekday[,abbreviate[,firstdayofweek]])

参数

参数 描述
weekday 必需。一周的第几天的数字。
abbreviate 可选。布尔值，指示是否缩写星期名。
firstdayofweek 可选。规定一周的第一天。

可采用下面的值：

  • 0 = vbUseSystemDayOfWeek - 使用区域语言支持（NLS）API 设置
  • 1 = vbSunday - 星期日（默认）
  • 2 = vbMonday - 星期一
  • 3 = vbTuesday - 星期二
  • 4 = vbWednesday - 星期三
  • 5 = vbThursday - 星期四
  • 6 = vbFriday - 星期五
  • 7 = vbSaturday - 星期六

实例

实例 1

获取一周的第 3 天的名称：

<script type="text/vbscript">

document.write(WeekdayName(3))

</script>

以上实例输出结果：

Tuesday

尝试一下 »

实例 2

获取一周的第 3 天的简称：

<script type="text/vbscript">

document.write(WeekdayName(3,True))

</script>

以上实例输出结果：

Tue

尝试一下 »

实例 3

获取一周的第 3 天的名称，一周的第一天是星期一：

<script type="text/vbscript">

document.write(WeekdayName(3,False,2))

</script>

以上实例输出结果：

Wednesday

尝试一下 »

VBScript 参考手册 Complete VBScript 参考手册

VBScript CInt 函数

VBScript CInt 函数用于返回表达式，此表达式已被转换为 Integer 子类型的 Variant。

VBScript 参考手册 完整的 VBScript 参考手册

CInt 函数把表达式转换为整数（Integer）类型。

注意：值必须是介于 -32768 与 32767 之间的数字。

语法

CInt(expression)

参数

参数 描述
expression 必需。任何有效的表达式。

实例

实例

<script type="text/vbscript">

document.write(CInt("300") & "<br />")
document.write(CInt(36.75) & "<br />")
document.write(CInt(-67) & "<br />")

</script>

以上实例输出结果：

300
37
-67

尝试一下 »
VBScript 参考手册 完整的 VBScript 参考手册

VBScript Weekday 函数

VBScript Weekday 函数返回表示星期几的数值，请参考本节内容进行使用！

VBScript 参考手册 完整的 VBScript 参考手册

Weekday 函数返回表示一周的天数的数字，介于 1 到 7 之间。

语法

Weekday(date[,firstdayofweek])

参数

参数 描述
date 必需。要计算的日期表达式。
firstdayofweek 可选。规定一周的第一天。

可采用下面的值：

  • 0 = vbUseSystemDayOfWeek - 使用区域语言支持（NLS）API 设置
  • 1 = vbSunday - 星期日（默认）
  • 2 = vbMonday - 星期一
  • 3 = vbTuesday - 星期二
  • 4 = vbWednesday - 星期三
  • 5 = vbThursday - 星期四
  • 6 = vbFriday - 星期五
  • 7 = vbSaturday - 星期六

实例

实例

<script type="text/vbscript">

document.write("document.write(Weekday(" & chr(34) & "2010-02-16" & chr(34) & ",0) & " & chr(34) & "<br />" & chr(34) & ")
") document.write(Weekday("2010-02-16",1) & "<br />")
document.write(Weekday("2010-02-16",2) & "<br />")
document.write(Weekday("2010-02-16",3) & "<br />")
document.write(Weekday("2010-02-16",4) & "<br />")
document.write(Weekday("2010-02-16",5) & "<br />")
document.write(Weekday("2010-02-16",6) & "<br />")

</script>

以上实例输出结果：

document.write(Weekday("2010-02-16",0) & "
") 3
2
1
7
6
5

尝试一下 »

VBScript 参考手册 完整的 VBScript 参考手册

VBScript Chr 函数

VBScript Chr 函数返回指定 ANSI 字符码的字符。

VBScript 参考手册 完整的 VBScript 参考手册

Chr 函数把指定的 ANSI 字符代码转换为字符。

注意：从 0 到 31 之间的数字表示不可打印的 ASCII 代码，例如 Chr(10) 将返回一个换行符。

语法

Chr(charcode)

参数

参数 描述
charcode 必需。标识某个字符的数字。

实例

实例 1

<script type="text/vbscript">

document.write(Chr(65) & "<br />")
document.write(Chr(66) & "<br />")
document.write(Chr(67) & "<br />")
document.write(Chr(97) & "<br />")
document.write(Chr(98) & "<br />")
document.write(Chr(99) & "<br />")

</script>

以上实例输出结果：

A
B
C
a
b
c

尝试一下 »

实例 2

<script type="text/vbscript">

document.write(Chr(34) & "<br />")
document.write(Chr(35) & "<br />")
document.write(Chr(36) & "<br />")
document.write(Chr(37) & "<br />")

</script>

以上实例输出结果：

"
#
$
%

尝试一下 »
VBScript 参考手册 完整的 VBScript 参考手册

参考文章

HTML ASCII 参考手册

VBScript TimeValue 函数

VBScript TimeValue 函数是一个与时间相关的函数，通过本节内容，你可以了解该函数的使用！

VBScript 参考手册 完整的 VBScript 参考手册

TimeValue 函数返回包含时间的子类型 Date 的 Variant。

语法

TimeValue(time)

参数

参数 描述
time 必需。介于 0:00:00 (12:00:00 A.M.) - 23:59:59 (11:59:59 P.M.) 的时间，或任何表示此范围内时间的表达式。

实例

实例

<script type="text/vbscript">

document.write(TimeValue("5:55:59 PM") & "<br />")
document.write(TimeValue(#5:55:59 PM#) & "<br />")
document.write(TimeValue("15:34"))

</script>

以上实例输出结果：

5:55:59 PM
5:55:59 PM
3:34:00 PM

尝试一下 »

VBScript 参考手册 完整的 VBScript 参考手册

VBScript CDbl 函数

VBScript CDbl 函数用于返回一个表达式，此表达式已被转换为 Double 子类型的 Variant。

VBScript 参考手册 完整的 VBScript 参考手册

CDbl 函数把表达式转换为双精度（Double）类型。

表达式必须是一个数值。

语法

CDbl(expression)

参数

参数 描述
expression 必需。任何有效的表达式。

实例

实例 1

<script type="text/vbscript">

document.write(CDbl(134.345) & "<br />")

</script>

以上实例输出结果：

134.345

尝试一下 »

实例 2

<script type="text/vbscript">

document.write(CDbl(14111111113353355.345455) & "<br />")

</script>

以上实例输出结果：

1.41111111133534E+16

尝试一下 »
VBScript 参考手册 完整的 VBScript 参考手册

VBScript TimeSerial 函数

VBScript TimeSerial 函数返回一个 Date 子类型的 Variant，含有指定时、分、秒的时间。

VBScript 参考手册 完整的 VBScript 参考手册

TimeSerial 函数返回特定小时、分钟和秒的时间。

语法

TimeSerial(hour,minute,second)

参数

参数 描述
hour 必需。介于 0-23 的数字，或数值表达式。
minute 必需。介于 0-59 的数字，或数值表达式。
second 必需。介于 0-59 的数字，或数值表达式。

实例

实例

<script type="text/vbscript">

document.write(TimeSerial(23,2,3) & "<br />")
document.write(TimeSerial(0,9,11) & "<br />")
document.write(TimeSerial(14+2,9-2,1-1))

</script>

以上实例输出结果：

11:02:03 PM
12:09:11 AM
4:07:00 PM

尝试一下 »

VBScript 参考手册 完整的 VBScript 参考手册

VBScript Timer 函数

在 VBScript 中 Timer 函数起到什么作用？一起通过本节内容来了解一下。

VBScript 参考手册 完整的 VBScript 参考手册

Timer 函数返回午夜 12 时（12:00 AM）以后已经过去的秒数。

语法

Timer

实例

实例（仅适用于 IE）

<script type="text/vbscript">

document.write("Number of seconds and milliseconds since 12:00 AM: ")
document.write(Timer)

</script>

以上实例输出结果：

document.write("Number of seconds and milliseconds since 12:00 AM: ") document.write(Timer)

尝试一下 »

VBScript 参考手册 完整的 VBScript 参考手册

VBScript CCur 函数

VBScript CCur 函数返回表达式，此表达式已被转换为 Currency 子类型的 Variant。

VBScript 参考手册 完整的 VBScript 参考手册

CCur 函数把表达式转换为货币（Currency）类型。

表达式必须是一个数值。

语法

CCur(expression)

参数

参数 描述
expression 必需。任何有效的表达式。

实例

实例 1

<script type="text/vbscript">

document.write(CCur(30) & "<br />")

</script>

以上实例输出结果：

30

尝试一下 »

实例 2

请注意，CCur 函数四舍五入到4位小数：

<script type="text/vbscript">

document.write(CCur(5.9555555555555) & "<br />")

</script>

以上实例输出结果：

5.9556

尝试一下 »
VBScript 参考手册 完整的 VBScript 参考手册

VBScript Time 函数

VBScript Time 函数返回 Date 子类型 Variant，指示当前系统时间。

VBScript 参考手册 完整的 VBScript 参考手册

Time 函数返回当前的系统时间。

语法

Time

实例

实例（仅适用于 IE）

<script type="text/vbscript">

document.write("The current system time is: ")
document.write(Time)

</script>

以上实例输出结果：

document.write("The current system time is: ") document.write(Time)

尝试一下 »

VBScript 参考手册 完整的 VBScript 参考手册

VBScript CByte 函数

VBScript CByte 函数返回表达式，此表达式已被转换为 Byte 子类型的 Variant。

VBScript 参考手册 完整的 VBScript 参考手册

CByte 函数把表达式转换为字节（Byte）类型。

表达式必须是介于 0 和 255 之间的数字。

语法

CByte(expression)

参数

参数 描述
expression 必需。任何有效的表达式。

实例

实例

<script type="text/vbscript">

document.write(CByte(0) & "<br />")
document.write(CByte(56.8) & "<br />")
document.write(CByte(123.2) & "<br />")
document.write(CByte(255) & "<br />")

</script>

以上实例输出结果：

0
57
123
255

尝试一下 »
VBScript 参考手册 完整的 VBScript 参考手册

VBScript Second 函数

通过使用 VBScript Second 函数，你可以返回时间的秒数。

VBScript 参考手册 完整的 VBScript 参考手册

Second 函数返回表示分钟的秒数的数字，介于 0 到 59 之间。

语法

Second(time)

参数

参数 描述
time 必需的。任何表示时间的表达式。

实例

实例 1

<script type="text/vbscript">

document.write(Second("13:45:21"))

</script>

以上实例输出结果：

21

尝试一下 »

实例 2

<script type="text/vbscript">

document.write(Second(Now()))

</script>

以上实例输出结果：

document.write(Second(Now()))

尝试一下 »

VBScript 参考手册 完整的 VBScript 参考手册

VBScript Now 函数

VBScript Now 函数用于获取当前计算机的系统日期和时间。

VBScript 参考手册 完整的 VBScript 参考手册

Now 函数根据计算机系统的日期和时间设置返回当前的日期和时间。

语法

Now

实例

实例（仅适用于 IE）

<script type="text/vbscript">

document.write("The current system date and time is: ")
document.write(Now)

</script>

以上实例输出结果：

document.write("The current system date and time is: ") document.write(Now)

尝试一下 »

VBScript 参考手册 完整的 VBScript 参考手册

VBScript DatePart 函数

VBScript DatePart 函数返回一个包含已知日期的指定时间部分的 Variant (Integer)。

VBScript 参考手册 完整的 VBScript 参考手册

DatePart 函数返回给定日期的指定部分。

语法

DatePart(interval,date[,firstdayofweek[,firstweekofyear]])

参数

参数 描述
interval 必需。要返回的时间间隔。

可采用下面的值：

  • yyyy - 年
  • q - 季度
  • m - 月
  • y - 当年的第几天
  • d - 日
  • w - 当周的第几天
  • ww - 当年的第几周
  • h - 小时
  • n - 分
  • s - 秒
date 必需。需计算的日期表达式。
firstdayofweek 可选。规定一周的日数，即当周的第几天。

可采用下面的值：

  • 0 = vbUseSystemDayOfWeek - 使用区域语言支持（NLS）API 设置
  • 1 = vbSunday - 星期日（默认）
  • 2 = vbMonday - 星期一
  • 3 = vbTuesday - 星期二
  • 4 = vbWednesday - 星期三
  • 5 = vbThursday - 星期四
  • 6 = vbFriday - 星期五
  • 7 = vbSaturday - 星期六
firstweekofyear 可选。规定一年中的第一周。

可采用下面的值：

  • 0 = vbUseSystem - 使用区域语言支持（NLS）API 设置
  • 1 = vbFirstJan1 - 由 1 月 1 日所在的星期开始（默认）
  • 2 = vbFirstFourDays - 由在新的一年中至少有四天的第一周开始
  • 3 = vbFirstFullWeek - 由在新的一年中第一个完整的周开始

实例

实例 1

从一个日期中获取月份：

<script type="text/vbscript">

d=CDate("2010-02-16")
document.write(DatePart("m",d))

</script>

以上实例输出结果：

2

尝试一下 »

实例 2

获取我们正处于的月份：

<script type="text/vbscript">

document.write(DatePart("m",Now()))

</script>

以上实例输出结果：

document.write(DatePart("m",Now()))

尝试一下 »

实例 3

获得小时：

<script type="text/vbscript">

document.write(DatePart("h",Now())

</script>

以上实例输出结果：

document.write(DatePart("h",Now()))

尝试一下 »

VBScript 参考手册 完整的 VBScript 参考手册

VBScript MonthName 函数

VBScript MonthName 函数返回表示月份的字符串。

VBScript 参考手册 完整的 VBScript 参考手册

MonthName 函数返回指定的月份的名称。

语法

MonthName(month[,abbreviate])

参数

参数 描述
month 必需。规定月的数字。（比如一月是 1，二月是 2，依此类推。）
abbreviate 可选。一个布尔值，指示是否缩写月份名称。默认是 False。

实例

实例 1

获取第 8 个月份的名称：

<script type="text/vbscript">

document.write(MonthName(8))

</script>

以上实例输出结果：

August

尝试一下 »

实例 2

获取第 8 个月份的简称：

<script type="text/vbscript">

document.write(MonthName(8,True))

</script>

以上实例输出结果：

Aug

尝试一下 »

VBScript 参考手册 完整的 VBScript 参考手册

VBScript DateDiff 函数

VBScript DateDiff 函数返回两个日期之间的间隔。

VBScript 参考手册 完整的 VBScript 参考手册

DateDiff 函数返回两个日期之间的时间间隔数。

语法

DateDiff(interval,date1,date2[,firstdayofweek[,firstweekofyear]])

参数

参数 描述
interval 必需。计算 date1 和 date2 之间的时间间隔的单位。

可采用下面的值：

  • yyyy - 年
  • q - 季度
  • m - 月
  • y - 当年的第几天
  • d - 日
  • w - 当周的第几天
  • ww - 当年的第几周
  • h - 小时
  • n - 分
  • s - 秒
date1,date2 必需。日期表达式。在计算中需要使用的两个日期。
firstdayofweek 可选。规定一周的日数，即当周的第几天。

可采用下面的值：

  • 0 = vbUseSystemDayOfWeek - 使用区域语言支持（NLS）API 设置
  • 1 = vbSunday - 星期日（默认）
  • 2 = vbMonday - 星期一
  • 3 = vbTuesday - 星期二
  • 4 = vbWednesday - 星期三
  • 5 = vbThursday - 星期四
  • 6 = vbFriday - 星期五
  • 7 = vbSaturday - 星期六
firstweekofyear 可选。规定一年中的第一周。

可采用下面的值：

  • 0 = vbUseSystem - 使用区域语言支持（NLS）API 设置
  • 1 = vbFirstJan1 - 由 1 月 1 日所在的星期开始（默认）
  • 2 = vbFirstFourDays - 由在新的一年中至少有四天的第一周开始
  • 3 = vbFirstFullWeek - 由在新的一年中第一个完整的周开始

实例

实例 1

2009 年 1 月 31 日和 2010 年 1 月 31 日之间的区别：

<script type="text/vbscript">

fromDate="31-Jan-09 00:00:00"
toDate="31-Jan-10 23:59:00"
document.write(DateDiff("yyyy",fromDate,toDate) & "<br />")
document.write(DateDiff("q",fromDate,toDate) & "<br />")
document.write(DateDiff("m",fromDate,toDate) & "<br />")
document.write(DateDiff("y",fromDate,toDate) & "<br />")
document.write(DateDiff("d",fromDate,toDate) & "<br />")
document.write(DateDiff("w",fromDate,toDate) & "<br />")
document.write(DateDiff("ww",fromDate,toDate) & "<br />")
document.write(DateDiff("h",fromDate,toDate) & "<br />")
document.write(DateDiff("n",fromDate,toDate) & "<br />")
document.write(DateDiff("s",fromDate,toDate) & "<br />")

</script>

以上实例输出结果：

1
4
12
365
365
52
53
8783
527039
31622340

尝试一下 »

实例 2

2009 年 12 月 31 日和 2012 年 12 月 31 日之间有多少周（在星期一开始）：

<script type="text/vbscript">

fromDate=CDate("2009/12/31")
toDate=CDate("2012/12/31")
document.write(DateDiff("w",fromDate,toDate,vbMonday))

</script>

以上实例输出结果：

156

尝试一下 »

VBScript 参考手册 完整的 VBScript 参考手册

VBScript Month 函数

VBScript Month 函数用于返回月份。

VBScript 参考手册 完整的 VBScript 参考手册

Month 函数返回表示年的月份的数字，介于 1 到 12 之间。

语法

Month(date)

参数

参数 描述
date 必需。任何表示日期的表达式。

实例

实例

<script type="text/vbscript">

document.write(Month("2010-02-16"))

</script>

以上实例输出结果：

2

尝试一下 »

VBScript 参考手册 完整的 VBScript 参考手册

VBScript DateAdd 函数

VBScript DateAdd 函数返回的日期是加上了指定的时间间隔的。

VBScript 参考手册 完整的 VBScript 参考手册

DateAdd 函数返回已添加指定时间间隔的日期。

语法

DateAdd(interval,number,date)

参数

参数 描述
interval 必需。您想要添加的时间间隔。

可采用下面的值：

  • yyyy - 年
  • q - 季度
  • m - 月
  • y - 当年的第几天
  • d - 日
  • w - 当周的第几天
  • ww - 当年的第几周
  • h - 小时
  • n - 分
  • s - 秒
number 必需。需要添加的时间间隔的数目。可对未来的日期使用正值，对过去的日期使用负值。
date 必需。代表被添加的时间间隔的日期的变量或文字。

实例

实例 1

如何使用参数：

<script type="text/vbscript">

document.write(DateAdd("yyyy",1,"31-Jan-10") & "<br />")
document.write(DateAdd("q",1,"31-Jan-10") & "<br />")
document.write(DateAdd("m",1,"31-Jan-10") & "<br />")
document.write(DateAdd("y",1,"31-Jan-10") & "<br />")
document.write(DateAdd("d",1,"31-Jan-10") & "<br />")
document.write(DateAdd("w",1,"31-Jan-10") & "<br />")
document.write(DateAdd("ww",1,"31-Jan-10") & "<br />")
document.write(DateAdd("h",1,"31-Jan-10 08:50:00") & "<br />")
document.write(DateAdd("n",1,"31-Jan-10 08:50:00") & "<br />")
document.write(DateAdd("s",1,"31-Jan-10 08:50:00") & "<br />")

</script>

以上实例输出结果：

1/31/2011
4/30/2010
2/28/2010
2/1/2010
2/1/2010
2/1/2010
2/7/2010
1/31/2010 9:50:00 AM
1/31/2010 8:51:00 AM
1/31/2010 8:50:01 AM

尝试一下 »

实例 2

从 2001 年 1 月 31 日减去一个月：

<script type="text/vbscript">

document.write(DateAdd("m",-1,"31-Jan-10"))

</script>

以上实例输出结果：

12/31/2009

尝试一下 »

实例 3

从现在添加一天：

<script type="text/vbscript">

document.write(DateAdd("d",1,Now()))

</script>

以上实例输出结果：

document.write(DateAdd("d",1,Now()))

尝试一下 »
VBScript 参考手册 完整的 VBScript 参考手册

VBScript Minute 函数

VBScript Minute 函数返回表示时间的分钟数。

VBScript 参考手册 完整的 VBScript 参考手册

Minute 函数返回表示小时的分钟数的数字，介于 0 到 59 之间。

语法

Minute(time)

参数

参数 描述
time 必需。表示时间的表达式。

实例

实例 1

<script type="text/vbscript">

document.write(Minute("13:45"))

</script>

以上实例输出结果：

45

尝试一下 »

实例 2

<script type="text/vbscript">

document.write(Minute(Now()))

</script>

以上实例输出结果：

document.write(Minute(Now()))

尝试一下 »

VBScript 参考手册 完整的 VBScript 参考手册

VBScript Date 函数

VBScript Date 函数用于返回当前系统日期。

VBScript 参考手册 完整的 VBScript 参考手册

Date 函数返回当前的系统日期。

语法

Date

参数

实例

实例（仅适用于 IE）

<script type="text/vbscript">

document.write("The current system date is: ")
document.write(Date)

</script>

以上实例输出结果：

document.write("The current system date is: ") document.write(Date)

尝试一下 »
VBScript 参考手册 完整的 VBScript 参考手册

相关文章

VBScript Time 函数

VBScript IsDate 函数

VBScript IsDate 函数返回 Boolean 值，表示表达式是否可以转换为日期。

VBScript 参考手册 完整的 VBScript 参考手册

IsDate 函数返回指示计算表达式能否转换为日期的布尔值。如果表达式是日期，或可被转换为日期，则返回 True 。否则，返回 False 。

注意：IsDate 函数使用本地设置来检测字符串是否可以转换为日期（在所有的语言中，"January" 不是一个月份）。

语法

IsDate(expression)

参数

参数 描述
expression 必需。要计算的表达式。

实例 1

合法日期：

<script type="text/vbscript">

document.write(IsDate("April 22, 1947"))
document.write("<br />")
document.write(IsDate(#01/31/10#))

</script>

以上实例输出结果：

True
True

尝试一下 »

实例 2

非法日期：

<script type="text/vbscript">

document.write(IsDate("#01/31/10#"))
document.write("<br />")
document.write(IsDate("52/17/2010"))
document.write("<br />")
document.write(IsDate("Hello World!"))

</script>

以上实例输出结果：

False
False
False

尝试一下 »

VBScript 参考手册 完整的 VBScript 参考手册

VBScript CDate 函数

VBScript CDate 函数返回表达式，此表达式已被转换为 Date 子类型的 Variant。

VBScript 参考手册 完整的 VBScript 参考手册

CDate 函数把有效的日期和时间表达式转换为日期（Date）类型，并返回结果。p>

提示：请使用 IsDate 函数来判断 date 是否可被转换为日期或时间。

注意：IsDate 函数使用本地设置来检测字符串是否可被转换为日期（在所有的语言中，"January"不是一个月份）。

语法

CDate(date)

参数

参数 描述
date 必需。任何有效的日期表达式（比如 Date() 或者 Now()）。

实例

实例 1

如何把字符串转换为日期：

<script type="text/vbscript">

d=CDate("April 22, 2010")

</script>

尝试一下 »

实例 2

如何把带分隔符的数字转换为日期：

<script type="text/vbscript">

d=CDate(#4/22/10#)

</script>

尝试一下 »

实例 3

如何使用 CDATE 把字符串转换为一个时间对象：

<script type="text/vbscript">

d=CDate("3:18:40 AM")

</script>

尝试一下 »

VBScript 参考手册 完整的 VBScript 参考手册

相关文章

VBScript IsDate 函数

VBScript Hour 函数

VBScript Hour 函数返回小时数，具体用法请参考本节内容。

VBScript 参考手册 完整的 VBScript 参考手册

Hour 函数返回一个 0 到 23 之间的代表天的小时数的数字。

语法

Hour(time)

参数

参数 描述
time 必需。任何可表示时间的表达式。

实例

实例 1

<script type="text/vbscript">

document.write(Hour("13:45"))

</script>

以上实例输出结果：

13

尝试一下 »

实例 2

<script type="text/vbscript">

document.write(Hour(Now()))

</script>

以上实例输出结果：

document.write(Hour(Now()))

尝试一下 »
VBScript 参考手册 完整的 VBScript 参考手册

VBScript FormatDateTime 函数

VBScript FormatDateTime 函数返回一个格式化为日期或时间的表达式。 

VBScript 参考手册 完整的 VBScript 参考手册

FormatDateTime 函数格式化并返回一个有效的日期或时间的表达式。

语法

FormatDateTime(date,format)

参数

参数 描述
date 必需。任何有效的日期表达式（比如 Date() 或者 Now()）。
format 可选。规定所使用的日期/时间格式的格式值。

可采用下面的值：

  • 0 = vbGeneralDate - 默认。返回日期：mm/dd/yy 及如果指定时间：hh:mm:ss PM/AM。
  • 1 = vbLongDate - 返回日期：weekday, monthname, year
  • 2 = vbShortDate - 返回日期：mm/dd/yy
  • 3 = vbLongTime - 返回时间：hh:mm:ss PM/AM
  • 4 = vbShortTime - 返回时间：hh:mm

实例

实例

用不同的格式显示日期：

<script type="text/vbscript">

d=CDate("2010-02-16 13:45")
document.write(FormatDateTime(d) & "<br />")
document.write(FormatDateTime(d,1) & "<br />")
document.write(FormatDateTime(d,2) & "<br />")
document.write(FormatDateTime(d,3) & "<br />")
document.write(FormatDateTime(d,4) & "<br />")

</script>

以上实例输出结果：

2/16/2010 1:45:00 PM
Tuesday, February 16, 2010
2/16/2010
1:45:00 PM
13:45

尝试一下 »

VBScript 参考手册 完整的 VBScript 参考手册

VBScript Day 函数

VBScript Day 函数用于返回日期。

VBScript 参考手册 完整的 VBScript 参考手册

Day 函数返回介于 1 到 31 之间的一个代表月的天数的数字。

语法

Day(date)

参数

参数 描述
date 必需。表示日期的任何表达式。

实例

实例

<script type="text/vbscript">

document.write(Day("2010-02-16"))

</script>

以上实例输出结果：

16

尝试一下 »

VBScript 参考手册 完整的 VBScript 参考手册

VBScript DateValue 函数

VBScript DateValue 函数返回 Date 子类型的 Variant。

VBScript 参考手册 完整的 VBScript 参考手册

DateValue 函数把字符串转换为 Date。

注意：如果日期中的年份部分被省略，那么函数会使用来自计算机系统日期的当前年份。

注意：如果 date 参数含有时间信息，那么时间信息不会被返回。如果日期中含有无效的时间信息，那么会发生 run-time 错误。

语法

DateValue(date)

参数

参数 描述
date 必需。一个介于 100 年 1 月 1 日到 9999 年 12 月 31 日的日期，或者任何可表示日期、时间或日期时间兼有的表达式。

实例

实例

<script type="text/vbscript">

document.write(DateValue("31-Jan-10"))
document.write("<br />")
document.write(DateValue("31-Jan"))

</script>

以上实例输出结果：

1/31/2010
1/31/2010

尝试一下 »

VBScript 参考手册 完整的 VBScript 参考手册

VBScript DateSerial 函数

VBScript DateSerial 函数对于指定的年、月、日，返回 Date 子类型的 Variant。

VBScript 参考手册 完整的 VBScript 参考手册

DateSerial 函数返回指定的年、月、日的子类型 Date 的 Variant 。

语法

DateSerial(year,month,day)

参数

参数 描述
year 必需。介于 100 到 9999 的数字，或数值表达式。介于 0 到 99 的值被视为 1900–1999。对于所有其他的 year 参数，请使用完整的 4 位年份。
month 必需的。任何数值表达式。
day 必需的。任何数值表达式。

实例

实例 1

<script type="text/vbscript">

document.write(DateSerial(2010,2,3))

</script>

以上实例输出结果：

2/3/2010

尝试一下 »

实例 2

减去 10 天：

<script type="text/vbscript">

document.write(DateSerial(2010,2,3-10))

</script>

以上实例输出结果：

1/24/2010

尝试一下 »

VBScript 参考手册 完整的 VBScript 参考手册

VBScript 教程

VBScript 全称为 Visual Basic Script。

VBScript 是微软公司出品的脚本语言。

VBScript 是ASP (Active Server Pages)默认使用的脚本语言。

你可以在 Internet Explorer 尝试使用 VBScript 。

VBScript 编辑器

VBScript 是一个动态脚本语言。

Internet Explorer 支持 VBScript. 所以你可以在IE浏览器中执行VBScript， 通过我们的 VBScript 在线实例，你可以查看实例的运行结果：

实例(只能在Internet Explorer运行)

<html>
<body>

<script type="text/vbscript">
document.write("This is my first VBScript!")
</script>

</body>
</html>

尝试一下 »

点击 "尝试一下" 按钮查看运行结果。

什么是 VBScript?

  • VBScript 是一种脚本语言
  • 脚本语言是一种轻量级的编程语言
  • VBScript 是微软的编程语言 Visual Basic 的轻量级的版本

VBScript 实例

通过实例进行学习。使用我们的编辑器，你可以编辑源代码，然后单击 "尝试一下" 按钮来查看结果。

在线实例！

VBScript 参考手册

在本站中你可以找到完整的 VBScript 参考手册。

VBScript 参考手册

学习之前，您需要具备的基础知识：

在继续学习之前，您应该对下面的知识有基本的了解：

  • WWW, HTML 以及网站建设的基础知识

如果您希望首先学习以上的项目，请访问我们的首页。

提示：目前只有 Internet Explorer 支持 VBScript，其他浏览器不支持，但是因为 IE 浏览器的广泛使用，相应的 VBScript 的应用也不容忽视。

什么是VBScript?

  • VBScript 是一种脚本语言
  • 脚本语言是一种轻量级的编程语言
  • VBScript 是微软的编程语言 Visual Basic 的轻量级的版本

它如何工作？

当VBScript 被插入一个 HTML 文档后，因特网浏览器会读取这个文档，并对 VBScript 进行解释。VBScript 可能会立即执行，也可能在之后的事件发生时执行。

在下一节内容中，我们将开始学习如何使用 VBScript！ 

VBScript 用法

HTML <script> 标签被用来向 HTML 中插入 VBScript。

HTML 中的 VBScript

如需在 HTML 中插入 VBScript，脚本必须写在标准的 <script> 和 </script> 标签之间。

在 <script> 标签中，请使用 type 属性来定义脚本语言 "text/vbscript"：

<html>
<body>
<script type="text/vbscript">
...
</script>
</body>
</html>

IE 将解释和执行 <script> 和 </script> 之间的 VBScript 代码。

lamp VBScript 不应该被用作客户端脚本语言！
在这里，我们使用仅适用于 IE 的 VBScript 的用于学习。

VBScript 输出

当 VBScript 被用在 Web 服务器上的 ASP 页面时，语句 response.write() 产生输出。

当我们使用 Internet Explorer 来测试 VBScript，我们使用 document.write() 来产生输出：

实例（仅适用于 Internet Explorer）

<html>
<body>
<script type="text/vbscript">
document.write("Hello World!")
</script>
</body>
</html>

尝试一下 »

在上面的实例中，浏览器输出 "Hello World!" 到 HTML 页面。

VBScript 变量

变量是一种使用方便的占位符，是存储信息的"容器"。

实例

尝试一下 - 实例（只适用于 IE）

创建和改变变量
如何创建一个变量，并为它赋值，然后再改变它的值。

在一段文本中插入变量值
如何在一段文本中插入变量值。

创建数组
数组用来存储一系列相关的数据项。本例演示如何创建一个存储名字的数组。

还记得在学校里学过的代数吗？

还记得在学校里学过的代数吗？x=5，y=6，z=x+y

还记得吗？一个字母（比如 x）可以保存一个值（比如 5)，并且可以使用上面的信息计算出 z 的值是 11。

这些字母称为变量，变量可用于保存值（x=5）或表达式（z=x+y）。

VBScript 变量

与代数相比，VBScript 变量用于保存值或表达式。

变量可以有一个短的名称，如 x，或一个更具描述性的名称，如 carname。

VBScript 变量名称的规则：

  • 必须以字母开头
  • 不能包含点号（.）
  • 不能超过 255 个字符
  • 在被声明的作用域内必须唯一

在 VBScript 中，所有的变量都与类型 variant 相关，可存储不同类型的数据。

声明（创建）VBScript 变量

在 VBScript 创建变量通常指"声明"变量。

您可以通过 Dim、Public 或 Private 语句声明 VBScript 变量。如下所示：

Dim x
Dim carname

现在您已经创建了两个变量。变量的名称是 "x" 和 "carname"。

您也可以在脚本中通过使用它的名称来声明变量。如下所示：

carname="Volvo"

现在您又创建了一个变量。变量的名称是 "carname"。然后，这个做法不是一个好习惯，因为您可能会在脚本中拼错变量名，那样可能会在脚本运行时引起奇怪的结果。

如果您拼错变量名，比如 "carname" 变量错拼为 "carnime"，脚本会自动创建一个名为 "carnime" 的新变量。为了防止脚本这样做，您可以使用 Option Explicit 语句。如果您使用这个语句，就必须使用 dim、public 或 private 语句来声明所有的变量。

把 Option Explicit 语句放置于脚本的顶端，如下所示：

Option Explicit
Dim carname
carname=some value

为变量赋值

您可以为某个变量赋值，如下所示：

carname="Volvo"
x=10

变量名是在表达式的左侧，需要赋给变量的值在表达式的右侧。现在变量 "carname" 的值是 "Volvo"，变量 "x" 的值是 "10"。

变量的生存期

变量的生存期指的是它可以存在的时长。

当您在一个子程序中声明变量时，变量只能在此程序内进行访问。当退出此程序时，变量也会失效。这样的变量称为本地变量。您可以在不同的子程序中使用名称相同的本地变量，因为每个变量只能在声明它的程序内得到识别。

如果您在子程序以外声明了一个变量，在您的页面上的所有子程序都可以访问它。这类变量的生存期始于它们被声明，止于页面被关闭。

VBScript 数组变量

数组变量用于在一个单一的变量中存储多个值。

在下面的实例中，声明了一个包含 3 个元素的数组：

Dim names(2)

括号内显示的数字是 2。数组的下标以 0 开始，因此该数组包含 3 个元素。这是容量固定的数组。您可以为数组的每个元素分配数据，如下所示：

names(0)="Tove"
names(1)="Jani"
names(2)="Stale"

同样地，通过使用特定数组元素的下标号，您可以取回任何元素的值。如下所示：

mother=names(0)

您可以在一个数组中使用多达 60 个维数。声明多维数组的方法是在括号中用逗号来分隔数字。这里，我们声明了一个包含 5 行 7 列的 2 维数组：

Dim table(4,6)

为二位数组赋值：

实例（仅适用于 IE）

<html>
<body>

<script type="text/vbscript">
Dim x(2,2)
x(0,0)="Volvo"
x(0,1)="BMW"
x(0,2)="Ford"
x(1,0)="Apple"
x(1,1)="Orange"
x(1,2)="Banana"
x(2,0)="Coke"
x(2,1)="Pepsi"
x(2,2)="Sprite"
for i=0 to 2
document.write("<p>")
for j=0 to 2
document.write(x(i,j) & "<br />")
next
document.write("</p>")
next
</script>

</body>
</html>

尝试一下 »
认识了 VBScript 变量，在接下来的一节内容中，我们一起来学习 VBScript 程序的使用！

VBScript 程序

VBScript 可使用两种程序：

  • 子程序
  • 函数程序

VBScript 子程序

子程序是将一段具有某种特定功能的语句区块单句撰写成一个独立的程序，给予特定的名称。

子程序：

  • 是一系列的语句，被封装在 Sub 和 End Sub 语句内
  • 可执行某些操作，但不会返回值
  • 可带有参数
Sub mysub()
some statements
End Sub

或者

Sub mysub(argument1,argument2)
some statements
End Sub

实例（仅适用于 IE）

Sub mysub()
document.write("I was written by a sub procedure")
End Sub

尝试一下 »

VBScript 函数程序

函数程序：

  • 是一系列的语句，被封装在 Function 和 End Function 语句内
  • 可执行某些操作，并会返回值
  • 可带有通过程序调用来向其传递的参数。
  • 如果没有参数，必须带有空的圆括号 ()
  • 通过向函数程序名赋值的方式，可使其返回值
Function myfunction()
some statements
myfunction=some value
End Function

或者

Function myfunction(argument1,argument2)
some statements
myfunction=some value
End Function

实例（仅适用于 IE）

function myfunction()
myfunction=Date()
end function

尝试一下 »

调用程序

这个简单的函数程序被调用来计算两个参数的和：

实例（仅适用于 IE）

Function myfunction(a,b)
myfunction=a+b
End Function

document.write(myfunction(5,9))

尝试一下 »

函数 "myfunction" 将返回参数 "a" 和参数 "b" 的和。这里返回的是 14。

当您调用程序时，您可以使用 Call 语句，如下所示：

Call MyProc(argument)

或者，您可以省略 Call 语句，如下所示：

MyProc argument

VBScript 条件语句

VBScript 条件语句允许你控制脚本的流程，可以编写进行判断和重复操作的 VBScript 代码。

条件语句

条件语句用于根据不同的情况执行不同的操作。

在 VBScript 中，我们可以使用四种条件语句：

  • If stat语句ement - 假如您希望在条件为 true 时执行一系列的代码，可以使用这个语句
  • If...Then...Else 语句 - 假如您希望执行两套代码其中之一，可以使用这个语句
  • If...Then...ElseIf 语句 - 假如您希望选择多套代码之一来执行，可以使用这个语句
  • Select Case 语句 - 假如您希望选择多套代码之一来执行，可以使用这个语句

If...Then...Else

在下面的情况中，您可以使用 If...Then...Else 语句：

  • 在条件为 true 时，执行某段代码
  • 选择两段代码之一来执行

如果在条件为 true 时只执行一条语句，可以把代码写为一行：

If i=10 Then alert("Hello")

在上面的代码中，没有 ..Else.. 语句。我们仅仅让代码在条件为 true 时（当 i=10 时）执行一项操作。

如果在条件为 true 时执行不止一条语句，那么就必须在一行写一条语句，然后使用关键词 "End If" 来结束这个语句：

If i=10 Then
alert("Hello")
i = i+1
End If

在上面的代码中，同样没有 ..Else.. 语句。我们仅仅让代码在条件为 true 时执行了多项操作。

假如您想要在条件为 true 时执行某条语句，并在条件不为 true 时执行另一条语句，就必须添加关键词 "Else"：

实例（仅适用于 IE）

<script type="text/vbscript">
i=hour(time)
If i < 10 Then
document.write("Good morning!")
Else
document.write("Have a nice day!")
End If
</script>

尝试一下 »

在上面的代码中，当条件为 true 时会执行第一段代码，当条件不成立时执行第二段代码（当 i 大于 10 时）。

If...Then...ElseIf

如果您想要选择多套代码之一来执行，可以使用 If...Then...ElseIf 语句：

实例（仅适用于 IE）

<script type="text/vbscript">
i=hour(time)
If i = 10 Then
document.write("Just started...!")
ElseIf i = 11 Then
document.write("Hungry!")
ElseIf i = 12 Then
document.write("Ah, lunch-time!")
ElseIf i = 16 Then
document.write("Time to go home!")
Else
document.write("Unknown")
End If
</script>

尝试一下 »

Select Case

如果您想要选择多套代码之一来执行，可以使用 "Select Case" 语句：

实例（仅适用于 IE）

<script type="text/vbscript">
d=weekday(date)
Select Case d
Case 1
document.write("Sleepy Sunday")
Case 2
document.write("Monday again!")
Case 3
document.write("Just Tuesday!")
Case 4
document.write("Wednesday!")
Case 5
document.write("Thursday...")
Case 6
document.write("Finally Friday!")
Case else
document.write("Super Saturday!!!!")
End Select
</script>

尝试一下 »

以上代码的工作原理：首先，我们需要一个简单的表达式（常常是一个变量），并且这个表达式会被做一次求值运算。然后，表达式的值会与每个 Case 中的值作比较。如果匹配，被匹配的 Case 所对应的代码会被执行。

在本节内容中，你已经学习了 VBScript 条件语句，在下一节内容中，你将接触 VBScript 循环语句，这两种语句常常配合使用！

VBScript 循环

VBScript 循环用于重复执行一组语句，本节介绍了四种循环语句。

循环语句

循环语句用于运行相同的代码块指定的次数。Looping statements are used to run the same block of code a specified number of times.

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

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

For...Next 循环

请使用 For...Next 语句运行一段代码指定的次数。

For 语句规定计数变量（i）以及它的初始值和结束值。Next 语句会以 1 作为步进值来递增变量（i）。

实例

<html>
<body>

<script type="text/vbscript">
For i = 0 To 5
document.write("The number is " & i & "<br />")
Next
</script>

</body>
</html>

尝试一下 »

Step 关键词

通过 Step 关键词，您可以规定计数变量递增或递减的步进值。

在下面的实例中，计数变量（i）每次循环的递增步进值为 2。

For i=2 To 10 Step 2
some code
Next

如果要递减计数变量，您就必须使用负的 Step 值。并且必须规定小于开始值的结束值。

在下面的实例中，计数变量（i）每次循环的递减步进值为 2。

For i=10 To 2 Step -2
some code
Next

退出 For...Next

您可以通过 Exit For 关键词退出 For...Next 语句。

For i=1 To 10
If i=5 Then Exit For
some code
Next

For Each...Next 循环

For Each...Next 针对集合中的每个项目或者数组中的每个元素来重复运行某段代码。

实例

<html>
<body>

<script type="text/vbscript">
Dim cars(2)
cars(0)="Volvo"
cars(1)="Saab"
cars(2)="BMW"

For Each x In cars
document.write(x & "<br />")
Next
</script>

</body>
</html>

尝试一下 »

Do...Loop

如果你不知道重复多少次，可以使用 Do...Loop 语句。

Do...Loop 语句重复执行某段代码直到条件是 true 或条件变成 true。

重复执行代码直到条件是 true

您可以使用 While 关键字来检查 Do... Loop 语句的条件。

Do While i>10
some code
Loop

如果 i 等于 9，上述循环内的代码将终止执行。

Do
some code
Loop While i>10

这个循环内的代码将被执行至少一次，即使 i 小于 10。

重复执行代码直到条件变成 true

您可以使用 Until 关键字来检查 Do...Loop 语句的条件。

Do Until i=10
some code
Loop

如果 i 等于 10，上述循环内的代码将终止执行。

Do
some code
Loop Until i=10

这个循环内的代码将被执行至少一次，即使 i 等于 10。

退出 Do...Loop

您可以通过 Exit Do 关键词退出 Do...Loop 语句。

Do Until i=10
i=i-1
If i<10 Then Exit Do
Loop

这个循环内的代码，只要 i 不为 10 且 i 大于 10 时都将被执行。

实例s

更多实例（仅适用于 IE）

循环遍历标题
如何循环遍历 html 中的六个标题。

Do...While loop
如何做一个简单的 Do...While 循环。

以上就是 VBScript 循环语句的全部内容了，现在你可以自己动手通过代码熟悉该语句的使用啦！

您已经学习了 VBScript，下一步呢？

VBScript 总结

本教程已经向您讲解了 VBScript。

您已经学习了有关变量和函数，以及如何如何根据不同的情况运行不同的脚本。

如需了解更多有关 VBScript 的信息，请参阅我们的 VBScript 实例和我们的 VBScript 参考手册。

现在您已经学习了 VBScript，下一步呢？

下一步应该是学习 ASP。

HTML 文件中的脚本是在客户端（在浏览器）执行的，ASP 文件中的脚本是在服务器上执行的。

通过 ASP，您可以动态地编辑、改变或添加网页的任何内容，响应 HTML 表单提交的数据，访问任何数据或数据库并向浏览器返回结果，为不同的用户定制更有用的页面等等。

由于 ASP 文件被作为纯粹的 HTML 返回浏览器，，因此我们可以在任何浏览器中查看 ASP。

如果您想要学习更多有关 ASP 的知识，请访问我们的 ASP 教程。

在 VB 函数章节中我们将向你详细介绍与 VB 相关的函数！

VBScript 函数

在 VBScript 中存在许多函数，本节将为你介绍它们！

本页列出了所有内建的 VBScript 函数，主要分为以下几类：

Date/Time 函数

函数 描述
CDate 把有效的日期和时间表达式转换为日期（Date）类型。
Date 返回当前的系统日期。
DateAdd 返回已添加指定时间间隔的日期。
DateDiff 返回两个日期之间的时间间隔数。
DatePart 返回给定日期的指定部分。
DateSerial 返回指定年、月、日的日期。
DateValue 返回日期。
Day 返回代表一月中的一天的数字（介于并包括 1 到 31 之间）。
FormatDateTime 返回格式化为日期或时间的表达式。
Hour 返回代表一天中的小时的数字（介于并包括 0 到 23 之间）。
IsDate 返回指示计算表达式能否转换为日期的布尔值。
Minute 返回一个数字，代表小时的分钟（介于并包括 0 到 59 之间）。
Month 返回一个数字，代表年的月份（介于并包括 1 到 12 之间）。
MonthName 返回指定月份的名称。
Now 返回当前的系统日期和时间。
Second 返回一个数字，代表分钟的秒（介于并包括 0 到 59 之间）。
Time 返回当前的系统时间。
Timer 返回自 12:00 AM 以来的秒数。
TimeSerial 返回特定小时、分钟和秒的时间。
TimeValue 返回时间。
Weekday 返回一个数字，代表一周的天数（介于并包括 1 到 7 之间）。
WeekdayName 返回一周中指定的一天的星期名。
Year 返回一个数字，代表年份。

Conversion 函数

 Top
函数 描述
Asc 把字符串中的首字母转换为 ANSI 字符代码。
CBool 把表达式转换为布尔（Boolean）类型。
CByte 把表达式转换为字节（Byte）类型。
CCur 把表达式转换为货币（Currency）类型。
CDate 把有效的日期和时间表达式转换为日期（Date）类型。
CDbl 把表达式转换为双精度（Double）类型。
Chr 把指定的 ANSI 字符代码转换为字符。
CInt 把表达式转换为整数（Integer）类型。
CLng 把表达式转换为长整型（Long）类型。
CSng 把表达式转换为单精度（Single）类型。
CStr 把表达式转换为字符串（String）类型。
Hex 返回指定数字的十六进制值。
Oct 返回指定数字的八进制值。

Format 函数

 Top
函数 描述
FormatCurrency 返回作为货币值进行格式化的表达式。
FormatDateTime 返回作为日期或时间进行格式化的表达式。
FormatNumber 返回作为数字进行格式化的表达式。
FormatPercent 返回作为百分数进行格式化的表达式。

Math 函数

 Top
函数 描述
Abs 返回指定数字的绝对值。
Atn 返回指定数字的反正切。
Cos 返回指定数字（角度）的余弦。
Exp 返回 e（自然对数的底）的幂次方。
Hex 返回指定数字的十六进制值。
Int 返回指定数字的整数部分。
Fix 返回指定数字的整数部分。
Log 返回指定数字的自然对数。
Oct 返回指定数字的八进制值。
Rnd 返回小于1但大于或等于0的一个随机数。
Sgn 返回可指示指定数字的符号的一个整数。
Sin 返回指定数字（角度）的正弦。
Sqr 返回指定数字的平方根。
Tan 返回指定数字（角度）的正切。

Array 函数

 Top
函数 描述
Array 返回一个包含数组的变量。
Filter 返回下标从零开始的数组，其中包含基于特定过滤条件的字符串数组的子集。
IsArray 返回一个指示指定的变量是否为数组的布尔值。
Join 返回一个由数组中若干子字符串组成的字符串。
LBound 返回指示数组维数的最小下标。
Split 返回下标从零开始的一维数组，包含指定数量的子字符串。
UBound 返回指示数组维数的最大下标。

String 函数

 Top
函数 描述
InStr 返回字符串在另一字符串中首次出现的位置。搜索从字符串的第一个字符开始。
InStrRev 返回字符串在另一字符串中首次出现的位置。搜索从字符串的最末字符开始。
LCase 把指定字符串转换为小写。
Left 从字符串的左侧返回指定数量的字符。
Len 返回字符串中的字符数量。
LTrim 删除字符串左侧的空格。
RTrim 删除字符串右侧的空格。
Trim 删除字符串左侧和右侧的空格。
Mid 从字符串中返回指定数量的字符。
Replace 使用另一个字符串替换字符串的指定部分指定的次数。
Right 从字符串的右侧返回指定数量的字符。
Space 返回由指定数量的空格组成的字符串。
StrComp 比较两个字符串，返回代表比较结果的一个值。
String 返回包含指定长度的重复字符的字符串。
StrReverse 反转字符串。
UCase 把指定的字符串转换为大写。

其他函数

 Top
函数 描述
CreateObject 创建指定类型的对象。
Eval 计算表达式，并返回结果。
GetLocale 返回当前的 locale ID。
GetObject 返回对文件中 automation 对象的引用。
GetRef 允许您把 VBScript 子程序连接到页面上的一个 DHTML 事件。
InputBox 显示对话框，用户可在其中输入文本，并/或点击按钮，然后返回内容。
IsEmpty 返回一个布尔值，指示指定的变量是否已被初始化。
IsNull 返回一个布尔值，指示指定的表达式是否包含无效数据（Null）。
IsNumeric 返回一个布尔值，指示指定的表达式是否可作为数字来计算。
IsObject 返回一个布尔值，指示指定的表达式是否是一个 automation 对象。
LoadPicture 返回一个图片对象。仅用于 32 位平台。
MsgBox 显示消息框，等待用户点击按钮，并返回指示用户点击了哪个按钮的值。
RGB 返回一个表示 RGB 颜色值的数字。
Round 对数字进行四舍五入。
ScriptEngine 返回使用中的脚本语言。
ScriptEngineBuildVersion 返回使用中的脚本引擎的内部版本号。
ScriptEngineMajorVersion 返回使用中的脚本引擎的主版本号。
ScriptEngineMinorVersion 返回使用中的脚本引擎的次版本号。
SetLocale 设置 locale ID，并返回之前的 locale ID。
TypeName 返回指定变量的子类型。
VarType 返回指示变量子类型的值。

VBScript 关键字

本节介绍了 VBScript 中的一些常用的关键字。

VBScript 关键字

关键字 描述
Empty

用于指示一个未初始化的变量值。当第一次创建变量时或变量值显式设置为空时，变量值未初始化且变量为被赋值。

实例：
Dim x '变量 x 未初始化！
x="ff" '变量 x 不再是未初始化
x=Empty '变量 x 未初始化！

注意：这和 Null 不一样！！
IsEmpty

用于测试一个变量是否未初始化。

实例：If (IsEmpty(x)) '变量 x 未初始化？
Nothing 用于指示一个未初始化的对象值，或者把对象变量从对象分离用于释放系统资源。

实例: Set myObject=Nothing
Is Nothing 用于测试一个值是否是初始化的对象。

实例：If (myObject Is Nothing) '它是否未设置？

注意：如果您把一个值与 Nothing 作比较，您将不会得到正确的结果！实例: If (myObject = Nothing) '总是错误！
Null 用于指示变量不包含有效数据。

Null 把值设置为"无效"，Empty 则表示值"未设置"。

注意：这不同于 Empty 或 Nothing！！

实例：x=Null 'x 不包含有效数据
IsNull 用于测试一个值是否包含无效数据。

实例: if (IsNull(x)) 'x 是无效的？
True 用于指示一个布尔条件是正确的（True 为 -1）
False 用于指示一个布尔条件是不正确的（False 为 0）

VBScript Round 函数

在使用 VBScript 的时候，如果需要对数字进行四舍五入，那么请使用 Round 函数！

VBScript 参考手册 完整的 VBScript 参考手册

Round 函数对数字进行四舍五入。

语法

Round(expression[,numdecimalplaces])

参数 描述
expression 必需。需要被四舍五入的数值表达式。
numdecimalplaces 可选。规定对小数点右边的多少位进行四舍五入。默认是 0。

实例

实例 1

<script type="text/vbscript">

document.write(Round(24.13278) & "<br />")
document.write(Round(24.75122))

</script>

以上实例输出结果：

24
25

尝试一下 »

实例 2

如何对一个数字进行四舍五入，保留 2 位小数：

<script type="text/vbscript">

document.write(Round(24.13278,2))

</script>

以上实例输出结果：

24.13

尝试一下 »
VBScript 参考手册 完整的 VBScript 参考手册

VBScript RGB 函数

在 VBScript 如果需要对 RGB 颜色值进行表示，就使用 RGB 函数！

VBScript 参考手册 完整的 VBScript 参考手册

RGB 函数返回表示 RGB 颜色值的数字。

语法

RGB(red,green,blue)

参数 描述
red 必需。介于 0 - 255 之间（且包括）的数字，代表颜色的红色部分。
green 必需。介于 0 - 255 之间（且包括）的数字，代表颜色的绿色部分。
blue 必需。介于 0 - 255 之间（且包括）的数字，代表颜色的蓝色部分。

实例

实例 1

<script type="text/vbscript">

document.write(rgb(255,0,0))

</script>

以上实例输出结果：

255

尝试一下 »

实例 2

<script type="text/vbscript">

document.write(rgb(255,30,30))

</script>

以上实例输出结果：

1974015

尝试一下 »
VBScript 参考手册 完整的 VBScript 参考手册

相关文章

颜色值

VBScript MsgBox 函数

MsgBox 函数的功能是弹出一个对话框，等待用户单击按钮，并返回一个 Integer 值表示用户单击了哪一个按钮。

VBScript 参考手册 完整的 VBScript 参考手册

MsgBox 函数显示一个消息框，等待用户点击某个按钮，然后返回指示被点击按钮的值。

MsgBox 函数返回下面的值：

  • 1 = vbOK - OK 按钮被点击
  • 2 = vbCancel - Cancel 按钮被点击
  • 3 = vbAbort - Abort 按钮被点击
  • 4 = vbRetry - Retry 按钮被点击
  • 5 = vbIgnore - Ignore 按钮被点击
  • 6 = vbYes - Yes 按钮被点击
  • 7 = vbNo - No 按钮被点击

注意：当 helpfile 和 context 参数均被规定后，用户可按 F1 键来查看帮助。

提示：请参阅 InputBox 函数。

语法

MsgBox(prompt[,buttons][,title][,helpfile,context])

参数 描述
prompt 必需。作为消息显示在对话框中的字符串表达式。prompt 的最大长度大约是 1024 个字符，这取决于所使用的字符的宽度。如果 prompt 中包含多个行，则可在各行之间用回车符（Chr(13)）、换行符（Chr(10)）或回车换行符的组合（Chr(13) & Chr(10)）分隔各行。
buttons 可选，是表示指定显示按钮的数目和类型、使用的图标样式，默认按钮的标识以及消息框样式的数值的总和。默认值为 0。
  • 0 = vbOKOnly - 只显示 OK 按钮
  • 1 = vbOKCancel - 显示 OK 和 Cancel 按钮
  • 2 = vbAbortRetryIgnore - 显示 Abort、Retry 和 Ignore 按钮
  • 3 = vbYesNoCancel - 显示 Yes、No 和 Cancel 按钮
  • 4 = vbYesNo - 显示 Yes 和 No 按钮
  • 5 = vbRetryCancel - 显示 Retry 和 Cancel 按钮
  • 16 = vbCritical - 显示临界信息图标
  • 32 = vbQuestion - 显示警告查询图标
  • 48 = vbExclamation - 显示警告消息图标
  • 64 = vbInformation - 显示信息消息图标
  • 0 = vbDefaultButton1 - 第一个按钮为默认按钮
  • 256 = vbDefaultButton2 - 第二个按钮为默认按钮
  • 512 = vbDefaultButton3 - 第三个按钮为默认按钮
  • 768 = vbDefaultButton4 - 第四个按钮为默认按钮
  • 0 = vbApplicationModal - 应用程序模式（用户必须响应消息框才能继续在当前应用程序中工作）
  • 4096 = vbSystemModal - 系统模式（在用户响应消息框前，所有应用程序都被挂起）

我们可以把按钮分成四组：第一组值(0-5)用于描述对话框中显示的按钮类型与数目；第二组值(16,32,48,64)用于描述图标的样式；第三组值(0,256,512,768)用于确定默认按钮；而第四组值(0,4096)则决定消息框的样式。在将这些数字相加以生成 buttons 参数值时，只能从每组值中取用一个数字。
title 可选。消息框的标题。默认是应用程序的名称。
helpfile 可选。字符串表达式，用于标识为对话框提供上下文相关帮助的帮助文件。必须与 context 参数一起使用。
context 可选。数值表达式，用于标识由帮助文件的作者指定给某个帮助主题的上下文编号。必须与 helpfile 参数一起使用。

实例

实例 1

<script type="text/vbscript">

MsgBox("Hello world")

</script>

尝试一下 »

实例 2

带有换行符的消息框：

<script type="text/vbscript">

MsgBox("Hello" & chr(13) & "world")

</script>

尝试一下 »

实例 3

不同的 buttonsets 和不同的图标。返回点击的按钮的值：

<script type="text/vbscript">

x=MsgBox("Hello world",n)
document.getElementById("myDiv").innerHTML="You clicked: " & x

</script>

尝试一下 »

实例 4

带有标题的消息框：

<script type="text/vbscript">

x=MsgBox("Are you a programmer",4,"Please answer")

</script>

尝试一下 »

VBScript 参考手册 完整的 VBScript 参考手册

VBScript LoadPicture 函数

VBScript LoadPicture 函数可以查看本地图片的一些信息。

VBScript 参考手册 完整的 VBScript 参考手册

LoadPicture 函数返回一个图片对象。

可被 LoadPicture 函数识别的图形格式有：

  • bitmap 文件 (.bmp)
  • icon 文件 (.ico)
  • run-length encoded 文件 (.rle)
  • metafile 文件 (.wmf)
  • enhanced metafiles (.emf)
  • GIF 文件 (.gif)
  • JPEG 文件 (.jpg)

注意：该函数仅用于 32 位平台。

语法

LoadPicture(picturename)

参数 描述
picturename 必需。需被载入的图片文件的文件名。

VBScript 参考手册 完整的 VBScript 参考手册

VBScript VarType 函数

VBScript VarType 函数返回标识变体子类型的数值。

VBScript 参考手册 完整的 VBScript 参考手册

VarType 函数返回指示指定变量的子类型的值。

VarType 函数返回下说面的值：

  • 0 = vbEmpty - 表示空（未初始化）
  • 1 = vbNull - 表示 Null（无有效数据）
  • 2 = vbInteger - 表示一个整数
  • 3 = vbLong - 表示一个长整数
  • 4 = vbSingle - 表示一个单精度浮点数
  • 5 = vbDouble - 表示一个双精度浮点数
  • 6 = vbCurrency - 表示货币
  • 7 = vbDate - 表示日期
  • 8 = vbString - 表示一个字符串
  • 9 = vbObject - 表示一个 automation 对象
  • 10 = vbError - 表示一个错误
  • 11 = vbBoolean - 表示一个布尔值
  • 12 = vbVariant - 表示 Variant（仅用于变量数组）
  • 13 = vbDataObject - 表示一个数据访问对象
  • 17 = vbByte - 表示一个字节
  • 8192 = vbArray - 表示一个数组

注意：假如变量是数组，则 VarType() 会返回 8192 + VarType(array_element)。举例：整数数组的 VarType() 会返回 8192 + 2 = 8194。

语法

VarType(varname)

参数 描述
varname 必需。变量的名称。

实例

实例

<script type="text/vbscript">

x="Hello World!"
document.write(VarType(x) & "<br />")
x=4
document.write(VarType(x) & "<br />")
x=4.675
document.write(VarType(x) & "<br />")
x=Null
document.write(VarType(x) & "<br />")
x=Empty
document.write(VarType(x) & "<br />")
x=True
document.write(VarType(x))

</script>

以上实例输出结果：

8
2
5
1
0
11

尝试一下 »
VBScript 参考手册 完整的 VBScript 参考手册

VBScript IsObject 函数

VBScript IsObject 函数返回 Boolean 值，表示表达式是否引用了有效的“自动”对象。

VBScript 参考手册 完整的 VBScript 参考手册

IsObject 函数返回一个布尔值，指示指定的表达式是否是 automation 对象。如果表达式是 automation 对象则返回 True，否则返回 False。

语法

IsObject(expression)

参数 描述
expression 必需。一个表达式。

实例

实例 1

<script type="text/vbscript">

Set x=document
document.write(IsObject(x))

</script>

以上实例输出结果：

True

尝试一下 »

实例 2

<script type="text/vbscript">

x="Peter"
document.write(IsObject(x))

</script>

以上实例输出结果：

False

尝试一下 »
VBScript 参考手册 完整的 VBScript 参考手册

VBScript TypeName 函数

VBScript TypeName 函数返回一字符串，它提供了关于变量的变体子类型信息。

VBScript 参考手册 完整的 VBScript 参考手册

TypeName 函数返回指定变量的子类型。

TypeName 函数返回下面的值：

  • Byte - 表示一个字节值
  • Integer - 表示一个整型值
  • Long - 表示一个长整型值
  • Single - 表示一个单精度浮点值
  • Double - 表示一个双精度浮点值
  • Currency - 表示一个货币值
  • Decimal - 表示一个十进制值
  • Date - 表示一个日期或时间值
  • String - 表示一个字符串值
  • Boolean - 表示一个布尔值，True 或 False
  • Empty - 表示一个未初始化变量
  • Null - 表示无有效数据
  • <object type> - 表示实际对象类型名
  • Object - 表示一般对象
  • Unknown - 表示未知对象类型
  • Nothing - 表示还未引用对象实例的对象变量
  • Error - 表示一个错误

语法

TypeName(varname)

参数 描述
varname 必需。变量的名称。

实例

实例

<script type="text/vbscript">

x="Hello World!"
document.write(TypeName(x) & "<br />")
x=4
document.write(TypeName(x) & "<br />")
x=4.675
document.write(TypeName(x) & "<br />")
x=Null
document.write(TypeName(x) & "<br />")
x=Empty
document.write(TypeName(x) & "<br />")
x=True
document.write(TypeName(x))

</script>

以上实例输出结果：

String
Integer
Double
Null
Empty
Boolean

尝试一下 »
VBScript 参考手册 完整的 VBScript 参考手册

VBScript IsNumeric 函数

VBScript IsNumeric 函数返回 Boolean 值，表示表达式能否当作一个数，并且使用该数进行计算。 

VBScript 参考手册 完整的 VBScript 参考手册

IsNumeric 函数返回一个布尔值，指示指定的表达式是否可作为数字来计算。如果表达式作为数字来计算则返回 True ，否则返回 False。

注意：如果表达式是一个日期，IsNumeric 函数将返回 False。

语法

IsNumeric(expression)

参数 描述
expression 必需。一个表达式。

实例

实例

<script type="text/vbscript">
Dim x
x=10
document.write(IsNumeric(x) & "<br />")
x=Empty
document.write(IsNumeric(x) & "<br />")
x=Null
document.write(IsNumeric(x) & "<br />")
x="10"
document.write(IsNumeric(x) & "<br />")
x="911 Help"
document.write(IsNumeric(x))
</script>

以上实例输出结果：

True
True
False
True
False

尝试一下 »
VBScript 参考手册 完整的 VBScript 参考手册

VBScript SetLocale 函数

在 VBS 文档中，对于 VBScript SetLocale 函数的描述为设置全球区域设置，并返回以前的区域设置。

VBScript 参考手册 完整的 VBScript 参考手册

SetLocale 函数设置 locale ID，并返回之前的 locale ID。function sets the locale ID and returns the previous locale ID.

locale 是用户参考信息集合，比如语言、国家、地区和文化习俗。locale 决定键盘布局、字母排序顺序、日期、时间、数字与货币格式等等。

提示：请使用 GetLocale 函数来获取本地 ID。

语法

SetLocale(lcid)

参数 描述
lcid 必需。任意一个在 Locale ID 表中的短字符串、十六进制值、十进制值，该值必须唯一标识一个地理区域。如果 lcid 参数被设置为 0，则 locale 将由系统设置。

实例

实例 1（仅适用于 IE）

使用 GetLocale 函数检查当前的本地 ID。设置本地 ID = 2057，并再次检查本地 ID：

<script type="text/vbscript">
document.write(GetLocale() & "<br />")
SetLocale(2057)
document.write(GetLocale())
</script>

以上实例输出结果：

document.write(GetLocale() & " ") SetLocale(2057) document.write(GetLocale())

尝试一下 »

实例 2（仅适用于 IE）

SetLocale 函数还返回之前的 ID：

<script type="text/vbscript">

document.write(SetLocale(1044))

</script>

以上实例输出结果：

document.write(SetLocale(1044)) SetLocale(0)

尝试一下 »

Locale ID 表
Locale 描述 简写 十六进制值 十进制值
Afrikaans af 0x0436 1078
Albanian sq 0x041C 1052
Arabic – United Arab Emirates ar-ae 0x3801 14337
Arabic - Bahrain ar-bh 0x3C01 15361
Arabic - Algeria ar-dz 0x1401 5121
Arabic - Egypt ar-eg 0x0C01 3073
Arabic - Iraq ar-iq 0x0801 2049
Arabic - Jordan ar-jo 0x2C01 11265
Arabic - Kuwait ar-kw 0x3401 13313
Arabic - Lebanon ar-lb 0x3001 12289
Arabic - Libya ar-ly 0x1001 4097
Arabic - Morocco ar-ma 0x1801 6145
Arabic - Oman ar-om 0x2001 8193
Arabic - Qatar ar-qa 0x4001 16385
Arabic - Saudi Arabia ar-sa 0x0401 1025
Arabic - Syria ar-sy 0x2801 10241
Arabic - Tunisia ar-tn 0x1C01 7169
Arabic - Yemen ar-ye 0x2401 9217
Armenian hy 0x042B 1067
Azeri – Latin az-az 0x042C 1068
Azeri – Cyrillic az-az 0x082C 2092
Basque eu 0x042D 1069
Belarusian be 0x0423 1059
Bulgarian bg 0x0402 1026
Catalan ca 0x0403 1027
Chinese - China zh-cn 0x0804 2052
Chinese - Hong Kong S.A.R. zh-hk 0x0C04 3076
Chinese – Macau S.A.R zh-mo 0x1404 5124
Chinese - Singapore zh-sg 0x1004 4100
Chinese - Taiwan zh-tw 0x0404 1028
Croatian hr 0x041A 1050
Czech cs 0x0405 1029
Danish da 0x0406 1030
Dutch – The Netherlands nl-nl 0x0413 1043
Dutch - Belgium nl-be 0x0813 2067
English - Australia en-au 0x0C09 3081
English - Belize en-bz 0x2809 10249
English - Canada en-ca 0x1009 4105
English – Carribbean en-cb 0x2409 9225
English - Ireland en-ie 0x1809 6153
English - Jamaica en-jm 0x2009 8201
English - New Zealand en-nz 0x1409 5129
English – Phillippines en-ph 0x3409 13321
English - South Africa en-za 0x1C09 7177
English - Trinidad en-tt 0x2C09 11273
English - United Kingdom en-gb 0x0809 2057
English - United States en-us 0x0409 1033
Estonian et 0x0425 1061
Farsi fa 0x0429 1065
Finnish fi 0x040B 1035
Faroese fo 0x0438 1080
French - France fr-fr 0x040C 1036
French - Belgium fr-be 0x080C 2060
French - Canada fr-ca 0x0C0C 3084
French - Luxembourg fr-lu 0x140C 5132
French - Switzerland fr-ch 0x100C 4108
Gaelic – Ireland gd-ie 0x083C 2108
Gaelic - Scotland gd 0x043C 1084
German - Germany de-de 0x0407 1031
German - Austria de-at 0x0C07 3079
German - Liechtenstein de-li 0x1407 5127
German - Luxembourg de-lu 0x1007 4103
German - Switzerland de-ch 0x0807 2055
Greek el 0x0408 1032
Hebrew he 0x040D 1037
Hindi hi 0x0439 1081
Hungarian hu 0x040E 1038
Icelandic is 0x040F 1039
Indonesian id 0x0421 1057
Italian - Italy it-it 0x0410 1040
Italian - Switzerland it-ch 0x0810 2064
Japanese ja 0x0411 1041
Korean ko 0x0412 1042
Latvian lv 0x0426 1062
Lithuanian lt 0x0427 1063
FYRO Macedonian mk 0x042F 1071
Malay - Malaysia ms-my 0x043E 1086
Malay – Brunei ms-bn 0x083E 2110
Maltese mt 0x043A 1082
Marathi mr 0x044E 1102
Norwegian - Bokmål no-no 0x0414 1044
Norwegian – Nynorsk no-no 0x0814 2068
Polish pl 0x0415 1045
Portuguese - Portugal pt-pt 0x0816 2070
Portuguese - Brazil pt-br 0x0416 1046
Raeto-Romance rm 0x0417 1047
Romanian - Romania ro 0x0418 1048
Romanian - Moldova ro-mo 0x0818 2072
Russian ru 0x0419 1049
Russian - Moldova ru-mo 0x0819 2073
Sanskrit sa 0x044F 1103
Serbian - Cyrillic sr-sp 0x0C1A 3098
Serbian – Latin sr-sp 0x081A 2074
Setsuana tn 0x0432 1074
Slovenian sl 0x0424 1060
Slovak sk 0x041B 1051
Sorbian sb 0x042E 1070
Spanish - Spain es-es 0x0C0A 1034
Spanish - Argentina es-ar 0x2C0A 11274
Spanish - Bolivia es-bo 0x400A 16394
Spanish - Chile es-cl 0x340A 13322
Spanish - Colombia es-co 0x240A 9226
Spanish - Costa Rica es-cr 0x140A 5130
Spanish - Dominican Republic es-do 0x1C0A 7178
Spanish - Ecuador es-ec 0x300A 12298
Spanish - Guatemala es-gt 0x100A 4106
Spanish - Honduras es-hn 0x480A 18442
Spanish - Mexico es-mx 0x080A 2058
Spanish - Nicaragua es-ni 0x4C0A 19466
Spanish - Panama es-pa 0x180A 6154
Spanish - Peru es-pe 0x280A 10250
Spanish - Puerto Rico es-pr 0x500A 20490
Spanish - Paraguay es-py 0x3C0A 15370
Spanish - El Salvador es-sv 0x440A 17418
Spanish - Uruguay es-uy 0x380A 14346
Spanish - Venezuela es-ve 0x200A 8202
Sutu sx 0x0430 1072
Swahili sw 0x0441 1089
Swedish - Sweden sv-se 0x041D 1053
Swedish - Finland sv-fi 0x081D 2077
Tamil ta 0x0449 1097
Tatar tt 0X0444 1092
Thai th 0x041E 1054
Turkish tr 0x041F 1055
Tsonga ts 0x0431 1073
Ukrainian uk 0x0422 1058
Urdu ur 0x0420 1056
Uzbek – Cyrillic uz-uz 0x0843 2115
Uzbek – Latin uz-uz 0x0443 1091
Vietnamese vi 0x042A 1066
Xhosa xh 0x0434 1076
Yiddish yi 0x043D 1085
Zulu zu 0x0435 1077

VBScript 参考手册 完整的 VBScript 参考手册

VBScript IsNull 函数

VBScript IsNull 函数最终返回的是一个 Boolean 值。 

VBScript 参考手册 完整的 VBScript 参考手册

IsNull 函数返回一个布尔值，指示指定的表达式是否包含无效数据（Null）。如果表达式是 Null 则返回 True，否则返回 False。

语法

IsNull(expression)

参数 描述
expression 必需。一个表达式。

实例

实例

<script type="text/vbscript">
Dim x
document.write(IsNull(x) & "<br />")
x=10
document.write(IsNull(x) & "<br />")
x=Empty
document.write(IsNull(x) & "<br />")
x=Null
document.write(IsNull(x))
</script>

以上实例输出结果：

False
False
False
True

尝试一下 »
VBScript 参考手册 完整的 VBScript 参考手册

VBScript String 函数

VBScript String 函数返回重复的字符串，达到指定的长度。

VBScript 参考手册 完整的 VBScript 参考手册

String 函数返回包含指定长度的重复字符的一个字符串。

语法

String(number,character)

参数 描述
number 必需。被返回字符串的长度。
character 必需。被重复的字符。

实例 1

document.write(String(10,"#"))
Output:
##########

实例 2

document.write(String(4,"*"))
Output:
****

实例 3

document.write(String(4,42))
Output:
****

实例 4

document.write(String(4,"XYZ"))
Output:
XXXX

VBScript 参考手册 完整的 VBScript 参考手册

VBScript IsEmpty 函数

VBScript IsEmpty 函数将返回一个 Boolean 值。

VBScript 参考手册 完整的 VBScript 参考手册

IsEmpty 函数返回一个布尔值，指示指定的变量是否已经初始化。如果变量未初始化则返回 True，否则返回 False。

语法

IsEmpty(expression)

参数 描述
expression 必需。一个表达式（通常是一个变量名）。

实例

实例

<script type="text/vbscript">
Dim x
document.write(IsEmpty(x) & "<br />")
x=10
document.write(IsEmpty(x) & "<br />")
x=Empty
document.write(IsEmpty(x) & "<br />")
x=Null
document.write(IsEmpty(x))
</script>

以上实例输出结果：

True
False
True
False

尝试一下 »
VBScript 参考手册 完整的 VBScript 参考手册

VBScript StrComp 函数

VBScript StrComp 函数返回反映字符串比较结果的值。

VBScript 参考手册 完整的 VBScript 参考手册

StrComp 函数比较两个字符串，并返回代表比较结果的一个值。

StrComp 函数可返回下面的值：

  • -1 (如果 string1 < string2)
  • 0 (如果 string1 = string2)
  • 1 (如果 string1 > string2)
  • Null (如果 string1 或 string2 为 Null)

语法

StrComp(string1,string2[,compare])

参数 描述
string1 必需。字符串表达式。
string2 必需。字符串表达式。
compare 可选。规定要使用的字符串比较类型。默认是 0。

可采用下列的值：

  • 0 = vbBinaryCompare - 执行二进制比较
  • 1 = vbTextCompare - 执行文本比较

实例 1

document.write(StrComp("VBScript","VBScript"))
Output:
0

实例 2

document.write(StrComp("VBScript","vbscript"))
Output:
-1

实例 3

document.write(StrComp("VBScript","vbscript",1))
Output:
0

VBScript 参考手册 完整的 VBScript 参考手册

VBScript InputBox 函数

VBScript InputBox 函数在对话框中显示提示，等待用户输入文本或者单击按钮，并返回文本框的内容。

VBScript 参考手册 完整的 VBScript 参考手册

InputBox 函数显示一个对话框，用户可在其中输入文本并/或点击一个按钮。如果用户点击点击 OK 按钮或按键盘上的 ENTER 键， 则 InputBox 函数返回文本框中的文本。如果用户点击 Cancel 按钮，函数返回一个空字符串("")。

注意：如果同时规定 helpfile 和 context 参数，则会向对话框添加一个 Help 按钮。

提示：请参阅 MsgBox 函数。

语法

InputBox(prompt[,title][,default][,xpos][,ypos][,helpfile,context])

参数 描述
prompt 必需。显示在对话框中的消息。prompt 的最大长度大约是 1024 个字符，这取决于所使用的字符的宽度。如果 prompt 中包含多个行，则可在各行之间用回车符（Chr(13)）、换行符（Chr(10)）或回车换行符的组合（Chr(13) & Chr(10)）来分隔各行。
title 可选。对话框的标题。默认是应用程序的名称。
default 可选。一个在文本框中的默认文本。
xpos 可选。数值表达式，用于指定对话框的左边缘与屏幕左边缘的水平距离（单位为 twips*）。如果省略 xpos，则对话框会在水平方向居中。
ypos 可选。数值表达式，用于指定对话框的上边缘与屏幕上边缘的垂直距离（单位为 twips*）。如果省略 ypos，则对话框显示在屏幕垂直方向距下边缘大约三分之一处。
helpfile 可选。字符串表达式，用于标识为对话框提供上下文相关帮助的帮助文件。必须与 context 参数一起使用。
context 可选。数值表达式，用于标识由帮助文件的作者指定给某个帮助主题的上下文编号。必须与 helpfile 参数一起使用。

* twip 是度量单位，在视觉上与系统显示的相同。

1 twip 为 1/1440 英寸。

实例

实例 1

<script type="text/vbscript">
Function myFunction()
fname=InputBox("Enter your name")
End Function
</script>

尝试一下 »

实例 2

带有标题的提示框：

<script type="text/vbscript">
Function myFunction()
fname=InputBox("Enter your name","Userinput")
End Function
</script>

尝试一下 »

实例 3

带有输入框默认文本的提示框：

<script type="text/vbscript">
Function myFunction()
fname=InputBox("Enter your name",,"Donald Duck")
End Function
</script>

尝试一下 »

实例 4

一个显示在距屏幕左边缘 700 twips* 位置的提示框。

<script type="text/vbscript">
Function myFunction()
fname=InputBox("Enter your name",,,700)
End Function
</script>

尝试一下 »

实例 5

一个显示在距屏幕上边缘 500 twips* 位置的提示框。

<script type="text/vbscript">
Function myFunction()
fname=InputBox("Enter your name",,,,500)
End Function
</script>

尝试一下 »
VBScript 参考手册 完整的 VBScript 参考手册

VBScript Space 函数

VBScript Space 函数返回由指定数量的空格组成的字符串。

VBScript 参考手册 完整的 VBScript 参考手册

Space 函数返回由指定数量的空格组成的字符串。

语法

Space(number)

参数 描述
number 必需。字符串中的空格数量。

实例 1

Dim txt
txt=Space(10)
document.write(txt)
Output:
" "

VBScript 参考手册 完整的 VBScript 参考手册

VBScript GetRef 函数

VBScript GetRef 函数返回对可以绑定到事件的过程的引用。

VBScript 参考手册 完整的 VBScript 参考手册

GetRef 函数允许您把 VBScript 子程序连接到页面上的一个 DHTML 事件。

语法

Set object.event=GetRef(procname)

参数 描述
object 必需。事件所关联的 HTML 对象的名称。
event 必需。要与函数绑定的事件的名称。
procname 必需。与 HTML 事件关联的 Sub 或 Function 过程的名称。

实例

实例

<button id="myBtn">Click me</button>
<script type="text/vbscript">
document.getElementById("myBtn").onclick=GetRef("mySub")
Sub mySub()
alert("Hello world")
End Sub
</script>

尝试一下 »
VBScript 参考手册 完整的 VBScript 参考手册

VBScript Right 函数

VBScript Right 函数返回字符串最右边的指定数量的字符。

VBScript 参考手册 完整的 VBScript 参考手册

Right 函数从字符串的右侧返回指定数量的字符。

提示：请使用 Len 函数来确定字符串中的字符数量。

提示：请参阅 Left 函数。

语法

Right(string,length)

参数 描述
string 必需。从其中返回字符的字符串。
length 必需。规定需返回多少字符。如果设置为 0，则返回空字符串("")。如果设置为大于或等于字符串的长度，则返回整个字符串。

实例

实例 1

<script type="text/vbscript">
txt="This is a beautiful day!"
document.write(Right(txt,10))
</script>

以上实例输出结果：

tiful day!

尝试一下 »

实例 2

返回整个字符串：

<script type="text/vbscript">

txt="This is a beautiful day!"
x=Len(txt)
document.write(Right(txt,x))

</script>

以上实例输出结果：

This is a beautiful day!

尝试一下 »
VBScript 参考手册 完整的 VBScript 参考手册

VBScript GetObject 函数

VBScript GetObject 函数从文件返回对“自动”对象的访问。

VBScript 参考手册 完整的 VBScript 参考手册

GetObject 函数返回对文件中 automation 对象的引用。

语法

GetObject([pathname][,class])
参数 描述
pathname 可选。包含 automation 对象的文件的完整路径和名称。如果此参数被忽略，就必须有 class 参数。
class 可选。automation 对象的类。此参数使用此语法：appname.objectype。

VBScript 参考手册 完整的 VBScript 参考手册

VBScript Replace 函数

VBScript Replace 函数返回一个字符串，其中某个指定的子串被另一个子串替换，替换的次数也有规定。 

VBScript 参考手册 完整的 VBScript 参考手册

Replace 函数使用另一个字符串替换字符串的指定部分指定的次数。

语法

Replace(string,find,replacewith[,start[,count[,compare]]])

参数 描述
string 必需。被搜索的字符串。
find 必需。将被替换的字符串部分。
replacewith 必需。用于替换的子字符串。
start 可选。指定的开始位置。默认值是 1。起始位置之前的所有字符将被删除。
count 可选。规定要执行的替换的次数。
默认值是 -1，表示进行所有可能的替换。
compare 可选。规定要使用的字符串比较类型。默认是 0。

可采用下列的值：

  • 0 = vbBinaryCompare - 执行二进制比较
  • 1 = vbTextCompare - 执行文本比较

实例

实例 1

把单词 "beautiful" 替换为 "fantastic"：

<script type="text/vbscript">
txt="This is a beautiful day!"
document.write(Replace(txt,"beautiful","fantastic"))
</script>

以上实例输出结果：

This is a fantastic day!

尝试一下 »

实例 2

把字母 "i" 替换为 "##"：

<script type="text/vbscript">
txt="This is a beautiful day!"
document.write(Replace(txt,"i","##"))
</script>

以上实例输出结果：

Th##s ##s a beaut##ful day!

尝试一下 »

实例 3

把字母 "i" 替换为 "##"，从位置 15 开始：

请注意，位置 15 之前的所有字符都会被删除。

<script type="text/vbscript">
txt="This is a beautiful day!"
document.write(Replace(txt,"i","##",15))
</script>

以上实例输出结果：

t##ful day!

尝试一下 »

实例 4

从位置 1 开始，把前 2 个字母 "i" 替换为 "##"：

<script type="text/vbscript">
txt="This is a beautiful day!"
document.write(Replace(txt,"i","##",1,2))
</script>

以上实例输出结果：

Th##s ##s a beautiful day!

尝试一下 »

实例 5

把字母 "t" 替换为 "##"，采用文本和二进制比较：

<script type="text/vbscript">
txt="This is a beautiful day!"
document.write(Replace(txt,"t","##",1,-1,1) & "<br />")
document.write(Replace(txt,"t","##",1,-1,0))
</script>

以上实例输出结果：

##his is a beau##iful day!
This is a beau##iful day!

尝试一下 »
VBScript 参考手册 完整的 VBScript 参考手册

VBScript GetLocale 函数

VBScript GetLocale 函数返回当前区域设置 ID 值。

VBScript 参考手册 完整的 VBScript 参考手册

GetLocale 函数返回当前的 locale ID。

locale 是用户参考信息集合，比如语言、国家、地区和文化习俗。locale 决定键盘布局、字母排序顺序、日期、时间、数字与货币格式等等。

返回值可以是任意一个 32 位的值，如Locale ID 表所示。

提示：请使用 SetLocale 函数来设置本地 ID。

语法

GetLocale()

实例

实例（仅适用于 IE）

<script type="text/vbscript">
document.write(GetLocale)
</script>

以上实例输出结果：

document.write(GetLocale)

尝试一下 »

Locale ID 表

Locale 描述 简写 十六进制值 十进制值
Afrikaans af 0x0436 1078
Albanian sq 0x041C 1052
Arabic – United Arab Emirates ar-ae 0x3801 14337
Arabic - Bahrain ar-bh 0x3C01 15361
Arabic - Algeria ar-dz 0x1401 5121
Arabic - Egypt ar-eg 0x0C01 3073
Arabic - Iraq ar-iq 0x0801 2049
Arabic - Jordan ar-jo 0x2C01 11265
Arabic - Kuwait ar-kw 0x3401 13313
Arabic - Lebanon ar-lb 0x3001 12289
Arabic - Libya ar-ly 0x1001 4097
Arabic - Morocco ar-ma 0x1801 6145
Arabic - Oman ar-om 0x2001 8193
Arabic - Qatar ar-qa 0x4001 16385
Arabic - Saudi Arabia ar-sa 0x0401 1025
Arabic - Syria ar-sy 0x2801 10241
Arabic - Tunisia ar-tn 0x1C01 7169
Arabic - Yemen ar-ye 0x2401 9217
Armenian hy 0x042B 1067
Azeri – Latin az-az 0x042C 1068
Azeri – Cyrillic az-az 0x082C 2092
Basque eu 0x042D 1069
Belarusian be 0x0423 1059
Bulgarian bg 0x0402 1026
Catalan ca 0x0403 1027
Chinese - China zh-cn 0x0804 2052
Chinese - Hong Kong S.A.R. zh-hk 0x0C04 3076
Chinese – Macau S.A.R zh-mo 0x1404 5124
Chinese - Singapore zh-sg 0x1004 4100
Chinese - Taiwan zh-tw 0x0404 1028
Croatian hr 0x041A 1050
Czech cs 0x0405 1029
Danish da 0x0406 1030
Dutch – The Netherlands nl-nl 0x0413 1043
Dutch - Belgium nl-be 0x0813 2067
English - Australia en-au 0x0C09 3081
English - Belize en-bz 0x2809 10249
English - Canada en-ca 0x1009 4105
English – Carribbean en-cb 0x2409 9225
English - Ireland en-ie 0x1809 6153
English - Jamaica en-jm 0x2009 8201
English - New Zealand en-nz 0x1409 5129
English – Phillippines en-ph 0x3409 13321
English - South Africa en-za 0x1C09 7177
English - Trinidad en-tt 0x2C09 11273
English - United Kingdom en-gb 0x0809 2057
English - United States en-us 0x0409 1033
Estonian et 0x0425 1061
Farsi fa 0x0429 1065
Finnish fi 0x040B 1035
Faroese fo 0x0438 1080
French - France fr-fr 0x040C 1036
French - Belgium fr-be 0x080C 2060
French - Canada fr-ca 0x0C0C 3084
French - Luxembourg fr-lu 0x140C 5132
French - Switzerland fr-ch 0x100C 4108
Gaelic – Ireland gd-ie 0x083C 2108
Gaelic - Scotland gd 0x043C 1084
German - Germany de-de 0x0407 1031
German - Austria de-at 0x0C07 3079
German - Liechtenstein de-li 0x1407 5127
German - Luxembourg de-lu 0x1007 4103
German - Switzerland de-ch 0x0807 2055
Greek el 0x0408 1032
Hebrew he 0x040D 1037
Hindi hi 0x0439 1081
Hungarian hu 0x040E 1038
Icelandic is 0x040F 1039
Indonesian id 0x0421 1057
Italian - Italy it-it 0x0410 1040
Italian - Switzerland it-ch 0x0810 2064
Japanese ja 0x0411 1041
Korean ko 0x0412 1042
Latvian lv 0x0426 1062
Lithuanian lt 0x0427 1063
FYRO Macedonian mk 0x042F 1071
Malay - Malaysia ms-my 0x043E 1086
Malay – Brunei ms-bn 0x083E 2110
Maltese mt 0x043A 1082
Marathi mr 0x044E 1102
Norwegian - Bokmål no-no 0x0414 1044
Norwegian – Nynorsk no-no 0x0814 2068
Polish pl 0x0415 1045
Portuguese - Portugal pt-pt 0x0816 2070
Portuguese - Brazil pt-br 0x0416 1046
Raeto-Romance rm 0x0417 1047
Romanian - Romania ro 0x0418 1048
Romanian - Moldova ro-mo 0x0818 2072
Russian ru 0x0419 1049
Russian - Moldova ru-mo 0x0819 2073
Sanskrit sa 0x044F 1103
Serbian - Cyrillic sr-sp 0x0C1A 3098
Serbian – Latin sr-sp 0x081A 2074
Setsuana tn 0x0432 1074
Slovenian sl 0x0424 1060
Slovak sk 0x041B 1051
Sorbian sb 0x042E 1070
Spanish - Spain es-es 0x0C0A 1034
Spanish - Argentina es-ar 0x2C0A 11274
Spanish - Bolivia es-bo 0x400A 16394
Spanish - Chile es-cl 0x340A 13322
Spanish - Colombia es-co 0x240A 9226
Spanish - Costa Rica es-cr 0x140A 5130
Spanish - Dominican Republic es-do 0x1C0A 7178
Spanish - Ecuador es-ec 0x300A 12298
Spanish - Guatemala es-gt 0x100A 4106
Spanish - Honduras es-hn 0x480A 18442
Spanish - Mexico es-mx 0x080A 2058
Spanish - Nicaragua es-ni 0x4C0A 19466
Spanish - Panama es-pa 0x180A 6154
Spanish - Peru es-pe 0x280A 10250
Spanish - Puerto Rico es-pr 0x500A 20490
Spanish - Paraguay es-py 0x3C0A 15370
Spanish - El Salvador es-sv 0x440A 17418
Spanish - Uruguay es-uy 0x380A 14346
Spanish - Venezuela es-ve 0x200A 8202
Sutu sx 0x0430 1072
Swahili sw 0x0441 1089
Swedish - Sweden sv-se 0x041D 1053
Swedish - Finland sv-fi 0x081D 2077
Tamil ta 0x0449 1097
Tatar tt 0X0444 1092
Thai th 0x041E 1054
Turkish tr 0x041F 1055
Tsonga ts 0x0431 1073
Ukrainian uk 0x0422 1058
Urdu ur 0x0420 1056
Uzbek – Cyrillic uz-uz 0x0843 2115
Uzbek – Latin uz-uz 0x0443 1091
Vietnamese vi 0x042A 1066
Xhosa xh 0x0434 1076
Yiddish yi 0x043D 1085
Zulu zu 0x0435 1077

VBScript 参考手册 完整的 VBScript 参考手册

VBScript Mid 函数

VBScript Mid 函数用于从字符串中返回指定数量的字符。

VBScript 参考手册 完整的 VBScript 参考手册

Mid 函数从字符串中返回指定数量的字符。

提示：请使用 Len 函数来确定字符串中的字符数量。

语法

Mid(string,start[,length])

参数 描述
string 必需。从其中返回字符的字符串表达式。
start 必需。规定起始位置。如果设置为大于字符串中的字符数量，则返回空字符串("")。
length 可选。要返回的字符数量。

实例

实例 1

返回 1 个字符，从位置 1 开始：

<script type="text/vbscript">
txt="This is a beautiful day!"
document.write(Mid(txt,1,1))
</script>

以上实例输出结果：

T

尝试一下 »

实例 2

返回 15 个字符，从位置 1 开始：

<script type="text/vbscript">
txt="This is a beautiful day!"
document.write(Mid(txt,1,15))
</script>

以上实例输出结果：

This is a beaut

尝试一下 »

实例 3

返回所有字符，从位置 1 开始：

<script type="text/vbscript">
txt="This is a beautiful day!"
document.write(Mid(txt,1))
</script>

以上实例输出结果：

This is a beautiful day!

尝试一下 »

实例 4

返回所有字符，从位置 12 开始：

<script type="text/vbscript">
txt="This is a beautiful day!"
document.write(Mid(txt,12))
</script>

以上实例输出结果：

eautiful day!

尝试一下 »
VBScript 参考手册 完整的 VBScript 参考手册

VBScript Eval 函数

VBScript Eval 函数计算并返回表达式的值。

VBScript 参考手册 完整的 VBScript 参考手册

Eval 函数计算表达式，并返回结果。

语法

Eval(expression)

参数 描述
expression 必需。要计算的表达式。

实例

实例

创建正则表达式对象：

<script type="text/vbscript">
function myFunction()
alert("Hello world")
end function
eval("myFunction()")
</script>

尝试一下 »
VBScript 参考手册 完整的 VBScript 参考手册

VBScript Trim 函数

VBScript Trim 函数返回去掉前导空格或末尾空格的字符串副本。

VBScript 参考手册 完整的 VBScript 参考手册

Trim 函数删除字符串两边的空格。

提示：请参阅 LTrim 和 RTrim 函数。

语法

Trim(string)

参数 描述
string 必需。字符串表达式。

实例

实例

<script type="text/vbscript">
fname=" Jack "
document.write("Hello" & Trim(fname) & "and welcome.")
</script>

以上实例输出结果：

HelloJackand welcome.

尝试一下 »
VBScript 参考手册 完整的 VBScript 参考手册

VBScript CreateObject 函数

VBScript CreateObject 函数是创建和返回对 COM 对象的引用。

VBScript 参考手册 完整的 VBScript 参考手册

CreateObject 函数创建一个指定类型的对象。

语法

CreateObject(servername.typename[,location])

参数 描述
servername 必需。提供此对象的应用程序名称。
typename 必需。对象的类型或类（type/class）。
location 可选。在何处创建对象。

实例

实例

创建正则表达式对象：

<script type="text/vbscript">
txt="This is a beautiful day"
Set objReg=CreateObject("vbscript.regexp")
objReg.Pattern="i"
document.write(objReg.Replace(txt,"##"))
</script>

以上实例输出结果：

Th##s is a beautiful day

尝试一下 »
VBScript 参考手册 完整的 VBScript 参考手册

VBScript RTrim 函数

VBScript RTrim 函数返回去掉尾部空格的字符串副本。

VBScript 参考手册 完整的 VBScript 参考手册

RTrim 函数删除字符串右边的空格。

提示：请参阅 LTrim 和 Trim 函数。

语法

RTrim(string)

参数 描述
string 必需。字符串表达式。

实例

实例

<script type="text/vbscript">
fname=" Jack "
document.write("Hello" & RTrim(fname) & "and welcome.")
</script>

以上实例输出结果：

Hello Jackand welcome.

尝试一下 »
VBScript 参考手册 完整的 VBScript 参考手册

VBScript UCase 函数

VBScript UCase 函数返回的字符串已经被转换为大写字母。 

VBScript 参考手册 完整的 VBScript 参考手册

UCase 函数把指定的字符串转换为大写。

提示：请参阅 LCase 函数。

语法

UCase(string)

参数 描述
string 必需。需被转换为大写的字符串。

实例

实例 1

<script type="text/vbscript">
txt="This is a beautiful day!"
document.write(UCase(txt))
</script>

以上实例输出结果：

THIS IS A BEAUTIFUL DAY!

尝试一下 »

实例 2

<script type="text/vbscript">
txt="This is a BEAUTIFUL day!"
document.write(UCase(txt))
</script>

以上实例输出结果：

THIS IS A BEAUTIFUL DAY!

尝试一下 »
VBScript 参考手册 完整的 VBScript 参考手册

VBScript LTrim 函数

VBScript LTrim 函数返回去掉前导空格的字符串副本。

VBScript 参考手册 完整的 VBScript 参考手册

LTrim 函数删除字符串左边的空格。

提示：请参阅 RTrim 和 Trim 函数。

语法

LTrim(string)

参数 描述
string 必需。字符串表达式。

实例

实例

<script type="text/vbscript">
fname=" Jack "
document.write("Hello" & LTrim(fname) & "and welcome.")
</script>

以上实例输出结果：

HelloJack and welcome.

尝试一下 »
VBScript 参考手册 完整的 VBScript 参考手册

VBScript StrReverse 函数

VBScript StrReverse 函数返回一字符串，其中字符的顺序与指定的字符串中的顺序相反。

VBScript 参考手册 完整的 VBScript 参考手册

StrReverse 函数反转一个字符串。

语法

StrReverse(string)

参数 描述
string 必需。需被反转的字符串。

实例 1

Dim txt
txt="This is a beautiful day!"
document.write(StrReverse(txt))
Output:
!yad lufituaeb a si sihT

VBScript 参考手册 完整的 VBScript 参考手册

VBScript Len 函数

VBScript Len 函数可以返回字符串中的字符数量，或者存储变量所需的字节数。 

VBScript 参考手册 完整的 VBScript 参考手册

Len 函数返回字符串中的字符数量。

语法

Len(string)

参数 描述
string 字符串表达式。

实例

实例 1

<script type="text/vbscript">
txt="This is a beautiful day!"
document.write(Len(txt))
</script>

以上实例输出结果：

24

尝试一下 »

实例 2

您还可以把字符串直接放入 Len 函数：

<script type="text/vbscript">
document.write(Len("This is a beautiful day!"))
</script>

以上实例输出结果：

24

尝试一下 »
VBScript 参考手册 完整的 VBScript 参考手册

VBScript Left 函数

VBScript Left 函数可以返回字符串最左边的指定数量的字符。

VBScript 参考手册 完整的 VBScript 参考手册

Left 函数从字符串的左侧返回指定数量的字符。

提示：请使用 Len 函数来确定字符串中的字符数量。

提示：请参阅 Right 函数。

语法

Left(string,length)

参数 描述
string 必需。从其中返回字符的字符串。
length 必需。规定需返回多少字符。如果设置为 0，则返回空字符串("")。如果设置为大于或等于字符串的长度，则返回整个字符串。

实例

实例 1

<script type="text/vbscript">
txt="This is a beautiful day!"
document.write(Left(txt,15))
</script>

以上实例输出结果：

This is a beaut

尝试一下 »

实例 2

返回整个字符串：

<script type="text/vbscript">
txt="This is a beautiful day!"
x=Len(txt)
document.write(Left(txt,x))
</script>

以上实例输出结果：

This is a beautiful day!

尝试一下 »
VBScript 参考手册 完整的 VBScript 参考手册

VBScript Array 函数

VBScript Array 函数用于返回变量，该变量包含数组。

VBScript 参考手册 完整的 VBScript 参考手册

Array 函数返回一个包含数组的变量。

注意：数组中的第一个元素是零。

语法

Array(arglist)

参数 描述
arglist 必需。数组中元素值的列表（由逗号分割）。

实例

实例 1

<script type="text/vbscript">
a=Array(5,10,15,20)
document.write(a(3))
</script>

以上实例输出结果：

20

尝试一下 »

实例 2

<script type="text/vbscript">
a=Array(5,10,15,20)
document.write(a(0))
</script>

以上实例输出结果：

5

尝试一下 »

实例 3

遍历数组中的所有项：

<script type="text/vbscript">
a=Array(5,10,15,20)
for each x in a
document.write(x & "<br />")
next
</script>

以上实例输出结果：

5
10
15
20

尝试一下 »
VBScript 参考手册 完整的 VBScript 参考手册

VBScript Exp 函数

VBScript Exp 函数用于返回 e （自然对数的底）的幂次方，请参考本文中的实例。

VBScript 参考手册 完整的 VBScript 参考手册

Exp 函数返回 e（自然对数的底）的幂次方。

注意：number 的值不能超过 709.782712893。

提示：请参阅 Log 函数。

语法

Exp(number)

参数 描述
number 必需。有效的数值表达式。

实例

实例

<script type="text/vbscript">
document.write(Exp(6.7) & "<br />")
document.write(Exp(-6.7))
</script>

以上实例输出结果：

812.405825167543
1.23091190267348E-03

尝试一下 »
VBScript 参考手册 完整的 VBScript 参考手册

VBScript LCase 函数

VBScript LCase 函数返回已被转换为小写字母的字符串。

VBScript 参考手册 完整的 VBScript 参考手册

LCase 函数把指定字符串转换为小写。

提示：请参阅 UCase 函数。

语法

LCase(string)

参数 描述
string 必需。需要被转换为小写的字符串。

实例

实例 1

<script type="text/vbscript">
txt="THIS IS A BEAUTIFUL DAY!"
document.write(LCase(txt))
</script>

以上实例输出结果：

this is a beautiful day!

尝试一下 »

实例 2

<script type="text/vbscript">
txt="This is a BEAUTIFUL day!"
document.write(LCase(txt))
</script>

以上实例输出结果：

this is a beautiful day!

尝试一下 »
VBScript 参考手册 完整的 VBScript 参考手册

VBScript Tan 函数

VBScript Tan 函数用于返回角度的正切值，请参考本节内容！

VBScript 参考手册 完整的 VBScript 参考手册

Tan 函数返回指定数字（角度）的正切。

语法

Tan(number)

参数 描述
number 必需。将某个角表示为弧度的有效的数值表达式。

实例

实例

<script type="text/vbscript">
document.write(Tan(40) & "<br />")
document.write(Tan(-40))
</script>

以上实例输出结果：

-1.1172149309239
1.1172149309239

尝试一下 »
VBScript 参考手册 完整的 VBScript 参考手册

VBScript Cos 函数

VBScript Cos 函数返回角度的余弦值，具体使用请参考本节内容。

VBScript 参考手册 完整的 VBScript 参考手册

Cos 函数返回指定数字（角度）的余弦。

语法

Cos(number)

参数 描述
number 必需。将某个角表示为弧度的数值表达式。

实例

实例

<script type="text/vbscript">
document.write(Cos(50.0) & "<br />")
document.write(Cos(-50.0))
</script>

以上实例输出结果：

0.964966028492113
0.964966028492113

尝试一下 »
VBScript 参考手册 完整的 VBScript 参考手册

VBScript InStrRev 函数

VBScript InStrRev 函数返回一个字符串在另一个字符串中出现的位置，是从字符串的末尾算起。

VBScript 参考手册 完整的 VBScript 参考手册

InStrRev 函数返回字符串在另一字符串中首次出现的位置。搜索从字符串的末端开始，但是返回的位置是从字符串的起点开始计数的。

InStrRev 函数可返回下面的值：

  • 如果 string1 为 "" - InStrRev 返回 0
  • 如果 string1 为 Null - InStrRev 返回 Null
  • 如果 string2 为 "" - InStrRev 返回 start
  • 如果 string2 为 Null - InStrRev 返回 Null
  • 如果 string2 没有找到 - InStrRev 返回 0
  • 如果在 string1 中找到 string2 - InStrRev 返回找到匹配字符串的位置
  • 如果 start > Len(string1) - InStrRev 返回 0

提示：请参阅 InStr 函数。

语法

InStrRev(string1,string2[,start[,compare]])

参数 描述
string1 必需。需要被搜索的字符串。
string2 必需。需要搜索的字符串表达式。
start 可选。规定每次搜索的起始位置。默认的搜索起始位置是最后一个字符（-1）。
compare 可选。规定要使用的字符串比较类型。默认是 0。

可采用下列的值：

  • 0 = vbBinaryCompare - 执行二进制比较
  • 1 = vbTextCompare - 执行文本比较

实例

实例 1

<script type="text/vbscript">
txt="This is a beautiful day!"
document.write(InStrRev(txt,"beautiful"))
</script>

以上实例输出结果：

11

尝试一下 »

实例 2

查找字母 "i"，采用不同的起始位置：

<script type="text/vbscript">
txt="This is a beautiful day!"
document.write(InStrRev(txt,"i",-1) & "<br />")
document.write(InStrRev(txt,"i",7) & "<br />")
</script>

以上实例输出结果：

16
6

尝试一下 »

实例 3

查找字母 "T"，采用文本和二进制比较：

<script type="text/vbscript">
txt="This is a beautiful day!"
document.write(InStrRev(txt,"T",-1,1) & "<br />")
document.write(InStrRev(txt,"T",-1,0) & "<br />")
</script>

以上实例输出结果：

15
1

尝试一下 »
VBScript 参考手册 完整的 VBScript 参考手册

VBScript Sqr 函数

VBScript Sqr 函数用于返回数的平方根，本节内容讲解了该函数的使用。

VBScript 参考手册 完整的 VBScript 参考手册

Sqr 函数返回一个数的平方根。

注意：number 参数不能是负值。

语法

Sqr(number)

参数 描述
number 必需。大于 0 的有效的数值表达式。

实例

实例

<script type="text/vbscript">
document.write(Sqr(9) & "<br />")
document.write(Sqr(0) & "<br />")
document.write(Sqr(47))
</script>

以上实例输出结果：

3
0
6.85565460040104

尝试一下 »
VBScript 参考手册 完整的 VBScript 参考手册

VBScript Atn 函数

VBScript Atn 函数用于返回数的反正切的值。

VBScript 参考手册 完整的 VBScript 参考手册

Atn 函数返回指定数字的反正切。

语法

Atn(number)

参数 描述
number 必需。一个数值表达式。

实例

实例 1

<script type="text/vbscript">

document.write(Atn(89) & "<br />")
document.write(Atn(8.9))

</script>

以上实例输出结果：

1.55956084453693
1.45890606062322

尝试一下 »

实例 2

计算 pi 的值：

<script type="text/vbscript">

Dim pi
pi=4*Atn(1)
document.write(pi)

</script>

以上实例输出结果：

3.14159265358979

尝试一下 »
VBScript 参考手册 完整的 VBScript 参考手册

VBScript InStr 函数

VBScript InStr 函数用于返回一个字符串在另一个字符串中第一次出现的位置。

VBScript 参考手册 完整的 VBScript 参考手册

InStr 函数返回一个字符串在另一个字符串中首次出现的位置。

InStr 函数返回下面的值：

  • 如果 string1 为 "" - InStr 返回 0
  • 如果 string1 为 Null - InStr 返回 Null
  • 如果 string2 为 "" - InStr 返回 start
  • 如果 string2 为 Null - InStr 返回 Null
  • 如果 string2 没有找到 - InStr 返回 0
  • 如果在 string1 中找到 string2 - InStr 返回找到匹配字符串的位置
  • 如果 start > Len(string1) - InStr 返回 0

提示：请参阅 InStrRev 函数。

语法

InStr([start,]string1,string2[,compare])

参数 描述
start 可选。规定每次搜索的起始位置。默认的搜索起始位置是第一个字符（1）。如果已规定 compare 参数，则必须有此参数。
string1 必需。需要被搜索的字符串。
string2 必需。需要搜索的字符串表达式。
compare 可选。规定要使用的字符串比较类型。默认是 0。

可采用下列的值：

  • 0 = vbBinaryCompare - 执行二进制比较
  • 1 = vbTextCompare - 执行文本比较

实例

实例 1

<script type="text/vbscript">

txt="This is a beautiful day!"
document.write(InStr(txt,"beautiful"))

</script>

以上实例输出结果：

11

尝试一下 »

实例 2

查找字母 "i"，采用不同的起始位置：

<script type="text/vbscript">

txt="This is a beautiful day!"
document.write(InStr(1,txt,"i") & "<br />")
document.write(InStr(7,txt,"i") & "<br />")

</script>

以上实例输出结果：

3
16

尝试一下 »

实例 3

查找字母 "t"，采用文本和二进制比较：

<script type="text/vbscript">

txt="This is a beautiful day!"
document.write(InStr(1,txt,"t",1) & "<br />")
document.write(InStr(1,txt,"t",0) & "<br />")

</script>

以上实例输出结果：

1
15

尝试一下 »
VBScript 参考手册 完整的 VBScript 参考手册

VBScript Sin 函数

VBScript Sin 函数用于计算角度的正弦值。

VBScript 参考手册 完整的 VBScript 参考手册

Sin 函数返回指定数字（角度）的正弦。

语法

Sin(number)

参数 描述
number 必需。将某个角表示为弧度的有效的数值表达式。

实例

实例

<script type="text/vbscript">

document.write(Sin(47) & "<br />")
document.write(Sin(-47))

</script>

以上实例输出结果：

0.123573122745224
-0.123573122745224

尝试一下 »
VBScript 参考手册 完整的 VBScript 参考手册

VBScript Abs 函数

使用 VBScript Abs 函数能够返回某个数的绝对值。

VBScript 参考手册 完整的 VBScript 参考手册

Abs 函数返回指定数字的绝对值。

注意：如果 number 参数包含 Null，则返回 Null。

注意：如果 number 参数是一个未初始化的变量，则返回 0。

语法

Abs(number)

参数

参数 描述
number 必需。一个数值表达式。

实例

实例 1

<script type="text/vbscript">

document.write(Abs(1) & "<br />")
document.write(Abs(-1))

</script>

以上实例输出结果：

1
1

尝试一下 »

实例 2

<script type="text/vbscript">

document.write(Abs(48.4) & "<br />")
document.write(Abs(-48.4))

</script>

以上实例输出结果：

48.4
48.4

尝试一下 »
VBScript 参考手册 完整的 VBScript 参考手册

VBScript UBound 函数

VBScript UBound 函数返回指定维数数组的最大有效下标。

VBScript 参考手册 完整的 VBScript 参考手册

UBound 函数返回指示数组维数的最大下标。

提示：UBound 函数与 LBound 函数共同使用，可以确定数组的大小。

语法

UBound(arrayname[,dimension])

参数

参数 描述
arrayname 必需。数组变量的名称。
dimension 可选。要返回哪一维的下界。 1 = 第一维， 2 = 第二维，以此类推。默认是 1 。

实例

实例 1

<script type="text/vbscript">

days=Array("Sun","Mon","Tue","Wed","Thu","Fri","Sat")
document.write(LBound(days) & "<br />")
document.write(UBound(days) & "<br />")

</script>

以上实例输出结果：

0
6

尝试一下 »

实例 2

一个二维数组：

<script type="text/vbscript">

Dim food(2,3)
food(0,0)="Apple"
food(0,1)="Banana"
food(0,2)="Orange"
food(0,3)="Lemon"
food(1,0)="Pizza"
food(1,1)="Hamburger"
food(1,2)="Spaghetti"
food(1,3)="Meatloaf"
food(2,0)="Cake"
food(2,1)="Cookie"
food(2,2)="Icecream"
food(2,3)="Chocolate"
document.write(LBound(food,1) & "<br />")
document.write(UBound(food,1) & "<br />")
document.write(LBound(food,2) & "<br />")
document.write(UBound(food,2) & "<br />")

</script>

以上实例输出结果：

0
2
0
3

尝试一下 »
VBScript 参考手册 完整的 VBScript 参考手册

VBScript Sgn 函数

VBScript Sgn 函数返回一个表示数的符号的整数。

VBScript 参考手册 完整的 VBScript 参考手册

Sgn 函数返回可指示指定数字的符号的一个整数。

语法

Sgn(number)

参数

参数 描述
number 必需。有效的数值表达式。

如果数字是：

  • >0 - Sgn 会返回 1
  • =0 - Sgn 会返回 0
  • <0 - Sgn 会返回 -1

实例

实例

<script type="text/vbscript">

document.write(Sgn(15) & "<br />")
document.write(Sgn(-5.67) & "<br />")
document.write(Sgn(0))

</script>

以上实例输出结果：

1
-1
0

尝试一下 »
VBScript 参考手册 完整的 VBScript 参考手册

VBScript FormatPercent 函数

VBScript FormatPercent 函数返回格式化为百分比（乘以 100）的表达式，以 % 符号结尾。

VBScript 参考手册 完整的 VBScript 参考手册

FormatPercent 函数返回作为百分数被格式化的表达式（尾随有 % 符号的百分比（乘以 100 ））。

语法

FormatPercent(Expression[,NumDigAfterDec[,
IncLeadingDig[,UseParForNegNum[,GroupDig]]]])

参数

参数 描述
expression 必需。需被格式化的表达式。
NumDigAfterDec 可选。指示小数点右侧显示位数的数值。默认值为 -1（使用的是计算机的区域设置）。
IncLeadingDig 可选。指示是否显示小数值的前导零：
  • -2 = TristateUseDefault - 使用计算机的区域设置
  • -1 = TristateTrue - True
  • 0 = TristateFalse - False
UseParForNegNum 可选。指示是否将负值置于括号中：
  • -2 = TristateUseDefault - 使用计算机的区域设置
  • -1 = TristateTrue - True
  • 0 = TristateFalse - False
GroupDig 可选。指示是否使用计算机区域设置中指定的数字分组符号将数字分组：
  • -2 = TristateUseDefault - 使用计算机的区域设置
  • -1 = TristateTrue - True
  • 0 = TristateFalse - False

实例 1

'How many percent is 6 of 345?
document.write(FormatPercent(6/345))

Output:

1.74%

实例 2

'How many percent is 6 of 345?
document.write(FormatPercent(6/345,1))

Output:

1.7%

VBScript 参考手册 完整的 VBScript 参考手册

VBScript Split 函数

VBScript 参考手册 完整的 VBScript 参考手册

Split 函数返回基于 0 的一维数组，此数组包含指定数量的子字符串。

语法

Split(expression[,delimiter[,count[,compare]]])

参数 描述
expression 必需。包含子字符串和分隔符的字符串表达式。
delimiter 可选。用于识别子字符串界限的字符。默认是空格字符。
count 可选。需被返回的子字符串的数目。-1 指示返回所有的子字符串。
compare 可选。规定要使用的字符串比较类型。

可采用下列的值：

  • 0 = vbBinaryCompare - 执行二进制比较
  • 1 = vbTextCompare - 执行文本比较

实例

实例 1

<script type="text/vbscript">

a=Split("W3CSchool is my favourite website")
for each x in a
document.write(x & "<br />")
next

</script>

以上实例输出结果：

W3CSchool
is
my
favourite
website

尝试一下 »

实例 2

使用 delimeter 参数分割文本：

<script type="text/vbscript">

a=Split("Brown cow, White horse, Yellow chicken",",")
for each x in a
document.write(x & "<br />")
next

</script>

以上实例输出结果：

Brown cow
White horse
Yellow chicken

尝试一下 »

实例 3

使用 delimeter 参数和 count 参数分割文本：

<script type="text/vbscript">

a=Split("W3CSchool is my favourite website"," ",2)
for each x in a
document.write(x & "<br />")
next

</script>

以上实例输出结果：

W3CSchool
is my favourite website

尝试一下 »

实例 4

使用文本比较的 delimeter 参数分割文本：

<script type="text/vbscript">

a=Split("SundayMondayTuesdayWEDNESDAYThursdayFridaySaturday","day",-1,1)
for each x in a
document.write(x & "<br />")
next

</script>

以上实例输出结果：

Sun
Mon
Tues
WEDNES
Thurs
Fri
Satur

尝试一下 »

实例 5

使用二进制比较的 delimeter 参数分割文本：

<script type="text/vbscript">

a=Split("SundayMondayTuesdayWEDNESDAYThursdayFridaySaturday","day",-1,0)
for each x in a
document.write(x & "<br />")
next

</script>

以上实例输出结果：

Sun
Mon
Tues
WEDNESDAYThurs
Fri
Satur

尝试一下 »
VBScript 参考手册 完整的 VBScript 参考手册

VBScript Rnd 函数

VBScript 参考手册 完整的 VBScript 参考手册

Rnd 函数返回一个随机数。数字总是小于 1 但大于或等于 0 。

语法

Rnd[(number)]

参数 描述
number 可选。有效的数值表达式。

如果数字是：

  • <0 - Rnd 会每次都返回相同的数字。
  • >0 - Rnd 会返回序列中的下一个随机数。
  • =0 - Rnd 会返回最近生成的数。
  • 省略 - Rnd 会返回序列中的下一个随机数。

实例

实例 1

随机数：

<script type="text/vbscript">

document.write(Rnd)

</script>

请注意，您每次都会得到相同的数字。为了避免这种情况，请使用实例 2 中的 Randomize 语句。

以上实例输出结果：

0.7055475

尝试一下 »

实例 2

为了避免像在实例 1 中每次都得到相同的数字，请使用 Randomize 语句：

<script type="text/vbscript">

Randomize
document.write(Rnd)

</script>

以上实例输出结果：

0.4758112

尝试一下 »

实例 3

以下是如何在一个给定的范围内产生随机整数：

<script type="text/vbscript">

Dim max,min
max=100
min=1
Randomize
document.write(Int((max-min+1)*Rnd+min))

</script>

以上实例输出结果：

71

尝试一下 »
VBScript 参考手册 完整的 VBScript 参考手册

VBScript FormatNumber 函数

VBScript 参考手册 完整的 VBScript 参考手册

FormatNumber 函数返回作为数字进行格式化的表达式。

语法

FormatNumber(Expression[,NumDigAfterDec[,
IncLeadingDig[,UseParForNegNum[,GroupDig]]]])

参数 描述
expression 必需。需被格式化的表达式。
NumDigAfterDec 可选。指示小数点右侧显示位数的数值。默认值为 -1（使用的是计算机的区域设置）。
IncLeadingDig 可选。指示是否显示小数值的前导零：
  • -2 = TristateUseDefault - 使用计算机的区域设置
  • -1 = TristateTrue - True
  • 0 = TristateFalse - False
UseParForNegNum 可选。指示是否将负值置于括号中：
  • -2 = TristateUseDefault - 使用计算机的区域设置
  • -1 = TristateTrue - True
  • 0 = TristateFalse - False
GroupDig 可选。指示是否使用计算机区域设置中指定的数字分组符号将数字分组：
  • -2 = TristateUseDefault - 使用计算机的区域设置
  • -1 = TristateTrue - True
  • 0 = TristateFalse - False

实例

实例 1

<script type="text/vbscript">

document.write(FormatNumber(20000))

</script>

以上实例输出结果：

20,000.00

尝试一下 »

实例 2

设置小数点后的位数：

<script type="text/vbscript">

document.write(FormatNumber(20000,2) & "<br />")
document.write(FormatNumber(20000,5))

</script>

以上实例输出结果：

20,000.00
20,000.00000

尝试一下 »

实例 3

是否显示小数值的前导零：

<script type="text/vbscript">

document.write(FormatNumber(.20,,0) & "<br />")
document.write(FormatNumber(.20,,-1))

</script>

以上实例输出结果：

.20
0.20

尝试一下 »

实例 4

是否将负值置于括号中：

<script type="text/vbscript">

document.write(FormatNumber(-50,,,0) & "<br />")
document.write(FormatNumber(-50,,,-1))

</script>

以上实例输出结果：

-50.00
(50.00)

尝试一下 »

实例 5

是否将数字分组：

<script type="text/vbscript">

document.write(FormatNumber(1000000,,,,0) & "<br />")
document.write(FormatNumber(1000000,,,,-1))

</script>

以上实例输出结果：

1000000.00
1,000,000.00

尝试一下 »
VBScript 参考手册 完整的 VBScript 参考手册

VBScript LBound 函数

VBScript 参考手册 完整的 VBScript 参考手册

LBound 函数返回指示数组维数的最小下标。

注意：任何维数的 LBound 总是 0。

提示：LBound 函数与 UBound 函数共同使用，可以确定数组的大小。

语法

LBound(arrayname[,dimension])

参数 描述
arrayname 必需。数组变量的名称。
dimension 可选。要返回哪一维的下界。 1 = 第一维， 2 = 第二维，以此类推。默认是 1 。

实例

实例 1

<script type="text/vbscript">

days=Array("Sun","Mon","Tue","Wed","Thu","Fri","Sat")
document.write(LBound(days) & "<br />")
document.write(UBound(days) & "<br />")

</script>

以上实例输出结果：

0
6

尝试一下 »

实例 2

一个二维数组：

<script type="text/vbscript">

Dim food(2,3)
food(0,0)="Apple"
food(0,1)="Banana"
food(0,2)="Orange"
food(0,3)="Lemon"
food(1,0)="Pizza"
food(1,1)="Hamburger"
food(1,2)="Spaghetti"
food(1,3)="Meatloaf"
food(2,0)="Cake"
food(2,1)="Cookie"
food(2,2)="Icecream"
food(2,3)="Chocolate"
document.write(LBound(food,1) & "<br />")
document.write(UBound(food,1) & "<br />")
document.write(LBound(food,2) & "<br />")
document.write(UBound(food,2) & "<br />")

</script>

以上实例输出结果：

0
2
0
3

尝试一下 »
VBScript 参考手册 完整的 VBScript 参考手册

VBScript Join 函数

VBScript 参考手册 完整的 VBScript 参考手册

Join 函数返回一个由数组中若干子字符串组成的字符串。

语法

Join(list[,delimiter])

参数 描述
list 必需。一维数组，其中包含需被连接的子字符串。
delimiter 可选。用于在返回的字符串中分割子字符串的字符。默认是空格字符。

实例

实例

分离一个数组中的项目，有和没有使用 delimeter 参数：

<script type="text/vbscript">

days=Array("Sun","Mon","Tue","Wed","Thu","Fri","Sat")
document.write(Join(days) & "<br />")
document.write(Join(days,",") & "<br />")
document.write(Join(days," ### "))

</script>

以上实例输出结果：

Sun Mon Tue Wed Thu Fri Sat
Sun,Mon,Tue,Wed,Thu,Fri,Sat
Sun ### Mon ### Tue ### Wed ### Thu ### Fri ### Sat

尝试一下 »
VBScript 参考手册 完整的 VBScript 参考手册

VBScript Log 函数

VBScript 参考手册 完整的 VBScript 参考手册

Log 函数返回指定数字的自然对数。自然对数是以 e 为底的对数。

注意：不允许使用负值。

提示：请参阅 Exp 函数。

语法

Log(number)

参数 描述
number 必需。大于 0 的有效的数值表达式。

实例

实例

<script type="text/vbscript">

document.write(Log(38.256783227))

</script>

以上实例输出结果：

3.64432088381777

尝试一下 »
VBScript 参考手册 完整的 VBScript 参考手册

VBScript FormatCurrency 函数

VBScript 参考手册 完整的 VBScript 参考手册

FormatCurrency 函数返回作为货币值被格式化的表达式，使用计算机系统控制面板中定义的货币符号。

语法

FormatCurrency(Expression[,NumDigAfterDec[,
IncLeadingDig[,UseParForNegNum[,GroupDig]]]])

参数 描述
expression 必需。需被格式化的表达式。
NumDigAfterDec 可选。指示小数点右侧显示位数的数值。默认值为 -1（使用的是计算机的区域设置）。
IncLeadingDig 可选。指示是否显示小数值的前导零：
  • -2 = TristateUseDefault - 使用计算机的区域设置
  • -1 = TristateTrue - True
  • 0 = TristateFalse - False
UseParForNegNum 可选。指示是否将负值置于括号中：
  • -2 = TristateUseDefault - 使用计算机的区域设置
  • -1 = TristateTrue - True
  • 0 = TristateFalse - False
GroupDig 可选。指示是否使用计算机区域设置中指定的数字分组符号将数字分组：
  • -2 = TristateUseDefault - 使用计算机的区域设置
  • -1 = TristateTrue - True
  • 0 = TristateFalse - False

实例

实例 1

<script type="text/vbscript">

document.write(FormatCurrency(20000))

</script>

以上实例输出结果：

$20,000.00

尝试一下 »

实例 2

设置小数点后的位数：

<script type="text/vbscript">

document.write(FormatCurrency(20000,2) & "<br />")
document.write(FormatCurrency(20000,5))

</script>

以上实例输出结果：

$20,000.00
$20,000.00000

尝试一下 »

实例 3

是否显示小数值的前导零：

<script type="text/vbscript">

document.write(FormatCurrency(.20,,0) & "<br />")
document.write(FormatCurrency(.20,,-1))

</script>

以上实例输出结果：

$.20
$0.20

尝试一下 »

实例 4

是否将负值置于括号中：

<script type="text/vbscript">

document.write(FormatCurrency(-50,,,0) & "<br />")
document.write(FormatCurrency(-50,,,-1))

</script>

以上实例输出结果：

-$50.00
($50.00)

尝试一下 »

实例 5

是否将一百万美元分组：

<script type="text/vbscript">

document.write(FormatCurrency(1000000,,,,0) & "<br />")
document.write(FormatCurrency(1000000,,,,-1))

</script>

以上实例输出结果：

$1000000.00
$1,000,000.00

尝试一下 »
VBScript 参考手册 完整的 VBScript 参考手册

VBScript IsArray 函数

VBScript IsArray 函数返回一个 Boolean 值，它表示变量是否为数组。

VBScript 参考手册 完整的 VBScript 参考手册

IsArray 函数返回一个指示指定的变量是否为数组的布尔值。如果变量为数组，则返回 True，否则返回 False。

语法

IsArray(variable)

参数

参数 描述
variable 必需。任何变量。

实例

实例 1

<script type="text/vbscript">

days=Array("Sun","Mon","Tue","Wed","Thu","Fri","Sat")
document.write(IsArray(days))

</script>

以上实例输出结果：

True

尝试一下 »

实例 2

<script type="text/vbscript">

Dim a(5)
a(0)="Saturday"
a(1)="Sunday"
a(2)="Monday"
a(3)="Tuesday"
a(4)="Wednesday"
document.write(IsArray(a))

</script>

以上实例输出结果：

True

尝试一下 »

实例 3

<script type="text/vbscript">

a="Saturday"
document.write(IsArray(a))

</script>

以上实例输出结果：

False

尝试一下 »
VBScript 参考手册 完整的 VBScript 参考手册

VBScript Fix 函数

VBScript Fix 函数可以返回一个数的整数的部分。

VBScript 参考手册 完整的 VBScript 参考手册

Fix 函数返回指定数字的整数部分。

注意：如果 number 参数包含 Null，则返回 Null。

提示：请参阅 Int 函数。

语法

Fix(number)

参数

参数 描述
number 必需。有效的数值表达式。

实例

实例 1

<script type="text/vbscript">

document.write(Fix(6.83227) & "<br />")
document.write(Fix(6.23443))

</script>

以上实例输出结果：

6
6

尝试一下 »

实例 2

<script type="text/vbscript">

document.write(Fix(-6.13443) & "<br />")
document.write(Fix(-6.93443))

</script>

以上实例输出结果：

-6
-6

尝试一下 »
VBScript 参考手册 完整的 VBScript 参考手册

VBScript Oct 函数

VBScript Oct 函数返回表示一个数的八进制值的字符串。 

VBScript 参考手册 完整的 VBScript 参考手册

Oct 函数返回一个字符串，表示指定数字的八进制值。

注意：如果参数不是整数，则在进行运算前将其四舍五入为最接近的整数。

语法

Oct(number)

参数

参数 描述
number 必需。任何有效的表达式。

如果数字是：

  • Null - 那么 Oct 函数返回 Null。
  • Empty - 那么 Oct 函数返回零（0）。
  • Any other number - 那么 Oct 函数返回 11 个八进制字符。

实例

实例

<script type="text/vbscript">

document.write(Oct(3) & "<br />")
document.write(Oct(5) & "<br />")
document.write(Oct(9) & "<br />")
document.write(Oct(10) & "<br />")
document.write(Oct(11) & "<br />")
document.write(Oct(12) & "<br />")
document.write(Oct(400) & "<br />")
document.write(Oct(459) & "<br />")
document.write(Oct(460) & "<br />")

</script>

以上实例输出结果：

3
5
11
12
13
14
620
713
714

尝试一下 »
VBScript 参考手册 完整的 VBScript 参考手册

VBScript Filter 函数

VBScript Filter 函数可以根据指定的筛选条件，返回含有字符串数组子集的、下限为 0 的数组。 

VBScript 参考手册 完整的 VBScript 参考手册

Filter 函数返回一个基于 0 的数组，此数组包含以特定过滤条件为基础的字符串数组的子集。

注意：如果找不到与 value 参数相匹配的值，Filter 函数会返回一个空数组。

注意：如果参数 inputstrings 为 Null 或者不是一维数组，则会发生错误。

语法

Filter(inputstrings,value[,include[,compare]])

参数

参数 描述
inputstrings 必需。要检索的一维字符串数组。
value 必需。要搜索的字符串。
include 可选。Boolean 值，指定返回的子字符串是否包含 Value。如果 Include 为 True，Filter 将返回包含子字符串 Value 的数组子集。如果 Include 为 False，Filter 将返回不包含子字符串 Value 的数组子集。默认值为 True。
compare 可选。规定要使用的字符串比较类型。

可采用下列的值：

  • 0 = vbBinaryCompare - 执行二进制比较
  • 1 = vbTextCompare - 执行文本比较

实例

实例 1

Filter：项目包含的 "S"：

<script type="text/vbscript">

a=Array("Sunday","Monday","Tuesday","Wednesday","Thursday","Friday","Saturday")
b=Filter(a,"S")
for each x in b
document.write(x & "<br />")
next

</script>

以上实例输出结果：

Sunday
Saturday

尝试一下 »

实例 2

Filter：项目不包含的 "S"（include=False）：

<script type="text/vbscript">

a=Array("Sunday","Monday","Tuesday","Wednesday","Thursday","Friday","Saturday")
b=Filter(a,"S",False)
for each x in b
document.write(x & "<br />")
next

</script>

以上实例输出结果：

Monday
Tuesday
Wednesday
Thursday
Friday

尝试一下 »

实例 3

Filter：包含 "S" 的项目，用文本比较（compare=1）：

<script type="text/vbscript">

a=Array("Sunday","Monday","Tuesday","Wednesday","Thursday","Friday","Saturday")
b=Filter(a,"S",True,1)
for each x in b
document.write(x & "<br />")
next

</script>

以上实例输出结果：

Sunday
Tuesday
Wednesday
Thursday
Saturday

尝试一下 »
VBScript 参考手册 完整的 VBScript 参考手册

VBScript Int 函数

VBScript Int 函数返回某个数的整数部分。

VBScript 参考手册 完整的 VBScript 参考手册

Int 函数返回指定数字的整数部分。

注意：如果 number 参数包含 Null，则返回 Null。

提示：请参阅 Fix 函数。

语法

Int(number)

参数

参数 描述
number 必需。有效的数值表达式。

实例

实例 1

<script type="text/vbscript">

document.write(Int(6.83227) & "<br />")
document.write(Int(6.23443))

</script>

以上实例输出结果：

6
6

尝试一下 »

实例 2

<script type="text/vbscript">

document.write(Int(-6.13443) & "<br />")
document.write(Int(-6.93443))

</script>

以上实例输出结果：

-7
-7

尝试一下 »
VBScript 参考手册 完整的 VBScript 参考手册

相关文章

VBScript Fix 函数

VBScript Hex 函数

VBScript Hex 函数用于返回一个字符串，该字符串表示数的十六进制值。

VBScript 参考手册 完整的 VBScript 参考手册

Hex 函数返回一个字符串，表示指定数字的十六进制值。

注意：如果参数不是整数，则在进行运算前将其四舍五入为最接近的整数。

语法

Hex(number)

参数

参数 描述
number 必需。任何有效的表达式。

如果数字是：

  • Null - 那么 Hex 函数返回 Null。
  • Empty - 那么 Hex 函数返回零（0）。
  • Any other number - 那么 Hex 函数返回 8 个十六进制字符。

实例

实例

<script type="text/vbscript">

document.write(Hex(3) & "<br />")
document.write(Hex(5) & "<br />")
document.write(Hex(9) & "<br />")
document.write(Hex(10) & "<br />")
document.write(Hex(11) & "<br />")
document.write(Hex(12) & "<br />")
document.write(Hex(400) & "<br />")
document.write(Hex(459) & "<br />")
document.write(Hex(460) & "<br />")

</script>

以上实例输出结果：

3
5
9
A
B
C
190
1CB
1CC

尝试一下 »
VBScript 参考手册 完整的 VBScript 参考手册

VBScript CBool 函数

VBScript CBool 函数返回已被转换为 Boolean 子类型的变量的表达式。

VBScript 参考手册 完整的 VBScript 参考手册

CBool 函数把表达式转换为布尔（Boolean）类型。

表达式必须是一个数值。

语法

CBool(expression)

参数

参数 描述
expression 必需。任何有效的表达式。非零的值返回 True，零返回 False。如果表达式不能解释为数值，则发生 run-time 错误。

实例

实例

<script type="text/vbscript">

document.write(CBool(5) & "<br />")
document.write(CBool(0) & "<br />")
document.write(CBool(-5) & "<br />")

</script>

以上实例输出结果：

True
False
True

尝试一下 »
VBScript 参考手册 完整的 VBScript 参考手册

VBScript CStr 函数

VBScript CStr 函数用于返回表达式，该表达式已被转换为 String 子类型的 Variant。

VBScript 参考手册 完整的 VBScript 参考手册

CStr 函数把表达式转换为字符串（String）类型。

语法

CStr(expression)

参数

参数 描述
expression 必需。任何有效的表达式。

如果表达式是：

  • Boolean - CStr 函数将返回一个字符串，其中包含 true 或 false。
  • Date - CStr 函数将返回一个字符串，其中包含短日期格式的日期。
  • Null - 将发生 run-time 错误。
  • Empty - CStr 函数将返回一个空字符串（""）。
  • Error - CStr 函数将返回一个字符串，其中包含单词 "Error" 和错误号码。
  • Other numeric - CStr 函数将返回一个字符串，其中包含数字。

实例

实例

<script type="text/vbscript">

document.write(CStr("300000") & "<br />")
document.write(CStr(#10-05-25#) & "<br />")

</script>

以上实例输出结果：

300000
10/5/2025

尝试一下 »
VBScript 参考手册 完整的 VBScript 参考手册

VBScript Asc 函数

VBScript Asc 函数可以返回字符串首字母的 ANSI 字符代码。

VBScript 参考手册 完整的 VBScript 参考手册

Asc 函数把字符串中的第一个字母转换为对应的 ANSI 代码，并返回结果。

语法

Asc(string)

参数

参数 描述
string 必需。字符串表达式。不能为空字符串！

实例

实例 1

<script type="text/vbscript">

document.write(Asc("A") & "<br />")
document.write(Asc("a") & "<br />")
document.write(Asc("F") & "<br />")
document.write(Asc("f") & "<br />")
document.write(Asc("2") & "<br />")
document.write(Asc("#") & "<br />")

</script>

以上实例输出结果：

65
97
70
102
50
35

尝试一下 »

实例 2

Asc 返回字符串中第一个字符的 ANSI 代码：

<script type="text/vbscript">

document.write(Asc("W") & "<br />")
document.write(Asc("W3CSchool.com"))

</script>

以上实例输出结果：

87
87

尝试一下 »

实例 3

如何返回字符串中所有字符的 ANSI 代码：

<script type="text/vbscript">

txt="W3Cschools.com"
for i=1 to len(txt)
document.write(Asc(mid(txt,i,1)) & "<br />")
next

</script>

以上实例输出结果：

87
51
115
99
104
111
111
108
115
46
99
111
109

尝试一下 »
VBScript 参考手册 完整的 VBScript 参考手册

VBScript CSng 函数

VBScript CSng 函数能够返回一个表达式，该表达式已被转换为 Single 子类型的 Variant。

VBScript 参考手册 完整的 VBScript 参考手册

CSng 函数把表达式转换为单精度（Single）类型。

表达式必须是一个数值。

语法

CSng(expression)

参数

参数 描述
expression 必需。任何有效的表达式。

实例

实例

<script type="text/vbscript">

document.write(CSng("300000") & "<br />")
document.write(CSng(1536.75263541) & "<br />")
document.write(CSng(-6700000) & "<br />")

</script>

以上实例输出结果：

300000
1536.753
-6700000

尝试一下 »
VBScript 参考手册 完整的 VBScript 参考手册

VBScript Year 函数

VBScript Year 函数返回表示年份的数值。

VBScript 参考手册 完整的 VBScript 参考手册

Year 函数返回表示年份的一个数字。

语法

Year(date)

参数

参数 描述
date 必需。任何可表示日期的表达式。

实例

实例

<script type="text/vbscript">

document.write(Year("2010-02-16"))

</script>

以上实例输出结果：

2010

尝试一下 »

VBScript 参考手册 完整的 VBScript 参考手册

VBScript CLng 函数

VBScript CLng 函数返回一个表达式，此表达式已被转换为 Long 子类型的 Variant。

VBScript 参考手册 完整的 VBScript 参考手册

CLng 函数把表达式转换为长整型（Long）类型。

注意：值必须是介于 -2147483648 与 2147483647 之间的数字。

语法

CLng(expression)

参数

参数 描述
expression 必需。任何有效的表达式。

实例

实例

<script type="text/vbscript">

document.write(CLng("300000") & "<br />")
document.write(CLng(1536.750) & "<br />")
document.write(CLng(-6700000) & "<br />")

</script>

以上实例输出结果：

300000
1537
-6700000

尝试一下 »
VBScript 参考手册 完整的 VBScript 参考手册

VBScript WeekdayName 函数

VBScript WeekdayName 函数用于返回表示星期几的字符串。

VBScript 参考手册 完整的 VBScript 参考手册

WeekdayName 函数返回一周中指定的一天的星期名。

语法

WeekdayName(weekday[,abbreviate[,firstdayofweek]])

参数

参数 描述
weekday 必需。一周的第几天的数字。
abbreviate 可选。布尔值，指示是否缩写星期名。
firstdayofweek 可选。规定一周的第一天。

可采用下面的值：

  • 0 = vbUseSystemDayOfWeek - 使用区域语言支持（NLS）API 设置
  • 1 = vbSunday - 星期日（默认）
  • 2 = vbMonday - 星期一
  • 3 = vbTuesday - 星期二
  • 4 = vbWednesday - 星期三
  • 5 = vbThursday - 星期四
  • 6 = vbFriday - 星期五
  • 7 = vbSaturday - 星期六

实例

实例 1

获取一周的第 3 天的名称：

<script type="text/vbscript">

document.write(WeekdayName(3))

</script>

以上实例输出结果：

Tuesday

尝试一下 »

实例 2

获取一周的第 3 天的简称：

<script type="text/vbscript">

document.write(WeekdayName(3,True))

</script>

以上实例输出结果：

Tue

尝试一下 »

实例 3

获取一周的第 3 天的名称，一周的第一天是星期一：

<script type="text/vbscript">

document.write(WeekdayName(3,False,2))

</script>

以上实例输出结果：

Wednesday

尝试一下 »

VBScript 参考手册 Complete VBScript 参考手册

VBScript CInt 函数

VBScript CInt 函数用于返回表达式，此表达式已被转换为 Integer 子类型的 Variant。

VBScript 参考手册 完整的 VBScript 参考手册

CInt 函数把表达式转换为整数（Integer）类型。

注意：值必须是介于 -32768 与 32767 之间的数字。

语法

CInt(expression)

参数

参数 描述
expression 必需。任何有效的表达式。

实例

实例

<script type="text/vbscript">

document.write(CInt("300") & "<br />")
document.write(CInt(36.75) & "<br />")
document.write(CInt(-67) & "<br />")

</script>

以上实例输出结果：

300
37
-67

尝试一下 »
VBScript 参考手册 完整的 VBScript 参考手册

VBScript Weekday 函数

VBScript Weekday 函数返回表示星期几的数值，请参考本节内容进行使用！

VBScript 参考手册 完整的 VBScript 参考手册

Weekday 函数返回表示一周的天数的数字，介于 1 到 7 之间。

语法

Weekday(date[,firstdayofweek])

参数

参数 描述
date 必需。要计算的日期表达式。
firstdayofweek 可选。规定一周的第一天。

可采用下面的值：

  • 0 = vbUseSystemDayOfWeek - 使用区域语言支持（NLS）API 设置
  • 1 = vbSunday - 星期日（默认）
  • 2 = vbMonday - 星期一
  • 3 = vbTuesday - 星期二
  • 4 = vbWednesday - 星期三
  • 5 = vbThursday - 星期四
  • 6 = vbFriday - 星期五
  • 7 = vbSaturday - 星期六

实例

实例

<script type="text/vbscript">

document.write("document.write(Weekday(" & chr(34) & "2010-02-16" & chr(34) & ",0) & " & chr(34) & "<br />" & chr(34) & ")
") document.write(Weekday("2010-02-16",1) & "<br />")
document.write(Weekday("2010-02-16",2) & "<br />")
document.write(Weekday("2010-02-16",3) & "<br />")
document.write(Weekday("2010-02-16",4) & "<br />")
document.write(Weekday("2010-02-16",5) & "<br />")
document.write(Weekday("2010-02-16",6) & "<br />")

</script>

以上实例输出结果：

document.write(Weekday("2010-02-16",0) & "
") 3
2
1
7
6
5

尝试一下 »

VBScript 参考手册 完整的 VBScript 参考手册

VBScript Chr 函数

VBScript Chr 函数返回指定 ANSI 字符码的字符。

VBScript 参考手册 完整的 VBScript 参考手册

Chr 函数把指定的 ANSI 字符代码转换为字符。

注意：从 0 到 31 之间的数字表示不可打印的 ASCII 代码，例如 Chr(10) 将返回一个换行符。

语法

Chr(charcode)

参数

参数 描述
charcode 必需。标识某个字符的数字。

实例

实例 1

<script type="text/vbscript">

document.write(Chr(65) & "<br />")
document.write(Chr(66) & "<br />")
document.write(Chr(67) & "<br />")
document.write(Chr(97) & "<br />")
document.write(Chr(98) & "<br />")
document.write(Chr(99) & "<br />")

</script>

以上实例输出结果：

A
B
C
a
b
c

尝试一下 »

实例 2

<script type="text/vbscript">

document.write(Chr(34) & "<br />")
document.write(Chr(35) & "<br />")
document.write(Chr(36) & "<br />")
document.write(Chr(37) & "<br />")

</script>

以上实例输出结果：

"
#
$
%

尝试一下 »
VBScript 参考手册 完整的 VBScript 参考手册

参考文章

HTML ASCII 参考手册

VBScript TimeValue 函数

VBScript TimeValue 函数是一个与时间相关的函数，通过本节内容，你可以了解该函数的使用！

VBScript 参考手册 完整的 VBScript 参考手册

TimeValue 函数返回包含时间的子类型 Date 的 Variant。

语法

TimeValue(time)

参数

参数 描述
time 必需。介于 0:00:00 (12:00:00 A.M.) - 23:59:59 (11:59:59 P.M.) 的时间，或任何表示此范围内时间的表达式。

实例

实例

<script type="text/vbscript">

document.write(TimeValue("5:55:59 PM") & "<br />")
document.write(TimeValue(#5:55:59 PM#) & "<br />")
document.write(TimeValue("15:34"))

</script>

以上实例输出结果：

5:55:59 PM
5:55:59 PM
3:34:00 PM

尝试一下 »

VBScript 参考手册 完整的 VBScript 参考手册

VBScript CDbl 函数

VBScript CDbl 函数用于返回一个表达式，此表达式已被转换为 Double 子类型的 Variant。

VBScript 参考手册 完整的 VBScript 参考手册

CDbl 函数把表达式转换为双精度（Double）类型。

表达式必须是一个数值。

语法

CDbl(expression)

参数

参数 描述
expression 必需。任何有效的表达式。

实例

实例 1

<script type="text/vbscript">

document.write(CDbl(134.345) & "<br />")

</script>

以上实例输出结果：

134.345

尝试一下 »

实例 2

<script type="text/vbscript">

document.write(CDbl(14111111113353355.345455) & "<br />")

</script>

以上实例输出结果：

1.41111111133534E+16

尝试一下 »
VBScript 参考手册 完整的 VBScript 参考手册

VBScript TimeSerial 函数

VBScript TimeSerial 函数返回一个 Date 子类型的 Variant，含有指定时、分、秒的时间。

VBScript 参考手册 完整的 VBScript 参考手册

TimeSerial 函数返回特定小时、分钟和秒的时间。

语法

TimeSerial(hour,minute,second)

参数

参数 描述
hour 必需。介于 0-23 的数字，或数值表达式。
minute 必需。介于 0-59 的数字，或数值表达式。
second 必需。介于 0-59 的数字，或数值表达式。

实例

实例

<script type="text/vbscript">

document.write(TimeSerial(23,2,3) & "<br />")
document.write(TimeSerial(0,9,11) & "<br />")
document.write(TimeSerial(14+2,9-2,1-1))

</script>

以上实例输出结果：

11:02:03 PM
12:09:11 AM
4:07:00 PM

尝试一下 »

VBScript 参考手册 完整的 VBScript 参考手册

VBScript Timer 函数

在 VBScript 中 Timer 函数起到什么作用？一起通过本节内容来了解一下。

VBScript 参考手册 完整的 VBScript 参考手册

Timer 函数返回午夜 12 时（12:00 AM）以后已经过去的秒数。

语法

Timer

实例

实例（仅适用于 IE）

<script type="text/vbscript">

document.write("Number of seconds and milliseconds since 12:00 AM: ")
document.write(Timer)

</script>

以上实例输出结果：

document.write("Number of seconds and milliseconds since 12:00 AM: ") document.write(Timer)

尝试一下 »

VBScript 参考手册 完整的 VBScript 参考手册

VBScript CCur 函数

VBScript CCur 函数返回表达式，此表达式已被转换为 Currency 子类型的 Variant。

VBScript 参考手册 完整的 VBScript 参考手册

CCur 函数把表达式转换为货币（Currency）类型。

表达式必须是一个数值。

语法

CCur(expression)

参数

参数 描述
expression 必需。任何有效的表达式。

实例

实例 1

<script type="text/vbscript">

document.write(CCur(30) & "<br />")

</script>

以上实例输出结果：

30

尝试一下 »

实例 2

请注意，CCur 函数四舍五入到4位小数：

<script type="text/vbscript">

document.write(CCur(5.9555555555555) & "<br />")

</script>

以上实例输出结果：

5.9556

尝试一下 »
VBScript 参考手册 完整的 VBScript 参考手册

VBScript Time 函数

VBScript Time 函数返回 Date 子类型 Variant，指示当前系统时间。

VBScript 参考手册 完整的 VBScript 参考手册

Time 函数返回当前的系统时间。

语法

Time

实例

实例（仅适用于 IE）

<script type="text/vbscript">

document.write("The current system time is: ")
document.write(Time)

</script>

以上实例输出结果：

document.write("The current system time is: ") document.write(Time)

尝试一下 »

VBScript 参考手册 完整的 VBScript 参考手册

VBScript CByte 函数

VBScript CByte 函数返回表达式，此表达式已被转换为 Byte 子类型的 Variant。

VBScript 参考手册 完整的 VBScript 参考手册

CByte 函数把表达式转换为字节（Byte）类型。

表达式必须是介于 0 和 255 之间的数字。

语法

CByte(expression)

参数

参数 描述
expression 必需。任何有效的表达式。

实例

实例

<script type="text/vbscript">

document.write(CByte(0) & "<br />")
document.write(CByte(56.8) & "<br />")
document.write(CByte(123.2) & "<br />")
document.write(CByte(255) & "<br />")

</script>

以上实例输出结果：

0
57
123
255

尝试一下 »
VBScript 参考手册 完整的 VBScript 参考手册

VBScript Second 函数

通过使用 VBScript Second 函数，你可以返回时间的秒数。

VBScript 参考手册 完整的 VBScript 参考手册

Second 函数返回表示分钟的秒数的数字，介于 0 到 59 之间。

语法

Second(time)

参数

参数 描述
time 必需的。任何表示时间的表达式。

实例

实例 1

<script type="text/vbscript">

document.write(Second("13:45:21"))

</script>

以上实例输出结果：

21

尝试一下 »

实例 2

<script type="text/vbscript">

document.write(Second(Now()))

</script>

以上实例输出结果：

document.write(Second(Now()))

尝试一下 »

VBScript 参考手册 完整的 VBScript 参考手册

VBScript Now 函数

VBScript Now 函数用于获取当前计算机的系统日期和时间。

VBScript 参考手册 完整的 VBScript 参考手册

Now 函数根据计算机系统的日期和时间设置返回当前的日期和时间。

语法

Now

实例

实例（仅适用于 IE）

<script type="text/vbscript">

document.write("The current system date and time is: ")
document.write(Now)

</script>

以上实例输出结果：

document.write("The current system date and time is: ") document.write(Now)

尝试一下 »

VBScript 参考手册 完整的 VBScript 参考手册

VBScript DatePart 函数

VBScript DatePart 函数返回一个包含已知日期的指定时间部分的 Variant (Integer)。

VBScript 参考手册 完整的 VBScript 参考手册

DatePart 函数返回给定日期的指定部分。

语法

DatePart(interval,date[,firstdayofweek[,firstweekofyear]])

参数

参数 描述
interval 必需。要返回的时间间隔。

可采用下面的值：

  • yyyy - 年
  • q - 季度
  • m - 月
  • y - 当年的第几天
  • d - 日
  • w - 当周的第几天
  • ww - 当年的第几周
  • h - 小时
  • n - 分
  • s - 秒
date 必需。需计算的日期表达式。
firstdayofweek 可选。规定一周的日数，即当周的第几天。

可采用下面的值：

  • 0 = vbUseSystemDayOfWeek - 使用区域语言支持（NLS）API 设置
  • 1 = vbSunday - 星期日（默认）
  • 2 = vbMonday - 星期一
  • 3 = vbTuesday - 星期二
  • 4 = vbWednesday - 星期三
  • 5 = vbThursday - 星期四
  • 6 = vbFriday - 星期五
  • 7 = vbSaturday - 星期六
firstweekofyear 可选。规定一年中的第一周。

可采用下面的值：

  • 0 = vbUseSystem - 使用区域语言支持（NLS）API 设置
  • 1 = vbFirstJan1 - 由 1 月 1 日所在的星期开始（默认）
  • 2 = vbFirstFourDays - 由在新的一年中至少有四天的第一周开始
  • 3 = vbFirstFullWeek - 由在新的一年中第一个完整的周开始

实例

实例 1

从一个日期中获取月份：

<script type="text/vbscript">

d=CDate("2010-02-16")
document.write(DatePart("m",d))

</script>

以上实例输出结果：

2

尝试一下 »

实例 2

获取我们正处于的月份：

<script type="text/vbscript">

document.write(DatePart("m",Now()))

</script>

以上实例输出结果：

document.write(DatePart("m",Now()))

尝试一下 »

实例 3

获得小时：

<script type="text/vbscript">

document.write(DatePart("h",Now())

</script>

以上实例输出结果：

document.write(DatePart("h",Now()))

尝试一下 »

VBScript 参考手册 完整的 VBScript 参考手册

VBScript MonthName 函数

VBScript MonthName 函数返回表示月份的字符串。

VBScript 参考手册 完整的 VBScript 参考手册

MonthName 函数返回指定的月份的名称。

语法

MonthName(month[,abbreviate])

参数

参数 描述
month 必需。规定月的数字。（比如一月是 1，二月是 2，依此类推。）
abbreviate 可选。一个布尔值，指示是否缩写月份名称。默认是 False。

实例

实例 1

获取第 8 个月份的名称：

<script type="text/vbscript">

document.write(MonthName(8))

</script>

以上实例输出结果：

August

尝试一下 »

实例 2

获取第 8 个月份的简称：

<script type="text/vbscript">

document.write(MonthName(8,True))

</script>

以上实例输出结果：

Aug

尝试一下 »

VBScript 参考手册 完整的 VBScript 参考手册

VBScript DateDiff 函数

VBScript DateDiff 函数返回两个日期之间的间隔。

VBScript 参考手册 完整的 VBScript 参考手册

DateDiff 函数返回两个日期之间的时间间隔数。

语法

DateDiff(interval,date1,date2[,firstdayofweek[,firstweekofyear]])

参数

参数 描述
interval 必需。计算 date1 和 date2 之间的时间间隔的单位。

可采用下面的值：

  • yyyy - 年
  • q - 季度
  • m - 月
  • y - 当年的第几天
  • d - 日
  • w - 当周的第几天
  • ww - 当年的第几周
  • h - 小时
  • n - 分
  • s - 秒
date1,date2 必需。日期表达式。在计算中需要使用的两个日期。
firstdayofweek 可选。规定一周的日数，即当周的第几天。

可采用下面的值：

  • 0 = vbUseSystemDayOfWeek - 使用区域语言支持（NLS）API 设置
  • 1 = vbSunday - 星期日（默认）
  • 2 = vbMonday - 星期一
  • 3 = vbTuesday - 星期二
  • 4 = vbWednesday - 星期三
  • 5 = vbThursday - 星期四
  • 6 = vbFriday - 星期五
  • 7 = vbSaturday - 星期六
firstweekofyear 可选。规定一年中的第一周。

可采用下面的值：

  • 0 = vbUseSystem - 使用区域语言支持（NLS）API 设置
  • 1 = vbFirstJan1 - 由 1 月 1 日所在的星期开始（默认）
  • 2 = vbFirstFourDays - 由在新的一年中至少有四天的第一周开始
  • 3 = vbFirstFullWeek - 由在新的一年中第一个完整的周开始

实例

实例 1

2009 年 1 月 31 日和 2010 年 1 月 31 日之间的区别：

<script type="text/vbscript">

fromDate="31-Jan-09 00:00:00"
toDate="31-Jan-10 23:59:00"
document.write(DateDiff("yyyy",fromDate,toDate) & "<br />")
document.write(DateDiff("q",fromDate,toDate) & "<br />")
document.write(DateDiff("m",fromDate,toDate) & "<br />")
document.write(DateDiff("y",fromDate,toDate) & "<br />")
document.write(DateDiff("d",fromDate,toDate) & "<br />")
document.write(DateDiff("w",fromDate,toDate) & "<br />")
document.write(DateDiff("ww",fromDate,toDate) & "<br />")
document.write(DateDiff("h",fromDate,toDate) & "<br />")
document.write(DateDiff("n",fromDate,toDate) & "<br />")
document.write(DateDiff("s",fromDate,toDate) & "<br />")

</script>

以上实例输出结果：

1
4
12
365
365
52
53
8783
527039
31622340

尝试一下 »

实例 2

2009 年 12 月 31 日和 2012 年 12 月 31 日之间有多少周（在星期一开始）：

<script type="text/vbscript">

fromDate=CDate("2009/12/31")
toDate=CDate("2012/12/31")
document.write(DateDiff("w",fromDate,toDate,vbMonday))

</script>

以上实例输出结果：

156

尝试一下 »

VBScript 参考手册 完整的 VBScript 参考手册

VBScript Month 函数

VBScript Month 函数用于返回月份。

VBScript 参考手册 完整的 VBScript 参考手册

Month 函数返回表示年的月份的数字，介于 1 到 12 之间。

语法

Month(date)

参数

参数 描述
date 必需。任何表示日期的表达式。

实例

实例

<script type="text/vbscript">

document.write(Month("2010-02-16"))

</script>

以上实例输出结果：

2

尝试一下 »

VBScript 参考手册 完整的 VBScript 参考手册

VBScript DateAdd 函数

VBScript DateAdd 函数返回的日期是加上了指定的时间间隔的。

VBScript 参考手册 完整的 VBScript 参考手册

DateAdd 函数返回已添加指定时间间隔的日期。

语法

DateAdd(interval,number,date)

参数

参数 描述
interval 必需。您想要添加的时间间隔。

可采用下面的值：

  • yyyy - 年
  • q - 季度
  • m - 月
  • y - 当年的第几天
  • d - 日
  • w - 当周的第几天
  • ww - 当年的第几周
  • h - 小时
  • n - 分
  • s - 秒
number 必需。需要添加的时间间隔的数目。可对未来的日期使用正值，对过去的日期使用负值。
date 必需。代表被添加的时间间隔的日期的变量或文字。

实例

实例 1

如何使用参数：

<script type="text/vbscript">

document.write(DateAdd("yyyy",1,"31-Jan-10") & "<br />")
document.write(DateAdd("q",1,"31-Jan-10") & "<br />")
document.write(DateAdd("m",1,"31-Jan-10") & "<br />")
document.write(DateAdd("y",1,"31-Jan-10") & "<br />")
document.write(DateAdd("d",1,"31-Jan-10") & "<br />")
document.write(DateAdd("w",1,"31-Jan-10") & "<br />")
document.write(DateAdd("ww",1,"31-Jan-10") & "<br />")
document.write(DateAdd("h",1,"31-Jan-10 08:50:00") & "<br />")
document.write(DateAdd("n",1,"31-Jan-10 08:50:00") & "<br />")
document.write(DateAdd("s",1,"31-Jan-10 08:50:00") & "<br />")

</script>

以上实例输出结果：

1/31/2011
4/30/2010
2/28/2010
2/1/2010
2/1/2010
2/1/2010
2/7/2010
1/31/2010 9:50:00 AM
1/31/2010 8:51:00 AM
1/31/2010 8:50:01 AM

尝试一下 »

实例 2

从 2001 年 1 月 31 日减去一个月：

<script type="text/vbscript">

document.write(DateAdd("m",-1,"31-Jan-10"))

</script>

以上实例输出结果：

12/31/2009

尝试一下 »

实例 3

从现在添加一天：

<script type="text/vbscript">

document.write(DateAdd("d",1,Now()))

</script>

以上实例输出结果：

document.write(DateAdd("d",1,Now()))

尝试一下 »
VBScript 参考手册 完整的 VBScript 参考手册

VBScript Minute 函数

VBScript Minute 函数返回表示时间的分钟数。

VBScript 参考手册 完整的 VBScript 参考手册

Minute 函数返回表示小时的分钟数的数字，介于 0 到 59 之间。

语法

Minute(time)

参数

参数 描述
time 必需。表示时间的表达式。

实例

实例 1

<script type="text/vbscript">

document.write(Minute("13:45"))

</script>

以上实例输出结果：

45

尝试一下 »

实例 2

<script type="text/vbscript">

document.write(Minute(Now()))

</script>

以上实例输出结果：

document.write(Minute(Now()))

尝试一下 »

VBScript 参考手册 完整的 VBScript 参考手册

VBScript Date 函数

VBScript Date 函数用于返回当前系统日期。

VBScript 参考手册 完整的 VBScript 参考手册

Date 函数返回当前的系统日期。

语法

Date

参数

实例

实例（仅适用于 IE）

<script type="text/vbscript">

document.write("The current system date is: ")
document.write(Date)

</script>

以上实例输出结果：

document.write("The current system date is: ") document.write(Date)

尝试一下 »
VBScript 参考手册 完整的 VBScript 参考手册

相关文章

VBScript Time 函数

VBScript IsDate 函数

VBScript IsDate 函数返回 Boolean 值，表示表达式是否可以转换为日期。

VBScript 参考手册 完整的 VBScript 参考手册

IsDate 函数返回指示计算表达式能否转换为日期的布尔值。如果表达式是日期，或可被转换为日期，则返回 True 。否则，返回 False 。

注意：IsDate 函数使用本地设置来检测字符串是否可以转换为日期（在所有的语言中，"January" 不是一个月份）。

语法

IsDate(expression)

参数

参数 描述
expression 必需。要计算的表达式。

实例 1

合法日期：

<script type="text/vbscript">

document.write(IsDate("April 22, 1947"))
document.write("<br />")
document.write(IsDate(#01/31/10#))

</script>

以上实例输出结果：

True
True

尝试一下 »

实例 2

非法日期：

<script type="text/vbscript">

document.write(IsDate("#01/31/10#"))
document.write("<br />")
document.write(IsDate("52/17/2010"))
document.write("<br />")
document.write(IsDate("Hello World!"))

</script>

以上实例输出结果：

False
False
False

尝试一下 »

VBScript 参考手册 完整的 VBScript 参考手册

VBScript CDate 函数

VBScript CDate 函数返回表达式，此表达式已被转换为 Date 子类型的 Variant。

VBScript 参考手册 完整的 VBScript 参考手册

CDate 函数把有效的日期和时间表达式转换为日期（Date）类型，并返回结果。p>

提示：请使用 IsDate 函数来判断 date 是否可被转换为日期或时间。

注意：IsDate 函数使用本地设置来检测字符串是否可被转换为日期（在所有的语言中，"January"不是一个月份）。

语法

CDate(date)

参数

参数 描述
date 必需。任何有效的日期表达式（比如 Date() 或者 Now()）。

实例

实例 1

如何把字符串转换为日期：

<script type="text/vbscript">

d=CDate("April 22, 2010")

</script>

尝试一下 »

实例 2

如何把带分隔符的数字转换为日期：

<script type="text/vbscript">

d=CDate(#4/22/10#)

</script>

尝试一下 »

实例 3

如何使用 CDATE 把字符串转换为一个时间对象：

<script type="text/vbscript">

d=CDate("3:18:40 AM")

</script>

尝试一下 »

VBScript 参考手册 完整的 VBScript 参考手册

相关文章

VBScript IsDate 函数

VBScript Hour 函数

VBScript Hour 函数返回小时数，具体用法请参考本节内容。

VBScript 参考手册 完整的 VBScript 参考手册

Hour 函数返回一个 0 到 23 之间的代表天的小时数的数字。

语法

Hour(time)

参数

参数 描述
time 必需。任何可表示时间的表达式。

实例

实例 1

<script type="text/vbscript">

document.write(Hour("13:45"))

</script>

以上实例输出结果：

13

尝试一下 »

实例 2

<script type="text/vbscript">

document.write(Hour(Now()))

</script>

以上实例输出结果：

document.write(Hour(Now()))

尝试一下 »
VBScript 参考手册 完整的 VBScript 参考手册

VBScript FormatDateTime 函数

VBScript FormatDateTime 函数返回一个格式化为日期或时间的表达式。 

VBScript 参考手册 完整的 VBScript 参考手册

FormatDateTime 函数格式化并返回一个有效的日期或时间的表达式。

语法

FormatDateTime(date,format)

参数

参数 描述
date 必需。任何有效的日期表达式（比如 Date() 或者 Now()）。
format 可选。规定所使用的日期/时间格式的格式值。

可采用下面的值：

  • 0 = vbGeneralDate - 默认。返回日期：mm/dd/yy 及如果指定时间：hh:mm:ss PM/AM。
  • 1 = vbLongDate - 返回日期：weekday, monthname, year
  • 2 = vbShortDate - 返回日期：mm/dd/yy
  • 3 = vbLongTime - 返回时间：hh:mm:ss PM/AM
  • 4 = vbShortTime - 返回时间：hh:mm

实例

实例

用不同的格式显示日期：

<script type="text/vbscript">

d=CDate("2010-02-16 13:45")
document.write(FormatDateTime(d) & "<br />")
document.write(FormatDateTime(d,1) & "<br />")
document.write(FormatDateTime(d,2) & "<br />")
document.write(FormatDateTime(d,3) & "<br />")
document.write(FormatDateTime(d,4) & "<br />")

</script>

以上实例输出结果：

2/16/2010 1:45:00 PM
Tuesday, February 16, 2010
2/16/2010
1:45:00 PM
13:45

尝试一下 »

VBScript 参考手册 完整的 VBScript 参考手册

VBScript Day 函数

VBScript Day 函数用于返回日期。

VBScript 参考手册 完整的 VBScript 参考手册

Day 函数返回介于 1 到 31 之间的一个代表月的天数的数字。

语法

Day(date)

参数

参数 描述
date 必需。表示日期的任何表达式。

实例

实例

<script type="text/vbscript">

document.write(Day("2010-02-16"))

</script>

以上实例输出结果：

16

尝试一下 »

VBScript 参考手册 完整的 VBScript 参考手册

VBScript DateValue 函数

VBScript DateValue 函数返回 Date 子类型的 Variant。

VBScript 参考手册 完整的 VBScript 参考手册

DateValue 函数把字符串转换为 Date。

注意：如果日期中的年份部分被省略，那么函数会使用来自计算机系统日期的当前年份。

注意：如果 date 参数含有时间信息，那么时间信息不会被返回。如果日期中含有无效的时间信息，那么会发生 run-time 错误。

语法

DateValue(date)

参数

参数 描述
date 必需。一个介于 100 年 1 月 1 日到 9999 年 12 月 31 日的日期，或者任何可表示日期、时间或日期时间兼有的表达式。

实例

实例

<script type="text/vbscript">

document.write(DateValue("31-Jan-10"))
document.write("<br />")
document.write(DateValue("31-Jan"))

</script>

以上实例输出结果：

1/31/2010
1/31/2010

尝试一下 »

VBScript 参考手册 完整的 VBScript 参考手册

VBScript DateSerial 函数

VBScript DateSerial 函数对于指定的年、月、日，返回 Date 子类型的 Variant。

VBScript 参考手册 完整的 VBScript 参考手册

DateSerial 函数返回指定的年、月、日的子类型 Date 的 Variant 。

语法

DateSerial(year,month,day)

参数

参数 描述
year 必需。介于 100 到 9999 的数字，或数值表达式。介于 0 到 99 的值被视为 1900–1999。对于所有其他的 year 参数，请使用完整的 4 位年份。
month 必需的。任何数值表达式。
day 必需的。任何数值表达式。

实例

实例 1

<script type="text/vbscript">

document.write(DateSerial(2010,2,3))

</script>

以上实例输出结果：

2/3/2010

尝试一下 »

实例 2

减去 10 天：

<script type="text/vbscript">

document.write(DateSerial(2010,2,3-10))

</script>

以上实例输出结果：

1/24/2010

尝试一下 »

VBScript 参考手册 完整的 VBScript 参考手册