535
社区成员
发帖
与我相关
我的任务
分享请高手指点我怎么在VBSCRIPT中调用NOTES的类？
帮助有是有关于这方面的介绍（the Domino Objects），不过试了没成功，还是用不了？请那位有经验的大大指教一下。
...全文
请发表友善的回复…
发表回复
joachern 2003-11-06
- 打赏
- 举报
Call s.Initialize 要输入密码
PeterChen82 2003-11-06
- 打赏
- 举报
使用domino corba小程序通过iiop访问domino后台类。
1、配置domino服务器是其支持iiop访问
2、编写简单的corba java小程序,主要目的是为了返回session对象
3、把corba java小程序放入网页中，通过javascript或vbscript访问。如：
var notesession=corbapplet.getSession();
得到session后就可以访问所有domino的后台类了。
这种方法的优点在于客户端不需要安装任何东西。在不刷新页面的情况下可以完成多个任务。
缺点是在返回大规模数据时速度比较慢。
不过个人认为这种方法比CreateObject("Lotus.NotesSession")的方式无论从简单程度或速度上都要好。个人想法，大家讨论。
1、配置domino服务器是其支持iiop访问
2、编写简单的corba java小程序,主要目的是为了返回session对象
3、把corba java小程序放入网页中，通过javascript或vbscript访问。如：
var notesession=corbapplet.getSession();
得到session后就可以访问所有domino的后台类了。
这种方法的优点在于客户端不需要安装任何东西。在不刷新页面的情况下可以完成多个任务。
缺点是在返回大规模数据时速度比较慢。
不过个人认为这种方法比CreateObject("Lotus.NotesSession")的方式无论从简单程度或速度上都要好。个人想法，大家讨论。
joachern 2003-11-06
- 打赏
- 举报
好像还要登录，找到登录的用户的id
joachern 2003-11-06
- 打赏
- 举报
最好不要这样做！！！！
否则要出问题
否则要出问题
gisgis 2003-11-03
- 打赏
- 举报
不会吧，没人会
gisgis 2003-10-24
- 打赏
- 举报
自己顶一下
zhanyunpeng 2003-10-23
- 打赏
- 举报
装Notes
降低IE安全性
降低IE安全性
gisgis 2003-10-23
- 打赏
- 举报
关键是我用到这个就错了Set s = CreateObject("Lotus.NotesSession")好象是缺少了注册什么东西
cnhxjtoa 2003-10-23
- 打赏
- 举报
<%@ Language=VBScript %>
<HTML>
<HEAD>
<META NAME="; GENERATOR; " Content="; Microsoft; Visual; Studio; 6#; ">
</HEAD>
<BODY>
<%
Dim s 'As New NotesSession
Dim db 'As NotesDatabase
Dim v 'As NotesView
Dim vn 'As NotesViewNavigator
Dim e 'As NotesViewEntry
Dim doc 'As NotesDocument
Set s = CreateObject("Lotus.NotesSession")
Call s.Initialize
Dim serverName
serverName = ""
Set db = s.GetDatabase(serverName, "AllTypes.nsf")
Set v = db.GetView("All Documents")
Set vn = v.CreateViewNav()
Set e = vn.GetFirstDocument()
While Not (e Is Nothing)
Set doc = e.Document
Dim values, item1
Set item1 = doc.GetFirstItem("TextField")
values = item1.Values
Response.Write("<p>Subject: " + values(0) + "<br>")
Set item1 = doc.GetFirstItem("DateTimeField")
values = item1.Values
For Each dateTime In values
Response.Write("DateTime: " + CStr(dateTime))
Next
Set e = vn.GetNextDocument(e)
Wend
%>
</BODY>
</HTML>
<HTML>
<HEAD>
<META NAME="; GENERATOR; " Content="; Microsoft; Visual; Studio; 6#; ">
</HEAD>
<BODY>
<%
Dim s 'As New NotesSession
Dim db 'As NotesDatabase
Dim v 'As NotesView
Dim vn 'As NotesViewNavigator
Dim e 'As NotesViewEntry
Dim doc 'As NotesDocument
Set s = CreateObject("Lotus.NotesSession")
Call s.Initialize
Dim serverName
serverName = ""
Set db = s.GetDatabase(serverName, "AllTypes.nsf")
Set v = db.GetView("All Documents")
Set vn = v.CreateViewNav()
Set e = vn.GetFirstDocument()
While Not (e Is Nothing)
Set doc = e.Document
Dim values, item1
Set item1 = doc.GetFirstItem("TextField")
values = item1.Values
Response.Write("<p>Subject: " + values(0) + "<br>")
Set item1 = doc.GetFirstItem("DateTimeField")
values = item1.Values
For Each dateTime In values
Response.Write("DateTime: " + CStr(dateTime))
Next
Set e = vn.GetNextDocument(e)
Wend
%>
</BODY>
</HTML>
cnhxjtoa 2003-10-23
- 打赏
- 举报
<HTML>
<HEAD>
<TITLE>Initialize Session</TITLE>
<SCRIPT LANGUAGE="VBScript">
Sub Button1_OnClick
dim s
Set s = CreateObject("Lotus.NotesSession")
Call s.Initialize
MsgBox s.CommonUserName,, "Common user name"
End Sub
</SCRIPT>
</HEAD>
<BODY>
<H3>Initialize Session and Print User Name</H3><HR>
<FORM><INPUT NAME="Button1" TYPE="BUTTON" VALUE="Click Here"></FORM>
</BODY>
</HTML>
<HEAD>
<TITLE>Initialize Session</TITLE>
<SCRIPT LANGUAGE="VBScript">
Sub Button1_OnClick
dim s
Set s = CreateObject("Lotus.NotesSession")
Call s.Initialize
MsgBox s.CommonUserName,, "Common user name"
End Sub
</SCRIPT>
</HEAD>
<BODY>
<H3>Initialize Session and Print User Name</H3><HR>
<FORM><INPUT NAME="Button1" TYPE="BUTTON" VALUE="Click Here"></FORM>
</BODY>
</HTML>
