2024年4月1日发(作者：)

维普资讯

・

３６・　Ｃｏｍｐｕｔｅｒ　Ｅｒａ　Ｎｏ．１　０　２００２　

利用ＡＳＰ将Ｄｏｍ　ｉ　ｎｏ／Ｎ　ｏｔｅｓ数据嵌入Ｗｅｂ页中　

程　杰　

（通信指挥学院图书馆，湖北武汉４３００１０）　

摘　要：通过将Ｄｏｍｉｎｏ／Ｎｏｔｅｓ数据库文档的题名和网址输入到ＳＱＬ　Ｓｅｒｖｅｒ数据库中，在Ｗｅｂ中使用ＡＳＰ检索可以方　

便灵活地将其动态地嵌入到任何地方。　

关键词：ＡＳＰ；Ｄｏｍｉｎｏ／Ｎｏｔｅｓ；ｏＤＢＣ；ＳＱＬ　

Ｄｏｍｉｎｏ／Ｎｏｔｅｓ是美国Ｌｏｔｕｓ公司推出的群组工作软件（群　

件），现已被广泛应用于办公自动化、协同工作环境、工作流控　

制等方面，它提供了功能强大的多媒体共享文档数据库和电子　

邮件系统，是工业界的群件标准。新一代Ｄｏｍｉｎｏ／Ｎｏｔｅｓ应用软　

件平台包括服务器和用户机两条产品线的三个产品：Ｌｏｔｕｓ　

Ｄｏｍｉｎｏ　Ｒ５；集成的Ｉｎｔｅｒｎｅｔ客户机Ｌｏｔｕｓ　Ｎｏｔｅｓ　Ｒ５；集成的　

Ｗｅｂ和Ｉｎｔｒａｎｅｔ应用开发客户机Ｌｏｔｕｓ　Ｄｏｍｉｎｏ　Ｄｅｓｉｇｎｅｒ　Ｒ５。特　

别擅长包括工作流、知识管理、大量的ＲＴＦ文本和其他对象的　

管理，而且将包含Ｄｏｍｉｎｏ／Ｎｏｔｅｓ文本的表单可以通过导航器、　

大纲和帧结构直接提交给终端浏览器。　

开发Ｄｏｍｉｎｏ／Ｎｏｔｅｓ数据库可以依靠其自身的开发环境将　

数据发布到网络上，数据库中每个元素都是一个网页，其内部的　

链接非常方便，但是如果要将一部分元素链接到其他网页中，则　

需要其他网页制作软件，而且，每次修改则要重新制作，这里可　

以利用其他数据库软件将Ｄｏｍｉｎｏ／Ｎｏｔｅｓ数据库的文档嵌入其　

他网站的网页。我们将其文档的名称、关键词和地址输入　

Ｍｉｃｒｏｓｏｆｔ　ＳＱＬ　Ｓｅｒｖｅｒ数据库，然后利用ＡＳＰ将其嵌入任何　

ｗｅｂ网页中。　

１建立数据库和数据源　

ＯＤＢＣ（Ｏｐｅｎ　Ｄａｍｂ￣ｅ　Ｃｏｎｎｅｃｔｉｖｉｔｙ）是ＭＳ　Ｗｉｎｄｏｗｓ的开　

发体系的标准组成部分，是用于数据库访问的应用程序编程接　

口（ＡＰＩ），可以使用结构化查询语言（ＳＱＬ）访问数据库。首先建立　

Ｍｉｃｒｏｓｏｆｔ　ＳＱＬ　Ｓｅｖｒｅｒ数据库的库结构，然后建立数据源，数据　

源有三种类型：用户数据源、系统数据源和文件数据源。作为服　

务器环境要建立系统数据源。这里我们要利用文档名称ｔｉｔｌｅ和　

地址ｎｅｔａｄｄｒｅｓｓ来链接文档，建立ＳＱＬ数据库，表中建立这两个　

关键字段和其他需要的字段，然后在控制面版中建立数据源。　

２将名称、关键词和地址输入ＳＱＬ　Ｓｅｒｖｅｒ数据库　

Ｄｏｍｉｎｏ／Ｎｏｔｅｓ文档的主要数据都存放在ＲＴＦ域中，可在表　

单的任何地方放置ＲＴＦ域，ＲＴＦ域可以包含大量的数据而没有　

上限限制，可以包含文字、图像、附件、对象，通过Ｗｅｂ应用程序　

显示ＨＴＭＬ格式的文本。而将用于检索的其他数据如：文档名、　

产生日期使用文本、数字、日期型数据，将它输入到ＳＱＬ　Ｓｅｒｖｅｒ　

数据库中，Ｗｅｂ用ＡＳＰ调用检索Ｄｏｍｉｎｏ／Ｎｏｔｅｓ文档。　

每个文档保存后执行ＱｕｅｒｙＳａｖｅ子程序，使用ＬｏｔｕｓＳｃｒｉｐｔ　

Ｌａｎｇｕａｇｅ编写ＱｕｅｒｙＳａｖｅ子程序将检索数据写入ＳＱＬ　Ｓｅｒｖｅｒ　

数据库。访问ＯＤＢＣ类必须在Ｇｌｏｂａｌ对象或代理Ｏｐｔｉｏｎ事件中　

语句ＵｓｅＬＳＸ”　ＬＳＸＯＤＢＣ”，程序中首先要创建访问ＯＤＢＣ的　

三个类ＯＤＢＣＣｏｎｎｅｃｔｉｏｎ、ＯＤＢＣＱｕｅｒｙ、ＯＤＢＣＲｅｓｕｌｔ，用函数　

ＣｏｎｎｅｃｔＴｏ连接到ＳＱＬ数据库，将标准查询语句赋给ｑｒｙ．ｓｑｌ，然　

后和结果集相连，执行函数ｒｅｓｕｌｔ．ｅｘｅｃｕｔｅ查询出ＳＱＬ中的情　

况，如果ｒｅｓｕｌｔ．ｃｕｒｒｅｎｔｒｏｗ为０，则加入新数据，否则修改数据。程　

序如下：　

Ｓｕｂ　Ｑｕｅｒｙｓａｖｅ（Ｓｏｕｒｃｅ　Ａｓ　Ｎｏｔｅｓｕｉｄｏｃｕｍｅｎｔ，Ｃｏｎｔｉｎｕｅ　Ａｓ　

Ｖａｒｉａｎｔ）　

Ｄｉｍ　ｃｏｎ　Ａｓ　Ｎｅｗ　ＯＤＢＣＣｏｎｎｅｃｔｉｏｎ　

Ｄｉｍ　ｑｒｙ　Ａｓ　Ｎｅｗ　ＯＤＢＣＱｕｅｒｙ　

Ｄｉｍ　ｒｅｓｕｌｔ　Ａｓ　Ｎｅｗ　ＯＤＢＣＲｅｓｕｌｔＳｅｔ　

’设置连接到数据源ＯＤＢＣ的数据存取特性　

Ｄｉｍ　ｄｏｃ　Ａｓ　ｎｏｔｅｓｄｏｃｕｍｅｎｔ　

Ｄｉｍ　Ｔｉｔｌｅ，ＮｅｔＡｄｄｒｅｓｓ．ＮｅｗｓｌＤ，ＮｅｗｓＴｙｐｅ　Ａｓ　Ｓｔｒｉｎｇ　

Ｓｅｔ　ｄｏｃ＝Ｓｏｕｍｅ．ｄｏｃｕｍｅｎｔ　

Ｔｉｔｌｅ＝ｄｏｃ．ｎｅｗｓｔｉｔｌｅ（０）　

Ｎｅ￣ｄｄｒｅｓｓ＝“ｈｔｔｐ：ＨＩＰ地址／ｌｏｔｕｓ数据库名／ｖｉｅｗｎａｍｅ／＇。＋ｄｏｃ．　

ＵｎｉｖｅｒｓａｌｌＤ＋”？ＯｐｅｎＤｏｃｕｍｅｎｔ”　

ＮｅｗｓｌＤ＝ｄｏｃ．ｎｏｔｅＩＤ　

ＮｅｗｓＴｙｐｅ＝ｄｏｃ．ｔｙｐｅ‘将需要写入ＯＤＢＣ的数据用参数表示　

Ｉｆ　Ｎｏｔ（ｃｏｎ，ｃｏｎｎｅｃｔｔｏ（“数据源名”，“ｕｓｅｒｎａｍｅ”，”ｐａｓｓｗｏｒｄ”））　

Ｔｈｅｎ　Ｅｘｉｔ　Ｓｕｂ　

Ｅｎｄ　Ｉｆ　‘连接不成功则退出子程序　

Ｓｅｔ　ｑｒｙ．ｃ０ｎｎｅｃｔｉ０ｎ＝ｃ０ｎ　

ｑｒｙ．ｓｑｌ＝“ｓｅｌｅｃｔ　ｆｒ０ｍ　ｎｅｗｓｔｉｔｌｅｓ　ｗｈｅｒｅ　ｎｅｗｓｌＤ＝”‘＋ＮｅｗｓｌＤ＋　“　

Ｓｅｔ　ｒｅｓｕｌｔ，ｑｕｅｒｙ＝ｑｒｙ　

Ｉｆ　Ｎｏｔ（ｒｅｓｕｌｔ．ｅｘｅｃｕｔｅ）Ｔｈｅｎ‘执行出现错误，则退出　

ｅｘｉｔ　ｓｕｂ　

Ｅｎｄ　Ｉｆ　

ＣａｌＩ　ｒｅｓｕｌｔ，ｎｅｘｔｒｏｗ　

Ｉｆ　ｒｅｓｕｌｔ，ｃｕｒｒｅｎｔｒｏｗ＝０　Ｔｈｅｎ’如果是新数据则写入　

ＣａｌＩ　ｒｅｓｕｌｔ，ａｄｄｒｏｗ　

ｅｎｄ．ｆ　

Ｃａｌｌ　ｒｅｓｕｌｔ．ＳｅｔＶａｌｕｅ（“ｔｉｔｌｅ＂，Ｔｉｔｌｅ）　

Ｃａｌｌ　ｒｅｓｕｌｔ．ＳｅｔＶａｌｕｅ（”ｎｅｔａｄｄｒｅｓｓ＂，ＮｅｔＡｄｄｒｅｓｓ）　

Ｃａｌｌ　ｒｅｓｕｌｔ．ＳｅｔＶａｌｕｅ（“ｎｅｗｓｌＤ＂，ＮｅｗｓｌＤ）　

Ｃａｌｌ　ｒｅｓｕｌｔ，ＳｅｔＶａｌｕｅ（”ｎｅｗｓｔｙｐｅ＂，ＮｅｗｓＴｙｐｅ）　

ｒｅｓｕｌｔ．ｕｐｄａｔｅｒｏｗ　

ｒｅｓｕｌｔ，ｃｌｏｓｅ（ＤＢ—ＣＬＯＳＥ）　

ｃｏｎ．ｄｉｓｃｏｎｎｅｃｔ　

维普资讯

计算机时代２００２年第１０期　．３７・　

Ｒ　ｕ　ｎ　ｄ　ｌ　１　３２应用探讨　

陈　冈　

（武汉科技学院经济管理学院，湖北武汉４３００７４）　

摘　要：简要介绍了Ｗｉｎｄｏｗｓ系统程序Ｒｕｎｄｌ１３２的基本语法格式，以多个示例说明了Ｒｕｎｄｌ１３２在实践中的应用。　

关键词：Ｒｕｎｄｌ１３２；多媒体应用；Ｄｅｌｐｈｉ　

１引言　

相信大多数Ｗｉｎｄｏｗｓ用户对Ｒｕｎｄｌ１３２．ｅｘｅ并不陌生，因为　

行。Ｒｕｎｄｌ１３２．ｅｘｅ命令的一般格式为：　

Ｒｕｎｄｌ１３２．ｅｘｅ［＜ＤＬＬ文件名＞，＜函数＞［＜参数＞ＩＩ　

２　Ｒｕｎｄｌ１３２应用　

Ｗｉｎｄｏｗｓ启动时总会自动加载ＬｏａｄＰｏｗｅｒＰｒｏｆｉｌｅ启动项，它正　

是使用了Ｒｕｎｄｌ１３２．ｅｘｅ，ｐｏｗｒｐｒｏｆ．ｄｌｌ，ＬｏａｄＣｕｒｒｅｎｔＰｗｒＳｃｈｅｍｅ命　

令（／］ｔｌ载当前电源管理使用方案）。Ｒｕｎｄｌ１３２．ｅｘｅ是一个功能强大　

的系统程序，我们可以利用它简单方便地实现一些特殊的功能。　

微软公司对Ｒｕｎｄｌ１３２的说明是：Ｒｕｎ　ａ　ＤＬＬ　ａＳ　ａｎ　Ａｐｐ。由此我　

们可以看出，Ｒｕｎｄｌ１３２．ｅｘｅ的主要作用是运行封装在ＤＬＬ文件　

下面以几个实例说明Ｒｕｎｄｌ１３２．ｅｘｅ在实践中的应用。这些　

应用可以直接在Ｗｉｎｄｏｗｓ　９８“运行”中执行，也可以在各种编　

程语言（如ＶＢ、ＶＦＰ、Ｄｅｌｐｈｉ等）中实现。注意：函数名称一定要区　

分大小写，ＤＬＬ文件名后应有一个逗号。　

１）打开指定文件　

里的函数。通常情况下，我们是无法直接打开ＤＬＬ文件的，但　

Ｒｕｎｄｌ１３２．ｅｘｅ可以帮助我们轻轻松松地做到这一点。Ｒｕｎｄｌ１３２．　

ｅｘｅ可以指令操作系统通过ＡＰＩ函数ＬｏａｄＬｉｂｒａｒｙ０调用某一个　

指定的动态链接库，由ＡＰＩ函数ＧｅｔＰｒｏｃＡｄｄｒｅｓｓ０获取封装在　

格式：ｒｕｎｄｌ１３２．ｅｘｅ　ｕｒ１．ｄｌｌ，ＦｉｌｅＰｒｏｔｏｃｏｌＨａｎｄｌｅｒ％ｌ　

说明：％ｌ表示被打开的文件名。　

本命令在程序设计中特别有用，其强大功能有助于解决许　

多疑难问题。利用它，我们在应用程序中几乎可以打开任意类型　

的文件，比如ｄｏｃ、ｐｐｔ、ｘｌｓ、ｈｔｍ１、ｅｘｅ、ｃｈｍ、ｔｘｔ、ｈｉｐ等等，而且打开　

文件的方式非常简单。试举两例为证。　

ＤＬＬ文件里的某个函数的Ｎ＿Ｊｌｋ，然后根据相应的函数参数运行　

该函数。此外，Ｒｕｎｄｌ１３２．ｅｘｅ甚至还可以调试某些ＥＸＥ文件的执　

Ｅｎｄ　Ｓｕｂ　

ｄｄ１＝”＜／ｆｏｎｔ＞＜／ａ＞”％＞　

＜ｔｒ＞　

３　Ｄｏｍｉｎｏ／Ｎｏｔｅｓ文档嵌入Ｗｅｂ网页　

当文本的名称和地址输入到ＳＱＬ中后，就可以用在网页中　

利用ＡＳＰ读取Ｄｏｍｉｎｏ／Ｎｏｔｅｓ文本，也可以非常灵活地组织文本　

的显示，以后要对其进行文本更换时只需要在Ｄｏｍｉｎｏ／Ｎｏｔｅｓ修　

改就可以了，而不必修改网页。　

ｗｅｂ网页中ＡＳＰ利用ＯＤＢＣ和Ｄｏｍｉｎｏ／Ｎｏｔｅｓ文档建立联　

＜ｔｄ＞＜％＝ｄｄ％＞＜％＝ＳＳ％＞＜％＝ｄｄ　１％＞＜／ｔｄ＞　

＜／ｔｒ＞　

＜％ｒｓ．ＭｏｖｅＮｅｘｔ　

Ｌｏｏｐ　

ｒｓ．Ｃｌｏｓｅ　

ｓｅｔ　ｒｓ＝Ｎｏｔｈｉｎｇ％＞　

＜／ｔａｂｌｅ＞　

系，首先利用Ｓｅｒｖｅｒ．ｏｐｅｎ和ＳＱＬ数据库建立连接，用ｃｏｎｎ．ｅｘｅ－　

ｃｕｔｅ检索出需要显示的文档题目和地址，将地址赋给超文本标　

记语言（ＨＴＭＬ）中的ｈｒｅｆ标记中就可以建立起连接。程序如下：　

＜ｔａｂｌｅ　ｗｉｄｔｈ＝”　００％”ｂｏｒｄｅｒ＝－…０’ｂｇｃｏｌｏｒ＝”＃ＦＦＦＦＣＣ“ｈｅｉｇｈｔ　

＝”９２’’）　

４结束语　

使用ＡＳＰ链接Ｄｏｍｉｎｏ／Ｎｏｔｅｓ文档可以做到：将　

Ｄｏｍｉｎｏ／Ｎｏｔｅｓ文档嵌入到任何的Ｗｅｂ网页中，任意安排不局限　

＜％　

于Ｄｏｍｉｎｏ／Ｎｏｔｅｓ中的视图和大纲等元素；下次动态更换网页时　

只需要在Ｄｏｍｉｎｏ／Ｎｏｔｅｓ文档中更换标志位即可，而不需要重新　

制作网页，使用ＳＱＬ语句Ｓｅｌｅｃｔ　ｎａｍｅｌ＋ｎａｍｅ２　ｆｒｏｍ　ｔａｂｌｅ］，　

ｓｅｔ　Ｃｏｎｎ＝Ｓｅｒｖｅｒ．Ｃｒｅａｔｅｏｂｊｅｃｔ（”ａｄｏｄｂ．ｃｏｎｎｅｃｔｉｏｎ”）　

Ｃｏｎｎ．Ｏｐｅｎ”ＤＳＮ＝数据源名：ＵＩＤ＝ｕｓｅｒｎａｍｅ；ｐａｓｓｗｏｒｄ　

＝ｐａｓｓｗｏｒｄ”　

ｓｑｌ＝“ｓｅｌｅｃｔ　ｔｉｔｌｅ．ｎｅｔａｄｄｒｅｓｓ　ｆｒＯｍ　ｎｅｗｓｔｉｔｌｅｓ　ｗｈｅｒｅ　ｎｅｗｓｔｙｐｅ＝　

’显示内容…　

ｔａｂｌｅ２式样可以方便地进行多表单查询；在局域网中使用多个　

ｏｍＤｉｎｏ／Ｎｏｔｅｓ服务器同时向一个ＳＱＬ中输入数据即可实现　

“分布式”查询。　

参考文献：　

［１】北京义弛美迪技术开发有限公司．１　Ｊｓ　Ｄｏｍｉｎｏ　４　６程序置实战指　

ｓｅｔ　ｒｓ＝ｃｏｎｎ．ｅｘｅｃｕｔｅ（ｓｑ１）　

ｄｏ　ｗｈｉｌｅ　ｎｏｔ（ｒｓ．ｅｏｆ）　

ＳＳ＝ｒＳ｛　ｔｉｔｌｅ“）　

ｄｄ＝”＜ｆｏｎｔ　ｓｉｚｅ＝。２。ｃｏｌｏｒ＝’＃００００９９。＞＜ａ　ｈｒｅｆ＝”　

南中国水利水电出版社，１９９８．　

［２】周绪等ＳＱＬ　Ｓｅｒｖｅｒ　７．０入门与提高．清华文学出版社，２０００　

＋ｒｓ（”ｎｅｔａｄｄｒｅｓｓ”、＋”＞”　

［３１武延军．精通ＡＳＰ网络编程人民邮电出版社，２０００．　圆