VBScript学习

最新推荐文章于 2019-07-03 19:14:14 发布

转载最新推荐文章于 2019-07-03 19:14:14 发布 · 119 阅读

文章标签：

#javascript #ViewUI

1.VBS学习01_按钮事件调用

Code

<HTML>

<HEAD>

<TITLE>VBS学习01_按钮事件调用</TITLE>

<!--

Sub ButtonX_OnClick

MsgBox "Hello,World!"

End Sub

-->

</SCRIPT>

</HEAD>

<BODY>

<INPUT NAME="Button1" TYPE="BUTTON"

VALUE="按钮1" OnClick='MsgBox "Hello,World!.1"'>

<!--

MsgBox "Hello,World!.2"

-->

</SCRIPT>

<!--

Sub Button3OnClick()

MsgBox "Hello,World!.3"

End Sub

-->

</SCRIPT>

<!--

Sub Button4_OnClick()

MsgBox "Hello,World!.4"

End Sub

-->

</SCRIPT>

</FORM>

</BODY>

</HTML>

2.VBS学习02_提交前非空相关验证

Code

<HTML>

<HEAD>

<TITLE>VBS学习02_提交前非空相关验证</TITLE>

<!--

Sub btn_Submit_OnClick

Dim blnOK

'Call Validate(blnOK)

Validate blnOK

If blnOK Then

MsgBox "OK"

Else

MsgBox "Sorry"

End If

End Sub

Function Validate(blnOK)

Dim TheForm

Set TheForm = Document.forms("Form1")

If TheForm.txt_Name.Value = "" Then

MsgBox "姓名不能为空!"

TheForm.txt_Name.Focus

blnOK = CBool(0)

Exit Function

End If

If TheForm.txt_Sex.Value = "" Then

MsgBox "性别不能为空!"

TheForm.txt_Sex.Focus

blnOK = CBool(0)

Exit Function

Else

If (TheForm.txt_Sex.Value <>"男") And (TheForm.txt_Sex.Value <>"女") Then

MsgBox "性别输入有误"

TheForm.txt_Sex.Select

blnOK = CBool(0)

Exit Function

End If

If TheForm.txt_Address.Value = "" Then

MsgBox "住址不能为空!"

TheForm.txt_Address.Focus

blnOK = CBool(0)

Exit Function

End If

blnOK = CBool(-1) '验证通过

End Function

-->

</SCRIPT>

</HEAD>

<BODY>

<TABLE>

<TR>

</TR>

<TR>

</TR>

<TR>

</TR>

<TR>

</TD>

</TR>

</TABLE>

</FORM>

</BODY>

</HTML>

3.VBS学习03_vbs与js交互

Code

<HTML>

<HEAD>

<TITLE>VBS学习03_vbs与js交互</TITLE>

<!--//

function btn2()

{

var numA,numB,sumValue;

numA = parseInt(document.Form1.txt_A.value);

numB = parseInt(document.Form1.txt_B.value);

sumValue = vbsSum(numA,numB);

alert("和"+sumValue);

document.Form1.txt_C.value = sumValue;

}

function jsSum(numA,numB)

{

var sumVaule;

sumVaule = numA + numB;

return sumVaule;

}

//-->

</script>

<!--

Sub btn1()

Dim numA,numB,sumValue

numA = CInt(Document.Form1.txt_A.Value)

numB = CInt(Document.Form1.txt_B.Value)

sumValue = jsSum(numA,numB)

MsgBox "和" & sumValue

Document.Form1.txt_C.Value = sumValue

End Sub

Function vbsSum(numA,numB)

Dim A,B

A = CInt(numA)

B = CInt(numB)

vbsSum = CStr(A+B)

End Function

-->

</SCRIPT>

</HEAD>

<BODY>

<TABLE>

<TR>

</TR>

<TR>

</TR>

<TR>

</TR>

<TR>

</TD>

</TR>

</TABLE>

</FORM>

</BODY>

</HTML>

4.VBS学习04_异常处理

Code

<HTML>

<HEAD>

<TITLE>VBS学习04_异常处理</TITLE>

<!--

Sub btn_Submit_OnClick

Dim numA,numB,numC

If Document.Form1.txt_A.Value = "" Then

MsgBox "被除数A 不能为空!"

Exit Sub

Else

On Error Resume Next

numA = CInt(Document.Form1.txt_A.Value)

If Err.Number<>0 Then

MsgBox ("Error # " & CStr(Err.Number) & " " & Err.Description)

MsgBox "被除数A 请输入有效整数数字"

Err.Clear '清除错误

On error goto 0

Exit Sub

End If

On Error Resume Next

If Document.Form1.txt_B.Value <>"" Then

On Error Resume Next

numB = CInt(Document.Form1.txt_B.Value)

If Err.Number<>0 Then

Err.Raise Err.Number

MsgBox ("Error # " & CStr(Err.Number) & " " & Err.Description)

MsgBox "除数B 请输入有效整数数字"

On error goto 0

End If

numC = numA/numB

If Err.Number<>0 Then

Err.Raise Err.Number

MsgBox ("Error # " & CStr(Err.Number) & " " & Err.Description)

Document.Form1.txt_C.Value = ""

Else

Document.Form1.txt_C.Value = numC

End If

'Err.Clear

'MsgBox Err.Number

On error goto 0

'MsgBox Err.Number

End Sub

-->

</SCRIPT>

</HEAD>

<BODY>

<TABLE>

<TR>

</TR>

<TR>

</TR>

<TR>

</TR>

<TR>

</TD>

</TR>

</TABLE>

</FORM>

</BODY>

</HTML>

5.VBS学习05_数组

Code

<HTML>

<HEAD>

<TITLE>VBS学习05_数组</TITLE>

<!--

Sub btn_TeacherArray_OnClick

Dim A

A = Array(10,20,30)

MsgBox "一维数组" & A(2)

Dim B(1,1)

B(0,0) = "1"

B(0,1) = "10"

B(1,0) = "2"

B(1,1) = "20"

MsgBox "二维数组" & B(1,0)

Dim C

C = Array(Array(1,10),Array(2,20))

MsgBox "二维数组" & C(1)(0)

Dim D()

ReDim D(1)

D(0) = "0"

D(1) = "1"

MsgBox "ReDim1 " & D(1)

ReDim D(2)

D(0) = "0"

D(1) = "10"

D(2) = "20"

MsgBox "ReDim2 " & D(1)

ReDim Preserve D(3)

D(3) = "30"

MsgBox "ReDim3 " & D(1)

ReDim D(1,1)

D(0,0) = "00"

D(0,1) = "01"

D(1,0) = "10"

D(1,1) = "11"

MsgBox "ReDim4 " & D(1,1)

'两个学校

' 每校三个年级

' 每年级四个班级

' 每班五名教师

' 2 * 3 * 4 * 5 = 120

'两个学校

' 每校两个年级

' 每年级两个班级

' 每班两名教师

' 2 * 2 * 2 * 2 = 16

Dim Teacher(1,1,1,1)

'A校一年级一班教师

Teacher(0,0,0,0) = "0000_A校一年级一班教师A111"

Teacher(0,0,0,1) = "0001_A校一年级一班教师A112"

'A校一年级二班教师

Teacher(0,0,1,0) = "0010_A校一年级二班教师A121"

Teacher(0,0,1,1) = "0011_A校一年级二班教师A122"

'A校二年级一班教师

Teacher(0,1,0,0) = "0100_A校二年级一班教师A211"

Teacher(0,1,0,1) = "0101_A校二年级一班教师A212"

'A校二年级二班教师

Teacher(0,1,1,0) = "0110_A校二年级二班教师A221"

Teacher(0,1,1,1) = "0111_A校二年级二班教师A222"

'B校一年级一班教师

Teacher(1,0,0,0) = "1000_B校一年级一班教师B111"

Teacher(1,0,0,1) = "1001_B校一年级一班教师B112"

'B校一年级二班教师

Teacher(1,0,1,0) = "1010_B校一年级二班教师B121"

Teacher(1,0,1,1) = "1011_B校一年级二班教师B122"

'B校二年级一班教师

Teacher(1,1,0,0) = "1100_B校二年级一班教师B211"

Teacher(1,1,0,1) = "1101_B校二年级一班教师B212"

'B校二年级二班教师

Teacher(1,1,1,0) = "1110_B校二年级二班教师B221"

Teacher(1,1,1,1) = "1111_B校二年级二班教师B222"

'A校一年级二级教师一

Dim t

t = Teacher(0,0,1,0)

MsgBox t

'遍历数组内容

Dim teachers

For Each teacher in Teacher

teachers = teachers & teacher

teachers = teachers & "<BR>"

MsgBox teachers

'Dictionary 对象

Dim dic '创建一个变量。

Set dic = CreateObject("Scripting.Dictionary")

dic.Add "a", "A" '添加键和项目。

dic.Add "b", "B"

dic.Add "c", "C"

MsgBox "dic.Count " & dic.Count

Dim dicArray ,i ,s

dicKeysArray = dic.Keys

dicItemsArray = dic.Items

For i=0 To dic.Count -1

s = s & dicKeysArray(i) & dicItemsArray(i) & "<BR>"

MsgBox s

MsgBox dic.Item("a")

End Sub

-->

</SCRIPT>

</HEAD>

<BODY>

</FORM>

</BODY>

</HTML>