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