VBScript（一）
visual basic Script
好像是以个老掉牙的服务器端脚本语言，低版本的IE浏览器支持在浏览器里执行
几个特点
1. 大小写不敏感
2.在服务器端 inputBox, msgBox不被支持
3. 在服务器端 以 <%%> 包裹vbs的代码 与 html混编
4. 使用单引号 ' 注释
5. 插入到html页面
<script type="text/vbscript"> .... </script>
6. 变量命名 最好大驼峰
7. 标准嵌套 缩进4格、 注释缩进1格
一、数据类型
VBScript有唯一的数据类型 Variant，
Variant类型有多个子类型
Empty, Null, Boolean, Byte, Integer, Currency, Long,
Single, Double, Date, String, Object, Error
VarType获取子类型 []内为返回值
Empty:[0] '未初始化的Variant 数字上下文则为0, 字符串上下文则为 ""; Null:[1] '没有任何有效数据; Integer:[2] '-32768 - 32767之间的整数; Long:[3] '-2147483648 - 2147483647 整数 Single:[4] '包含单精度浮点数 Double:[5] '包含双精度浮点数 Currency:[6] '-922337203685477.5805 - 922337203685477.5807 Date:[7] '包含表示日期的数字 String:[8] '包含边长字符串，最长可20亿个字符 Object:[9] '包含对象 Error:[10] '包含错误号 Boolean：[11] 'true, false; Byte:[17] '0 - 255 整数; Array:[8192] ': 数组
二、变量
在vbscript中的局部变量叫做（本地变量），全局变量叫做（script变量），局部变量在做用域内有效，当函数执行完释放。 与js基本相同
1. 变量声明
声明的方式有 Dim 、 ReDim、 Public、 Private
注意
在VBScript中 以上声明不能直接赋值的、声明多个变量使用 逗号 隔开 且在作用域内必须唯一
Dim Top,Left Left = "zuo" Right = "you"
隐式声明
与js相似 未定义就是用的变量，会成为全局变量
2. 常量声明
Const 可以直接赋值
Const Age = 17
3. 数组 （没用过数组）
声明一维数组
dim name(2) '创建一个3个变量的 一维数组 name(0) = "weibin" '数组第0位 赋值 "weibin" name(1) = "jiahang" name(2) = "yangming"
声明二维数组
Dim Arr(5,1) ' 创建了一个 6行2列的二维数组 Arr(0, 0) = '00' Arr(0, 1) = '01' .... ....
三 、 运算符
求幂: ^ 负号: - 乘号: * 除号: / 整除：\ 求余: Mod 加号: + 减号: - 字符串拼接: & 等于: = 不等于: <> 大于：> 小于: < 大于等于: >= 小于等于: <= 对象引用比较: Is 逻辑非: Not 逻辑与: And 逻辑或: Or 逻辑异或: Xor 逻辑等价: Eqv 逻辑隐含：Imp
四、 VBScript程序
1. 子程序 Sub
Sub MySub () ... End Sub
封装在 Sub 和 EndSub内， 执行多条操作但不返回值，
调用 使用 函数名加空格加参数 参数以, 分开 或者 call 函数名 (参数1,参数2,...)
2. 函数程序
Function myfun () ... myfun = "some return value" '要在结尾 用自身函数名设置返回值 End function
又返回值，调用时 要用 函数名(参数)
五 、 条件语句
1. If ... Then
If I = 10 Then MsgBox "i=10 msg out!" '.... '.... End If 'Then执行多行代码时结尾要用 end If 表示结束
2. If Then Else
If I = 10 Then MsgBox "I = 10 !" ElseIf I = 9 then MsgBox "I = 9 !" Else MsgBox "not 10 and not 9! " End If
3.Select Case
Select Case direction Case "up" msgbox "north" Case "right" msgbox "east" Case "left" msgbox "west" Case Else msgbox "south" End select
六、 循环语句
1. For ... Next
For i = 1 to 10 Step 2 ...... Next
2. for each
dim names(2) name(0) = "weibin" name(1) = "yangming" name(2) = "wujiamei" for each x in names document.write(x & '<br/>') next
3. do while ...loop
dim i i = 0 do while 1 < 10 document.write(i & "<br>"") i = i + 1 loop
4. do until
Sub doUntil() dim i, times i = 0 times = 0 do until i = 10 i = i + 1 times = times + 1 loop msgbox"循环了" & times & "次！" End Sub doUntil '调用sub
七、 IE中的VBScript
1.绑定事件
<input type="button" name="btn" value="sayHello!"> <script type="text/vbscript"> sub btn_onclick document.write("hello world!") end sub </script>
另一种方法 在行间直接 事件=过程
<div onclick='msgbox "hello world!"'>clickMe!</div>
2. 获取表单值
<form id="formList" onsubmit="getFormData()"> <input type="text" name="inp" id="inpt"> <input type="submit" name="sub" value="send"> </form> <script type="text/vbscript"> sub getFormData dim formList set formList = document.forms("formList") if isnumeric(formList.inpt.value) then document.write("is number") else document.write("is not number") end if end sub </script>
3.创建对象
<OBJECT width=250 height=250 align=left > <PARAM NAME="Angle" VALUE="90"> <PARAM NAME="Alignment" VALUE="4"> <PARAM NAME="BackStyle" VALUE="0"> </OBJECT>
