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>