Code
<HTML>
<HEAD>
<TITLE>VBS学习01_按钮事件调用</TITLE>
<SCRIPT LANGUAGE="VBScript">
<!--
Sub ButtonX_OnClick
MsgBox "Hello,World!"
End Sub
-->
</SCRIPT>
</HEAD>
<BODY>
<FORM NAME="Form1">
<INPUT NAME="Button1" TYPE="BUTTON"
VALUE="按钮1" OnClick='MsgBox "Hello,World!.1"'>
<INPUT NAME="Button2" TYPE="BUTTON" VALUE="按钮2">
<SCRIPT LANGUAGE="VBScript" EVENT="OnClick" FOR="Button2">
<!--
MsgBox "Hello,World!.2"
-->
</SCRIPT>
<INPUT NAME="Button3" TYPE="BUTTON" VALUE="按钮3" OnClick="Button3OnClick()" >
<SCRIPT LANGUAGE="VBScript">
<!--
Sub Button3OnClick()
MsgBox "Hello,World!.3"
End Sub
-->
</SCRIPT>
<INPUT NAME="Button4" TYPE="BUTTON" VALUE="按钮4">
<SCRIPT LANGUAGE="VBScript">
<!--
Sub Button4_OnClick()
MsgBox "Hello,World!.4"
End Sub
-->
</SCRIPT>
</FORM>
</BODY>
</HTML>
<HTML>
<HEAD>
<TITLE>VBS学习01_按钮事件调用</TITLE>
<SCRIPT LANGUAGE="VBScript">
<!--
Sub ButtonX_OnClick
MsgBox "Hello,World!"
End Sub
-->
</SCRIPT>
</HEAD>
<BODY>
<FORM NAME="Form1">
<INPUT NAME="Button1" TYPE="BUTTON"
VALUE="按钮1" OnClick='MsgBox "Hello,World!.1"'>
<INPUT NAME="Button2" TYPE="BUTTON" VALUE="按钮2">
<SCRIPT LANGUAGE="VBScript" EVENT="OnClick" FOR="Button2">
<!--
MsgBox "Hello,World!.2"
-->
</SCRIPT>
<INPUT NAME="Button3" TYPE="BUTTON" VALUE="按钮3" OnClick="Button3OnClick()" >
<SCRIPT LANGUAGE="VBScript">
<!--
Sub Button3OnClick()
MsgBox "Hello,World!.3"
End Sub
-->
</SCRIPT>
<INPUT NAME="Button4" TYPE="BUTTON" VALUE="按钮4">
<SCRIPT LANGUAGE="VBScript">
<!--
Sub Button4_OnClick()
MsgBox "Hello,World!.4"
End Sub
-->
</SCRIPT>
</FORM>
</BODY>
</HTML>
2. VBS学习02_提交前非空相关验证
Code
<HTML>
<HEAD>
<TITLE>VBS学习02_提交前非空相关验证</TITLE>
<SCRIPT LANGUAGE="VBScript">
<!--
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
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>
<FORM NAME="Form1">
<TABLE>
<TR>
<TD>姓名</TD>
<TD><INPUT NAME="txt_Name" TYPE="TEXT" ></TD>
</TR>
<TR>
<TD>性别</TD>
<TD><INPUT NAME="txt_Sex" TYPE="TEXT" ></TD>
</TR>
<TR>
<TD>住址</TD>
<TD><INPUT NAME="txt_Address" TYPE="TEXT" ></TD>
</TR>
<TR>
<TD COLSPAN="2" ALIGN="CENTER">
<INPUT TYPE="Button" NAME="btn_Submit" VALUE="提交前非空及验证" >
</TD>
</TR>
</TABLE>
</FORM>
</BODY>
</HTML>
<HTML>
<HEAD>
<TITLE>VBS学习02_提交前非空相关验证</TITLE>
<SCRIPT LANGUAGE="VBScript">
<!--
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
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>
<FORM NAME="Form1">
<TABLE>
<TR>
<TD>姓名</TD>
<TD><INPUT NAME="txt_Name" TYPE="TEXT" ></TD>
</TR>
<TR>
<TD>性别</TD>
<TD><INPUT NAME="txt_Sex" TYPE="TEXT" ></TD>
</TR>
<TR>
<TD>住址</TD>
<TD><INPUT NAME="txt_Address" TYPE="TEXT" ></TD>
</TR>
<TR>
<TD COLSPAN="2" ALIGN="CENTER">
<INPUT TYPE="Button" NAME="btn_Submit" VALUE="提交前非空及验证" >
</TD>
</TR>
</TABLE>
</FORM>
</BODY>
</HTML>
3. VBS学习03_vbs与js交互
Code
<HTML>
<HEAD>
<TITLE>VBS学习03_vbs与js交互</TITLE>
<script language="javascript">
<!--//
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>
<SCRIPT LANGUAGE="VBScript">
<!--
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>
<FORM NAME="Form1">
<TABLE>
<TR>
<TD>加数A</TD>
<TD><INPUT NAME="txt_A" TYPE="TEXT" VALUE="1" ></TD>
</TR>
<TR>
<TD>加数B</TD>
<TD><INPUT NAME="txt_B" TYPE="TEXT" VALUE="2" ></TD>
</TR>
<TR>
<TD>和值</TD>
<TD><INPUT NAME="txt_C" TYPE="TEXT" ></TD>
</TR>
<TR>
<TD COLSPAN="2" ALIGN="CENTER">
<INPUT NAME="Button1" TYPE="BUTTON" VALUE="vbs调用js" OnClick="btn1()" >
<INPUT NAME="Button2" TYPE="BUTTON" VALUE="js调用vbs" onclick="btn2();" >
</TD>
</TR>
</TABLE>
</FORM>
</BODY>
</HTML>
<HTML>
<HEAD>
<TITLE>VBS学习03_vbs与js交互</TITLE>
<script language="javascript">
<!--//
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>
<SCRIPT LANGUAGE="VBScript">
<!--
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>
<FORM NAME="Form1">
<TABLE>
<TR>
<TD>加数A</TD>
<TD><INPUT NAME="txt_A" TYPE="TEXT" VALUE="1" ></TD>
</TR>
<TR>
<TD>加数B</TD>
<TD><INPUT NAME="txt_B" TYPE="TEXT" VALUE="2" ></TD>
</TR>
<TR>
<TD>和值</TD>
<TD><INPUT NAME="txt_C" TYPE="TEXT" ></TD>
</TR>
<TR>
<TD COLSPAN="2" ALIGN="CENTER">
<INPUT NAME="Button1" TYPE="BUTTON" VALUE="vbs调用js" OnClick="btn1()" >
<INPUT NAME="Button2" TYPE="BUTTON" VALUE="js调用vbs" onclick="btn2();" >
</TD>
</TR>
</TABLE>
</FORM>
</BODY>
</HTML>
4. VBS学习04_异常处理
Code
<HTML>
<HEAD>
<TITLE>VBS学习04_异常处理</TITLE>
<SCRIPT LANGUAGE="VBScript">
<!--
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
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
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>
<FORM NAME="Form1">
<TABLE>
<TR>
<TD>被除数A</TD>
<TD><INPUT NAME="txt_A" TYPE="TEXT" ></TD>
</TR>
<TR>
<TD>除数B</TD>
<TD><INPUT NAME="txt_B" TYPE="TEXT" ></TD>
</TR>
<TR>
<TD>商C</TD>
<TD><INPUT NAME="txt_C" TYPE="TEXT" ></TD>
</TR>
<TR>
<TD COLSPAN="2" ALIGN="CENTER">
<INPUT TYPE="Button" NAME="btn_Submit" VALUE="确定" >
</TD>
</TR>
</TABLE>
</FORM>
</BODY>
</HTML>
<HTML>
<HEAD>
<TITLE>VBS学习04_异常处理</TITLE>
<SCRIPT LANGUAGE="VBScript">
<!--
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
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
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>
<FORM NAME="Form1">
<TABLE>
<TR>
<TD>被除数A</TD>
<TD><INPUT NAME="txt_A" TYPE="TEXT" ></TD>
</TR>
<TR>
<TD>除数B</TD>
<TD><INPUT NAME="txt_B" TYPE="TEXT" ></TD>
</TR>
<TR>
<TD>商C</TD>
<TD><INPUT NAME="txt_C" TYPE="TEXT" ></TD>
</TR>
<TR>
<TD COLSPAN="2" ALIGN="CENTER">
<INPUT TYPE="Button" NAME="btn_Submit" VALUE="确定" >
</TD>
</TR>
</TABLE>
</FORM>
</BODY>
</HTML>
5. VBS学习05_数组
Code
<HTML>
<HEAD>
<TITLE>VBS学习05_数组</TITLE>
<SCRIPT LANGUAGE="VBScript">
<!--
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>"
Next
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>"
Next
MsgBox s
MsgBox dic.Item("a")
End Sub
-->
</SCRIPT>
</HEAD>
<BODY>
<FORM NAME="Form1">
<INPUT TYPE="Button" NAME="btn_TeacherArray" VALUE="教师数组" >
</FORM>
</BODY>
</HTML>
<HTML>
<HEAD>
<TITLE>VBS学习05_数组</TITLE>
<SCRIPT LANGUAGE="VBScript">
<!--
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>"
Next
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>"
Next
MsgBox s
MsgBox dic.Item("a")
End Sub
-->
</SCRIPT>
</HEAD>
<BODY>
<FORM NAME="Form1">
<INPUT TYPE="Button" NAME="btn_TeacherArray" VALUE="教师数组" >
</FORM>
</BODY>
</HTML>