CSDN博客

img davidnim

Domino COM的HTML示例

发表于2003/2/17 11:12:00  940人阅读

下面示例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>

0 0

相关博文

我的热门文章

img
取 消
img