VBScript学习
1.VBS学习01_按钮事件调用
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>
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>
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>
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>
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>
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>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 IfEnd SubFunction 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 = sumValueEnd SubFunction 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.NumberEnd 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>posted on 2008-02-02 15:05 freeliver54 阅读(952) 评论(0) 编辑 收藏 举报
