软件工程

本类阅读TOP10

·PHP4 + MYSQL + APACHE 在 WIN 系统下的安装、配置
·Linux 入门常用命令(1)
·Linux 入门常用命令(2)
·使用 DCPROMO/FORCEREMOVAL 命令强制将 Active Directory 域控制器降级
·DirectShow学习(八): CBaseRender类及相应Pin类的源代码分析
·基于ICE方式SIP信令穿透Symmetric NAT技术研究
·Windows 2003网络负载均衡的实现
·一网打尽Win十四种系统故障解决方法
·数百种 Windows 软件的免费替代品列表
·收藏---行百里半九十

分类导航
VC语言Delphi
VB语言ASP
PerlJava
Script数据库
其他语言游戏开发
文件格式网站制作
软件工程.NET开发
Domino COM的HTML示例

作者:未知 来源:月光软件站 加入时间:2005-2-28 月光软件站

下面示例HTML代码,可以在WEB页上调用Notes数据库。
注意:使用时客户端需要有Notes.ini及用户ID文件

<HTML>
<HEAD>
<TITLE>Initialize Session</TITLE>
<SCRIPT LANGUAGE="VBScript">
Sub Button1_OnClick
    dim s, dir, db
    Set s = CreateObject("Lotus.NotesSession")
    Call s.Initialize
    Set dir = s.GetDbDirectory("")
    Set db = dir.GetFirstDatabase(1247)
    dbString = db.Title
    dbCount = 1
    While Not (db Is Nothing)
        If dbCount > 12 Then
            MsgBox dbString,, "Databases on " + dir.Name
            dbString = db.Title
            dbCount = 1
        Else
            dbString = dbString + Chr(10)
            dbString = dbString + db.Title
            dbCount = dbCount + 1
        End If
        Set db = dir.GetNextDatabase
    Wend
    MsgBox dbString,, "Databases on " + dir.Name
End Sub
</SCRIPT>
</HEAD>
<BODY>
<H3>Print Databases on Doc</H3><HR>
<FORM><INPUT NAME="Button1" TYPE="BUTTON" VALUE="Click Here"></FORM>
</BODY>
</HTML>




相关文章

相关软件