用VBScript制作活动主页

2/27/2006来源:Visual Basic教程人气:8507

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上下载。->