VBScript(VisualBasicScriptEdition即VB原本编制版)语言，是MicrosoftVisualBasicforApplications(VBA)和MicrosoftVisualBasic的一个子集。通过ActiveX控制本或HTML表单，我们可以方便地添加VBScript进程，只要您已有一定的VisualBasic或VBA的开发经验，便能轻松地使用VBScript，使自己的Web页获得非常专业的效果。下面通过两个例子程序，介绍如何利用VBScript制作自己的活动主页。
　　表1MsgBox对象的定义值
　　类型值
　　按钮类型
　　0只显示OK（确定）按钮
　　1显示OK（确定）和Cancel
　　（取销）按钮
　　2显示Abort(放弃),Retry(重试)
　　和Ingore(忽略)按钮
　　3显示Yes、No按Cancel按钮
　　4显示Yes和No按钮
　　5显示Retry（重试）和Cancel
　　（取消）按钮
　　类型值图标类型
　　0没有图标
　　16显示“停止”图标
　　32显示“问号”图标
　　48显示“惊叹号”图标
　　64显示“信息”图标
　　类型值默认按钮类型
　　0第一个按钮设为默认按钮
　　256第二个按钮设为默认按钮
　　512第三个按钮设为默认按钮
　　
　　一、创建定制的消息、输入对话框
　　
　　1.消息对话框
　　
　　利用VBScript的MsgBox函数，可以制作随意的Windows对话框，其句法为：
　　
　　Response=MsgBox(MessageText,Type,Title)
　　
　　其中：
　　
　　·MessageText是一个字符串，它指定消息框将显示的消息文本。
　　
　　·Type是一个数值，它指定消息框的按钮个数、类型以及使用的图标和默认按钮，其具体类型见表1。
　　
　　·Title是一个字符串，它指定消息框顶部的标题文本。
　　
　　·Response是一个数值变量，它返回MsgBox函数的返回值，其返回值如表2。
　　
　　表1中三种类型中任选一组，将它们对应的值加在一起，便组合成不同的消息框，例如：要显示一个有Yes、No和Cancel按钮组合，并显示一个问号图标，同时将No设为默认按钮，则只须选择第一组中类型值为3，第二组中类型值为32，第三组中类型值为256，进行组合，MsgBox函数的Type变量值设置成3＋32＋256=291即可。
　　
　　2.输入对话框：
　　表2MsgBox的返
　　回值
　　返回值
　　点击按钮
　　1OK
　　2Cancel
　　3Abort
　　4Retry
　　5Ignore
　　6Yes
　　7No
　　VBScript的另一函数InputBox，利用它可在对话框里使用自己的窗口标题，并能将对话框定位于主页的任何位置上，其句法为：
　　
　　Response=InputBox(″消息″、″标题″、″默认文本″、xpos、ypos)
　　
　　其中xpos代表对话框左侧离屏幕左边界的距离，ypos代表对话框右侧离屏幕右边界的距离。
　　
　　3.内建Windows对话框：
　　
　　警告框x=window.alert(msg)
　　
　　确认框
　　
　　x=window.confirm(msg)
　　
　　提示输入框
　　
　　x=window.prompt(msg,default)
　　
　　其中msg为消息框显示的消息。Default为提示框默认输入值。
　　
　　例：x=window.prompt(″请输入您的用户名″,″mojun″)
　　
　　有了以上函数，我们只要在HTML文档里加入以下VBScript代码，运行时，当鼠标单击Commandbutton1按钮时，屏幕将显示一消息对话框或输入对话框，与用户进行交互式对话，其完整的HTML代码如下：
　　
　　
　　消息对话框显示样本
　　
　　″value=″ClickMe″
　　
　　二、制作随机欢迎页面
　　
　　利用VBScript的时间函数Date()、Time()及Now()何以制作一个根据当地的时间，而随机产生的欢迎主页页面，根据使用的时间分别显示“早上好!”，“下午好!”，“晚上好!”的欢迎词。具体代码如下：
　　
　　欢迎您光临我的主页!
　　注：以上代码在MicrosoftInternetExplorer上运行，如要在NetscapeNavigator上运行，须先安装ScriptActive插件，本插件可以从http://www.ncopasslabs.com/products/scripactive－link.htm上下载。->