精华区文章阅读

发信人: checcy (老巴夺), 信区: Software
标  题: 用VBScript制作活动主页
发信站: 哈工大紫丁香 (Fri Apr 10 01:14:35 1998), 转信

用VBScript制作活动主页

莫军
　　VBScript(Visual Basic Script Edition即VB原本编
制版)语言，是Microsoft Visual Basic for Applicatio
ns(VBA)和Microsoft Visual Basic的一个子集。通过Act
iveX控制本或HTML表单，我们可以方便地添加VBScript进
程，只要您已有一定的Visual Basic或VBA的开发经验，
便能轻松地使用VBScript，使自己的Web页获得非常专业的
效果。下面通过两个例子程序，介绍如何利用VBScript制
作自己的活动主页。
   表1 MsgBox对象的定义值
类型值
             按钮类型
   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函数，可以制作随意的Window
s对话框，其句法为：

　　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.输入对话框：
     表2
MsgBox的返回值
返回值
      点击按钮
   1
        OK
   2
       Cancel
   3
        Abort
   4
        Retry
   5
       Ignore
   6
        Yes
   7
        No

　　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(″请输入您的用户名″,″moj
un″)

　　有了以上函数，我们只要在HTML文档里加入以下VBSc
ript代码，运行时，当鼠标单击Commandbutton1按钮时，
屏幕将显示一消息对话框或输入对话框，与用户进行交互
式对话，其完整的HTML代码如下：

　　

　　

　　

　　

　　

　　

                           　　

                消息对话框显示样本

                           　　

                           　　

       　　  ″ value=″Click Me″>

                           　　

                           　　

　　

　　

　　二、制作随机欢迎页面

　　利用VBScript的时间函数Date()、Time()及Now()何
以制作一个根据当地的时间，而随机产生的欢迎主页页面
，根据使用的时间分别显示“早上好!”，“下午好!”，
“晚上好!”的欢迎词。具体代码如下：

　　

　　

　　

　　

　　

　　

　　

　　

                           　　

                          　　

                          　　

                　　欢迎您光临我的主页!

                          　　

                           　　

　　

　　

　　注：以上代码在Microsoft Internet Explorer上运
行，如要在Netscape Navigator上运行，须先安装ScriptA
ctive插件，本插件可以从http://www.ncopasslabs.com/
products/scripactive－link.htm上下载。

　　

　　

                           返回主页

--
Chengyan Che - Software Freelancer, Harbin, P.R.China
-----------------------------------------------------------
Do you need a software developer for your project or just
for your killer money-making idea? Drop me a line and let
me know how I can help you out!
mailto:checcy@public.hr.hl.cn
ICQ:5116726

--
☆ 来源:．哈工大紫丁香 bbs.hit.edu.cn．[FROM: checcy@public.hr.hl.]

Software 版 (精华区)