版权说明：本文档由用户提供并上传，收益归属内容提供方，若内容存在侵权，请进行举报或认领
文档简介
在Web中使用LotusScript——WebQueryOpen代理在Web中使用LotusScript激活Web代理编写WebQueryOpen代理编写WebQuerySave代理使用代理删除文档WebQueryOpen代理WebQueryOpen代理就是在WebQueryOpen事件中调用的代理，运行于以下时候：用户请求一个文档之后。在计算域被刷新以后。文档被转换为HTML以前。因为WebQueryOpen只在文档在浏览器显示之前执行，它不能在浏懒器上进行任何输出，因此将忽略所有Print语句。WebQueryOpen代理存在的的主要目的是在文档被转换成Html之前执行一段程序逻辑，最常见的有在文档转换成html之前修改文档中域的值，或者执行数据库查询等HitTracker代理跟踪文档的打开情况，统计阅读者和次数在InfoContentForm中创建两个域存放数据：TotalHits，总点击次数；HitLog，记录阅读用户和时间。设置代理只要代理作为“web”用户执行时，才可以准确的获得当前用户的姓名：result=Evaluate("@Name([Abbreviate];@UserName)")user=result(0)设置运行时安全等级为“允许具有完全管理权限的受限制操作”，这样允许“匿名”用户也可以执行代理，修改TotalHits和HitLog两个域的值。代理的程序1Setdoc=Session.DocumentContext IfNot(doc.isnewnoteOrdoc.editmode(0)="1")Then‘在非新文档和非编辑模式时统计阅读次数
'设置点击次数
Setitem=doc.getfirstitem("TotalHits") If(itemIsNothing)Then Call doc.appenditemvalue("TotalHits","0")‘如果条目不存在，则创建
EndIf If(doc.TotalHits(0)="")Then doc.TotalHits="0" EndIf i=Cint(doc.totalhits(0)) i=i+1 doc.totalhits=Cstr(i)代理的程序2'设置点击历史
Setitem=doc.getfirstitem("HitLog") If(itemIsNothing)Then Call doc.appenditemvalue("HitLog","")‘如果条目不存在，则创建EndIfSetitem=doc.getfirstitem("HitLog")result=Evaluate("@Name([Abbreviate];@UserName)")‘获取当前用户的姓名user=result(0)item.AppendToTextList
温馨提示
- 1. 本站所有资源如无特殊说明，都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
- 2. 本站的文档不包含任何第三方提供的附件图纸等，如果需要附件，请联系上传者。文件的所有权益归上传用户所有。
- 3. 本站RAR压缩包中若带图纸，网页内容里面会有图纸预览，若没有图纸预览就没有图纸。
- 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
- 5. 人人文库网仅提供信息存储空间，仅对用户上传内容的表现方式做保护处理，对用户上传分享的文档内容本身不做任何修改或编辑，并不能对任何下载内容负责。
- 6. 下载文件中如有侵权或不适当内容，请与我们联系，我们立即纠正。
- 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。
评论
0/150
提交评论