◎Empty 未初始化的Variant。对于数值变量,值为 0;对于字符串变量,值为零长度字符串("")。
Null 不包含任何有效数据的Variant。
Boolean 包含 True 或 False。
Byte 包含 0 到 255之间的整数。
Integer 包含 -32,768 到 32,767 之间的整数。
Currency -922,337,203,685,477.5808 到922,337,203,685,477.5807。
Long 包含 -2,147,483,648 到2,147,483,647 之间的整数。
Single 包含单精度浮点数,负数范围从-3.402823E38 到 -1.401298E-45,正数范围从 1.401298E-45 到3.402823E38。
Double 包含双精度浮点数,负数范围从-1.79769313486232E308 到 -4.94065645841247E-324,正数范围从4.94065645841247E-324 到 1.79769313486232E308。
Date(Time) 包含表示日期的数字,日期范围从公元 100年 1 月 1 日到公元 9999 年 12 月 31 日。
String 包含变长字符串,最大长度可为 20亿个字符。
Object 包含对象。
Error 包含错误号。
Null 不包含任何有效数据的Variant。
Boolean 包含 True 或 False。
Byte 包含 0 到 255之间的整数。
Integer 包含 -32,768 到 32,767 之间的整数。
Currency -922,337,203,685,477.5808 到922,337,203,685,477.5807。
Long 包含 -2,147,483,648 到2,147,483,647 之间的整数。
Single 包含单精度浮点数,负数范围从-3.402823E38 到 -1.401298E-45,正数范围从 1.401298E-45 到3.402823E38。
Double 包含双精度浮点数,负数范围从-1.79769313486232E308 到 -4.94065645841247E-324,正数范围从4.94065645841247E-324 到 1.79769313486232E308。
Date(Time) 包含表示日期的数字,日期范围从公元 100年 1 月 1 日到公元 9999 年 12 月 31 日。
String 包含变长字符串,最大长度可为 20亿个字符。
Object 包含对象。
Error 包含错误号。
◎VBScript客户端代码与事件绑定的方法
1,<script language="VBScript" FOR="控件名\" EVENT="onClick">
2,Sub Button1_OnClick
3,<input type="botton" name="name1"value="提交" OnClick="过程">
1,<script language="VBScript" FOR="控件名\" EVENT="onClick">
2,Sub Button1_OnClick
3,<input type="botton" name="name1"value="提交" OnClick="过程">
◎optionexplicit 强制要求变量声明
◎dim 声明变量
◎vartype() 变量类型测试,返回数字
◎msgbox() 弹出对话框
◎dimA(10) 定义数组A含有0-10之间的11个元素,注意是11个元素
◎redimA(20) 修改数组,会丢失已有数据,redimpreserve A(20) 保留原值的重定义
◎constA=10 定义常数A,值为10
◎sub……endsub 定义过程,只能调用,不能返回值
◎function……endfunction 定义函数,函数内部与函数同名的变量即作为返回值
◎inputbox(prompt[,title][,default][,xpos][,ypos][,helpfile,context])其返回值为取得的输入值
prompt 提示文字,字符串表达式最大1024字符,连接字符为&,其中回车chr(13),换行符chr(10),回车和换行的组合chr(13)&chr(10)
title 标题
default 默认值
xpos 左边距离
ypos 上边距离
helpfile 字符串表达式,用来提供帮助文件
context 数值表达式,指定帮助主题的编号
◎msgbox(prompt[,buttons][,title][,helpfile,context])弹出消息框
prompt 消息框中的内容,字符串表达式,也可以使用回车符等,用&连接
buttons 数值表达式,指定按钮的数目和类型、使用的图标样式
英文表示 代码 效果
vbOKOnly 0 只显示确定按钮。
vbOKCancel 1 显示确定和取消按钮。
vbAbortRetryIgnore 2 显示放弃、重试和忽略按钮。
vbYesNoCancel 3 显示是、否和取消按钮。
vbYesNo 4 显示是和否按钮。
vbRetryCancel 5 显示重试和取消按钮。
vbCritical 16 显示临界信息图标。
vbQuestion 32 显示警告查询图标。
vbExclamation 48 显示警告消息图标。
vbInformation 64 显示信息消息图标。
vbDefaultButton1 0 第一个按钮为默认按钮。
vbDefaultButton2 256 第二个按钮为默认按钮。
vbDefaultButton3 512 第三个按钮为默认按钮。
vbDefaultButton4 768 第四个按钮为默认按钮。
vbApplicationModal 0 应用程序模式:用户必须响应消息框才能继续在当前应用程序中工作。
vbSystemModal 4096 系统模式:在用户响应消息框前,所有应用程序都被挂起。
第一组值 (0 - 5)用于描述对话框中显示的按钮类型与数目;第二组值 (16, 32, 48, 64)用于描述图标的样式;第三组值 (0, 256, 512)用于确定默认按钮;而第四组值 (0, 4096)则决定消息框的样式。在将这些数字相加以生成 buttons参数值时,只能从每组值中取用一个数字,也可以将英文表示用加号相连。
title 字符串表达式,对话框标题
返回值列表
英文表示 数值 按钮
vbOK 1 确定
vbCancel 2 取消
vbAbort 3 放弃
vbRetry 4 重试
vbIgnore 5 忽略
vbYes 6 是
vbNo 7 否
prompt 提示文字,字符串表达式最大1024字符,连接字符为&,其中回车chr(13),换行符chr(10),回车和换行的组合chr(13)&chr(10)
title 标题
default 默认值
xpos 左边距离
ypos 上边距离
helpfile 字符串表达式,用来提供帮助文件
context 数值表达式,指定帮助主题的编号
◎msgbox(prompt[,buttons][,title][,helpfile,context])弹出消息框
prompt 消息框中的内容,字符串表达式,也可以使用回车符等,用&连接
buttons 数值表达式,指定按钮的数目和类型、使用的图标样式
英文表示 代码 效果
vbOKOnly 0 只显示确定按钮。
vbOKCancel 1 显示确定和取消按钮。
vbAbortRetryIgnore 2 显示放弃、重试和忽略按钮。
vbYesNoCancel 3 显示是、否和取消按钮。
vbYesNo 4 显示是和否按钮。
vbRetryCancel 5 显示重试和取消按钮。
vbCritical 16 显示临界信息图标。
vbQuestion 32 显示警告查询图标。
vbExclamation 48 显示警告消息图标。
vbInformation 64 显示信息消息图标。
vbDefaultButton1 0 第一个按钮为默认按钮。
vbDefaultButton2 256 第二个按钮为默认按钮。
vbDefaultButton3 512 第三个按钮为默认按钮。
vbDefaultButton4 768 第四个按钮为默认按钮。
vbApplicationModal 0 应用程序模式:用户必须响应消息框才能继续在当前应用程序中工作。
vbSystemModal 4096 系统模式:在用户响应消息框前,所有应用程序都被挂起。
第一组值 (0 - 5)用于描述对话框中显示的按钮类型与数目;第二组值 (16, 32, 48, 64)用于描述图标的样式;第三组值 (0, 256, 512)用于确定默认按钮;而第四组值 (0, 4096)则决定消息框的样式。在将这些数字相加以生成 buttons参数值时,只能从每组值中取用一个数字,也可以将英文表示用加号相连。
title 字符串表达式,对话框标题
返回值列表
英文表示 数值 按钮
vbOK 1 确定
vbCancel 2 取消
vbAbort 3 放弃
vbRetry 4 重试
vbIgnore 5 忽略
vbYes 6 是
vbNo 7 否
◎DHTML对象中Document对象的应用
应用举例:
<SCRIPT LANGUAGE="VBScript">
<!--
SubButton1_OnClick '定义过程,相应Button1的OnClick事件
Dim TheForm,text1v
Set TheForm =Document.formname2 '用SET将TheForm声明成一个对象
text1v=Theform.Text1.value
theform.text1.value="haha" '修改TEXT1的VALUE值
MsgBox(text1v)
End Sub
-->
</SCRIPT>
<FORM NAME="formname2">
请输入一个数字:
<INPUT NAME="Text1" TYPE="TEXT" size=3>
<INPUT NAME="Button1" TYPE="BUTTON" VALUE="提交">
</FORM>
可以读取输入的值。
document对象控制所有HTML语言中写在代码里面的内容,它可以读取和修改HTML语言的代码,也可以控制表单对象。
应用举例:
<SCRIPT LANGUAGE="VBScript">
<!--
SubButton1_OnClick '定义过程,相应Button1的OnClick事件
Dim TheForm,text1v
Set TheForm =Document.formname2 '用SET将TheForm声明成一个对象
text1v=Theform.Text1.value
theform.text1.value="haha" '修改TEXT1的VALUE值
MsgBox(text1v)
End Sub
-->
</SCRIPT>
<FORM NAME="formname2">
请输入一个数字:
<INPUT NAME="Text1" TYPE="TEXT" size=3>
<INPUT NAME="Button1" TYPE="BUTTON" VALUE="提交">
</FORM>
可以读取输入的值。
document对象控制所有HTML语言中写在代码里面的内容,它可以读取和修改HTML语言的代码,也可以控制表单对象。
◎ if……then……else……end if
应用举例:
sub FixDate()
Dim myDate
myDate=#2/13/95#
if myDate<Now Then '其中Now为当前时间函数
myDate=Now
end if
end sub
应用举例:
sub FixDate()
Dim myDate
myDate=#2/13/95#
if myDate<Now Then '其中Now为当前时间函数
myDate=Now
end if
end sub
◎if……then……elseif……then……elseif……else……end if
◎条件判断语句:A>2 ? B=1:B=2
如果A>2则赋值B=1,否则赋值B=2
如果A>2则赋值B=1,否则赋值B=2
◎选择分支语句:
select case 表达式
case"值1"
执行过程1
case"值2"
执行过程2
case"值3"
执行过程3
case"值4"
执行过程4
……
caseelse '默认值,即如果不符合上述判断的情况
执行默认过程
end select
select case 表达式
case"值1"
执行过程1
case"值2"
执行过程2
case"值3"
执行过程3
case"值4"
执行过程4
……
caseelse '默认值,即如果不符合上述判断的情况
执行默认过程
end select