下面示例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> 
|
本类阅读TOP10