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:[] '未初始化的Variant 数字上下文则为0, 字符串上下文则为 "";

Null:[] '没有任何有效数据;

Integer:[] '-32768 - 32767之间的整数;

Long:[] '-2147483648 - 2147483647 整数

Single:[] '包含单精度浮点数

Double:[] '包含双精度浮点数

Currency:[] '-922337203685477.5805 - 922337203685477.5807

Date:[] '包含表示日期的数字

String:[] '包含边长字符串，最长可20亿个字符

Object:[] '包含对象

Error:[] '包含错误号

Boolean：[] 'true, false;

Byte:[] '0 - 255 整数;

Array:[] ': 数组

二、变量

　　在vbscript中的局部变量叫做（本地变量），全局变量叫做（script变量），局部变量在做用域内有效，当函数执行完释放。　　与js基本相同

1. 变量声明

　　声明的方式有 Dim 、 ReDim、 Public、 Private　　

注意

　　在VBScript中以上声明不能直接赋值的、声明多个变量使用逗号隔开且在作用域内必须唯一

Dim Top,Left

Left = "zuo"

Right = "you"

　　隐式声明

　　与js相似未定义就是用的变量，会成为全局变量

2. 常量声明

　　Const　　可以直接赋值

Const Age =

3. 数组　　（没用过数组）

　　声明一维数组

dim name()    '创建一个3个变量的  一维数组

name() = "weibin"    '数组第0位 赋值 "weibin"

name() = "jiahang"

name() = "yangming"

　　声明二维数组

Dim Arr(,) ' 创建了一个 6行2列的二维数组

Arr(, ) = '00'

Arr(, ) = '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 =  Then

    MsgBox "i=10 msg out!"

    '....

    '....

End If

'Then执行多行代码时结尾要用 end If 表示结束

2. If Then Else

If I =  Then

    MsgBox "I = 10 !"

ElseIf I =  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 =  to  Step

    ......

Next

　　Next 的步长默认为1，默认步长为1时可不写Step，

　　当要更改步长的时候则需要设置 Step 且 step 可以为负数

　　2. for each

dim names()

name() = "weibin"

name() = "yangming"

name() = "wujiamei"

for each x in names

    document.write(x & '<br/>')

next

　　3. do while ...loop

dim i

i =

do while  <

    document.write(i & "<br>"")

    i = i +

loop

　　4. do until

Sub doUntil()

    dim i, times

    i =

    times =

    do until i =

        i = i +

        times = times +

    loop

    msgbox"循环了" & times & "次！"

End Sub

doUntil        '调用sub

七、 IE中的VBScript

　　1.绑定事件

　　定义 name/id _ 事件类型的过程就会给与 name/id 相对应的DOM绑定事件，且事件基本和js相同

<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. 获取表单值

　　document.forms("id/name")* 获取form表单对象,

<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=

   height=

   align=left

>

<PARAM NAME="Angle" VALUE="">

<PARAM NAME="Alignment" VALUE="">

<PARAM NAME="BackStyle" VALUE="">

</OBJECT>

巴特西

VBScript（一）

最新文章

热门文章