请问用LS在B/S下怎样得到如alert(xx.value)那样的效果？

waq0544 2004-04-21 04:56:31

在C/S下用messagebox(doc.xx(0))倒是很方便！

...全文

47 12 打赏收藏转发到动态举报

写回复

用AI写文章

12 条回复

切换为时间正序

请发表友善的回复…

发表回复

cleverboy 2004-04-27

打赏
举报

同意 whc291017的

whc291017 2004-04-25

打赏
举报

也可以这样啦：
　　在表单中放一个计算域，在代理中将其赋值：
例：doc.aa=|[<script language=javascript>alert("aaaaaaaaa");</script>]|
另外要注意的是在这个语句前要清空: doc.aa=""
否则，一刷新就会出对话框

waq0544 2004-04-22

打赏
举报

谢谢补丁和发哥！

我是在表单的WebQueryOpen里面加上上面的那个代理的：（可是为什么没反应呢？）
Sub Initialize
Dim s As New NotesSession
Dim db As NotesDatabase
Set db = s.CurrentDatabase
Dim doc As notesdocument
Dim begintime As notesdatetime
Dim endtime As notesdatetime
Dim a As Integer

Set doc=s.documentcontext
'Set begintime=New notesdatetime(Today)
'Set endtime=New notesdatetime(doc.dateended(0))
a=doc.dateended(0) - Today
Print "<script language='JavaScript'>"
Print "alert('"& Cstr(a) &"')"
Print "</script>"
End Sub

是在WebQueryOpen里面不能用吗？

panda555 2004-04-22

打赏
举报

Print "<script language='JavaScript'>"
Print "alert('"& Cstr(a) &"')"
Print "</script>"

bug0303 2004-04-22

打赏
举报

应该可以的，自己测试一下拉。
可以这样改一下
Set begintime=New notesdatetime(Today)
Set endtime=New notesdatetime(doc.dateended(0))
a=endtime.TimeDifference(begintime)
可以改为a=doc.dateended(0) - today
前提是a必须定义为整型，doc.dateended(0)必须保证为日期域值。

waq0544 2004-04-22

打赏
举报

谢谢，补丁兄顺便帮我看一下代理这样写行不行：
（我想得出截止日期和当天（today)之间的剩余天数）！
Sub Initialize
Dim s As New NotesSession
Dim db As NotesDatabase
Set db = s.CurrentDatabase
Dim doc As notesdocument
Dim begintime As notesdatetime
Dim endtime As notesdatetime
Dim a As Integer

Set doc=s.documentcontext
Set begintime=New notesdatetime(Today)
Set endtime=New notesdatetime(doc.dateended(0))
a=endtime.TimeDifference(begintime)
Print "<script language='JavaScript'>"
Print "alert(a)"
Print "</script>"
End Sub

bug0303 2004-04-22