郭宝贵老师第3章VBScript语言.pdfVIP

第3章 VBScript语言 【例3.1 】本例在表单中添加一个普通按钮，并在HEAD 部分编写脚本代码以响应窗体中 按钮的单击事件（onClick ），如图3.1 所示。 3-01.htm HTML HEAD TITLE测试按钮事件/TITLE SCRIPT LANGUAGE = VBScript FOR = Button1 EVENT = onClick MsgBox 按钮被单击！ /SCRIPT /HEAD BODY FORM NAME = Form1 INPUT TYPE = button NAME = Button1 VALUE = 请单击这里 /FORM /BODY /HTML 【例3.2 】编写一个HTML 网页，在浏览器中打开该网页时调用MsgBox 函数来显示一个 信息框并返回单击的按钮的值，如图3.2 所示。 3-02.htm HTML HEAD TITLEMsgBox函数应用示例/TITLE SCRIPT LANGUAGE = VBScript Sub ShowMsgBox () Dim MyVar, prompt, buttons, title prompt = 欢迎你使用VBScript语言编写脚本代码 ! buttons = vbOKCancel+vbInformation title = MsgBox函数应用示例 ( ) MyVar = MsgBox prompt, buttons, title End Sub 第3 章 VBScript 语言 61 /SCRIPT /HEAD BODY onLoad = ShowMsgBox FONT FACE = 楷体_GB2312 COLOR = red 在浏览器中打开本页面时，将调用MsgBox函数显示一个对话框。/FONT /BODY /HTML 【例3.3】本例利用 InputBox 函数显示一个输入框并将字符串赋值给变量，然后利用 MsgBox 函数显示该变量的值，如图3.3 和图3.4 所示。 3-03.htm HTML HEAD TITLEInputBox 函数应用示例/TITLE SCRIPT LANGUAGE = VBScript Sub InputOutput () Dim UserName, MyVar ( ) UserName = InputBox 请输入你的尊姓大名：,InputBox函数应用示例 ( ) Myvar = MsgBox 欢迎你， UserName,vbOKl+vbInformation, 欢迎 End Sub /SCRIPT /HEAD BODY onLoad=InputOutput FONT FACE = 楷体_GB2312 COLOR = red 在浏览器中打开本页面时，将调用 InputBox函数显示一个输入框，提示用户输入姓名，然后调用MsgBox函数显示一个对话框， 对该用户表示欢迎。/FONT /BODY /HTML 【例3.4 】编写一个求最大值的HTML 页面，输入两个整数并求出较大者，如图3.5 所