lotus教學(xué)102編寫(xiě)webqueryopen代理

在Web中使用LotusScript——WebQueryOpen代理在Web中使用LotusScript激活Web代理編寫(xiě)WebQueryOpen代理編寫(xiě)WebQuerySave代理使用代理刪除文檔WebQueryOpen代理WebQueryOpen代理就是在WebQueryOpen事件中調(diào)用的代理，運(yùn)行于以下時(shí)候：用戶(hù)請(qǐng)求一個(gè)文檔之后。在計(jì)算域被刷新以后。文檔被轉(zhuǎn)換為HTML以前。因?yàn)閃ebQueryOpen只在文檔在瀏覽器顯示之前執(zhí)行，它不能在瀏懶器上進(jìn)行任何輸出，因此將忽略所有Print語(yǔ)句。WebQueryOpen代理存在的的主要目的是在文檔被轉(zhuǎn)換成Html之前執(zhí)行一段程序邏輯，最常見(jiàn)的有在文檔轉(zhuǎn)換成html之前修改文檔中域的值，或者執(zhí)行數(shù)據(jù)庫(kù)查詢(xún)等HitTracker代理跟蹤文檔的打開(kāi)情況，統(tǒng)計(jì)閱讀者和次數(shù)在InfoContentForm中創(chuàng)建兩個(gè)域存放數(shù)據(jù)：TotalHits，總點(diǎn)擊次數(shù)；HitLog，記錄閱讀用戶(hù)和時(shí)間。設(shè)置代理只要代理作為“web”用戶(hù)執(zhí)行時(shí)，才可以準(zhǔn)確的獲得當(dāng)前用戶(hù)的姓名：result=Evaluate("@Name([Abbreviate];@UserName)")user=result(0)設(shè)置運(yùn)行時(shí)安全等級(jí)為“允許具有完全管理權(quán)限的受限制操作”，這樣允許“匿名”用戶(hù)也可以執(zhí)行代理，修改TotalHits和HitLog兩個(gè)域的值。代理的程序1Setdoc=Session.DocumentContext IfNot(doc.isnewnoteOrdoc.editmode(0)="1")Then‘在非新文檔和非編輯模式時(shí)統(tǒng)計(jì)閱讀次數(shù)

'設(shè)置點(diǎn)擊次數(shù)

Setitem=doc.getfirstitem("TotalHits") If(itemIsNothing)Then Call doc.appenditemvalue("TotalHits","0")‘如果條目不存在，則創(chuàng)建

EndIf If(doc.TotalHits(0)="")Then doc.TotalHits="0" EndIf i=Cint(doc.totalhits(0)) i=i+1 doc.totalhits=Cstr(i)代理的程序2'設(shè)置點(diǎn)擊歷史

Setitem=doc.getfirstitem("HitLog") If(itemIsNothing)Then Call doc.appenditemvalue("HitLog","")‘如果條目不存在，則創(chuàng)建EndIfSetitem=doc.getfirstitem("HitLog")result=Evaluate("@Name([Abbreviate];@UserName)")‘獲取當(dāng)前用戶(hù)的姓名user=result(0)item.AppendToTextList