您的位置：首页 > Web前端 > HTML

Domino COM的HTML示例

2003-02-17 11:12 381 查看

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

内容来自用户分享和网络整理，不保证内容的准确性，如有侵权内容，可联系管理员处理

标签：

相关文章推荐

新的分享

章节导航