1,如何在代理中取得当前的用户名:
dim sUser as string
dim vUser as variant
set doc = session.documentContext
sUser = {@Username}
vUser = Evaluate(sUser,doc)
vUser(0)就是当前的用户名了
但这个代理必须设置成以Web身份运行的代理,
2,在代理中新增个文档,同时设置它的读者域
在表单中已经加入了一些相应域,一个读者域
strFormula = {@Unique("[Administrator]":Users)}
vResult = Evaluate(strFormula, newdoc)
newdoc.DocReaders = vResult '对读者域赋值
‘下面这两 句是将文档中的读者域DocReaders,设成真正的读者域。
’没有这两句文档的读者域的值在文档中是不会起作用的。
Set item = .GetFirstitem("DocReaders")
item.IsReaders = True
Call doc.Save(True,False)
3,在视图中加入对文档的操作按钮(如删除,修改)
在视图的最后一列中写如下的代码,通过这里实现动行一个代理,并传递一个参数给代理
"[删除]"
代理能过Query_String_Cecoded得到传进去的参数&UNID=XXXXXXXXXXXXXXXXXXXXXXXXXX(文档UNID)
代理这样写
Set db = session.CurrentDatabase
Set nowdoc = session.DocumentContext
Set view = db.GetView("AllDoc")
sCond = nowdoc.Query_String_Decoded(0) '得到参数的字符串
sUnid = GetParamValue(sCond,"UNID") ’用这个函数,得到参数串中”UNID“的值
Set doc = view.GetDocumentByKey(sUnid)
Call doc.Remove( True )
4.在B/s中代理中如得到当前表单中列表框内的值
采用的方法是在表单中增加一个临时的文本域来存放列表框的值,初始是设为空,并设为允许多值
在点击按钮时,用Javascript将列表框中的值赋给文本域
代码:
doc.FilesValue.value=doc.FilesValue.value+";"+doc.ListFiles.options[i].value;
代理 中就可以取FileValue的值了,这个值相当于一个数组。
自由广告区 |
分类导航 |
邮件新闻资讯: IT业界 | 邮件服务器 | 邮件趣闻 | 移动电邮 电子邮箱 | 反垃圾邮件|邮件客户端|网络安全 行业数据 | 邮件人物 | 网站公告 | 行业法规 网络技术: 邮件原理 | 网络协议 | 网络管理 | 传输介质 线路接入 | 路由接口 | 邮件存储 | 华为3Com CISCO技术 | 网络与服务器硬件 操作系统: Windows 9X | Linux&Uinx | Windows NT Windows Vista | FreeBSD | 其它操作系统 邮件服务器: 程序与开发 | Exchange | Qmail | Postfix Sendmail | MDaemon | Domino | Foxmail KerioMail | JavaMail | Winwebmail |James Merak&VisNetic | CMailServer | WinMail 金笛邮件系统 | 其它 | 反垃圾邮件: 综述| 客户端反垃圾邮件|服务器端反垃圾邮件 邮件客户端软件: Outlook | Foxmail | DreamMail| KooMail The bat | 雷鸟 | Eudora |Becky! |Pegasus IncrediMail |其它 电子邮箱: 个人邮箱 | 企业邮箱 |Gmail 移动电子邮件:服务器 | 客户端 | 技术前沿 邮件网络安全: 软件漏洞 | 安全知识 | 病毒公告 |防火墙 攻防技术 | 病毒查杀| ISA | 数字签名 邮件营销: Email营销 | 网络营销 | 营销技巧 |营销案例 邮件人才:招聘 | 职场 | 培训 | 指南 | 职场 解决方案: 邮件系统|反垃圾邮件 |安全 |移动电邮 |招标 产品评测: 邮件系统 |反垃圾邮件 |邮箱 |安全 |客户端 |