您的位置：程序门 -> 企业开发 -> lotus

b/s下运行代理不成功，求好心人帮帮忙！！

[收藏此页] [打印本页]选择字色：背景色：字体：[大][中][小]

b/s下运行代理不成功，求好心人帮帮忙！！[已结贴,结贴人:myair99]

发表于：2007-04-16 16:27:24 楼主

首先创建一个代理名字为ab：
代码如下：
sub initialize
dim session as new notessession
dim db as notesdatabase
dim view as notesview
dim doc as notesdocument
set db=session.currentdatabase
set view=db.getview（ "fwd ")
set doc=view.getfirstdocument
if doc.hasitem（ "bh ") then
while not（doc is nothing)
forall bh in doc.getitemvalue（ "bh ")
messagebox bh
end forall
set doc=view.getnextdocument（doc)
wend
end if
end sub

代码的功能是如果fwd视图有bh这个域的值，则显示出来这个域中的内容

在表单中，我创建了一个按钮名字为查看，使用公式：@command（[toolsrunmacro]; "ab ")

这个表单在notes下运行成功，当在ie谢浏览显示http 500 内部错误

到底是怎么回事呢？

发表于：2007-04-16 16:51:401楼得分:50

改成这样：
sub initialize
dim session as new notessession
dim db as notesdatabase
dim view as notesview
dim doc as notesdocument
set db=session.currentdatabase
set view=db.getview（ "fwd ")
set doc=view.getfirstdocument
while not（doc is nothing)
if doc.hasitem（ "bh ") then
forall v in doc.getitemvalue（ "bh ")
print ¦ <script language= 'javascript '> ¦
print ¦alert（ " ¦+cstr（v)+ ¦ "); ¦
print ¦ </script> ¦
end forall
end if
set doc=view.getnextdocument（doc)
wend
end sub

发表于：2007-04-16 17:58:512楼得分:10

messagebox 只能c/s 结构中打印出来，b/s 下你可以到服务器上看

b/s 想打印的用alert

发表于：2007-04-16 21:29:453楼得分:0

还是不成功，呜呜

发表于：2007-04-16 21:58:264楼得分:0

加上错误跟踪语句，在console端看看是报的什么错。

发表于：2007-04-17 09:41:095楼得分:10

你把代理的属性修改一下.就会好的.

发表于：2007-04-17 20:35:176楼得分:0

on error goto errorhandler

'your code

exit sub
errorhandler:
print "error: " + error + " line: " + cstr（erl)

这个加上去,报500错误了,肯定是程序那里有问题了.另外,取消ie的友好错误提示,可以看你的错误信息更清晰些.

发表于：2007-04-17 22:25:037楼得分:0

有时候数据库坏了代理就执行不了老是报http错误如果你确定不是你代理的问题建议把原来的数据库新建拷贝一个试试

发表于：2007-04-18 09:58:428楼得分:0

代理的属性改什么呢？

发表于：2007-04-18 09:59:319楼得分:0

这个加到哪里呢？晕了，呜呜

on error goto errorhandler

'your code

exit sub
errorhandler:
print "error: " + error + " line: " + cstr（erl)

这个加上去,报500错误了,肯定是程序那里有问题了.另外,取消ie的友好错误提示,可以看你的错误信息更清晰些.

发表于：2007-04-19 21:19:1310楼得分:30

就是你的代理里:
sub
-> on error goto errorhandler
'接下去就是你的代码,譬如：
msgbox "your code is processing. "
-> exit sub
-> errorhandler:
-> print "error: " + error + " line: " + cstr（erl)
end sub
我打尖头的地方就是要写的位置,你可以参照一下.

发表于：2007-04-20 09:06:2111楼得分:0

哦
谢谢啦
我一会试试去

还有个问题：代理的属性用设置什么或者服务器用设置什么么？
我在代理中写了一个最基本的公式，再用按钮调用代理，都不成功？到底是什么毛病？？？？
郁闷阿，呜呜

发表于：2007-04-20 09:38:5512楼得分:0

终于运行成功啦
是服务器权限的问题！！
谢谢大家！！！
给分拉！！！
哈哈

下一篇：招lotus notes developer（上海)
上一篇：（急)广州请lotus开发人员

其他资讯