2014年domino学习小结

http://oatest1.citicbank.com/sgsoa/testniexz.nsf/recorddispaly?OpenForm
20140716
1.如何取删除整个视图文档
if not vw_rep is nothing then
call vw_rep.refresh
call vw_rep.AllEntries.RemoveAll(true)
end if

MsgBox dbview.Allentries.Count '返回视图中文档数目

2.如何取到复制冲突文档，可参考发文中“复制冲突”视图
2.1建立视图，条件为：SELECT @IsAvailable($conflict)

3.判断文档中某个域的值是否包含某个文档
3.1
如：以下用于多值域中是否包含某个字段的方法
Set item =adoc.Getfirstitem("fld_SelOperateName")
If item.Contains("分发跟踪") Then
msgbox "11111111111"
end if
3.2用于判断文本域中是否包含某个字段
InStr(item.Text,"（报领导批示）]]></Action>")>0

4---将firefly上数据库模板替换到测试服务器方法
前提条件：先取sharecode，上传到服务器后签名

将firefly上数据库模板替换到测试服务器方法：
4.1.同步本地firefly，确保本地的模板库和firefly上的一致
4.2.ftp将模板传到ntf文件夹下，替换原模板
4.3.签名：在administrator端签名
4.4.在服务器端load模板库 load design -f ntf/branch/tcwsendfile.ntf
4.5.在服务器端load数据库load design -f tianjinoa/tcwsendfile.nsf--公文监控库
load design -f public/tcworg.nsf
load design -f ntf/tcwmobileinterface.ntf
load design -f tcwmobileinterface.nsf、
load design -f foshanoa/kkss.nsf
load design -f sgsoa/tcwsmsmanage.nsf

load design -f ntf/branch/tcwreceivefile_sp.ntf

4.6
刷分行
load design -d sgsoa
刷整体数据库
load design

5.数组for循环的使用
5.1使用for --to-------
Dim UserPosNoArr As Variant
UserPosNoArr=Split(UserPosNoStr,"↑")
For loopfjq=0 To Ubound(UserPosNoArr)
If UserPosNoArr(loopfjq)<>"" Then
UserPosNoStr=UserPosNoStr+"↑"+UserPosNoArr(loopfjq)
End If
Next
5.2使用forall in
Dim DeptListNo As Variant
ForAll x In DeptListNo '部门文书所在的部门ID
--------------
End ForAll

6.如何执行其他数据库上代理

Dim dbAutoFinish As NotesDatabase
Dim agAutoFinish As NotesAgent
Set dbAutoFinish = s.Getdatabase(CurDB.Server,"public/tcwautofinish.nsf")
Set agAutoFinish = dbAutoFinish.Getagent("ag_autofinishdoc")
Call agAutoFinish.Runonserver()

7.ftsearch的用法
7.1
FTSearch(query:string, max:int, sortopt:int, otheropt:int)
说明：
sortopt Integer. Use one of the following constants to specify a sorting option:
8 (default) sorts by relevance score. When the collection is sorted by relevance, the highest relevance appears first. To access the relevance score of each document in the collection, use the FTSearchScore property in NotesDocument.
1542 sorts by document creation date in descending order.
1543 sorts by document creation date in ascending order.
32 sorts by document date in descending order.
64 sorts by document date in ascending order.

otheropt Integer. Use the following constants to specify additional search options. To specify more than one option, use a logical or operation.
16384 specifies a fuzzy search.
512 uses stem words as the basis of the search.

实例：
if (database.isFTIndexed()) {
database.updateFTIndex(false)
} else {
database.createFTIndex(0, true)
}
var list = "";
var dc = database.FTSearch("new");
var doc = dc.getFirstDocument();
while (doc != null) {
list = list + doc.getItemValueString("Subject") + "\n";
doc = dc.getNextDocument();
}
return list

8.使用代理，根据模板创建数据库并且继承模板中的ACL
服务器：oazh05bj 模板路径：ntf/public/tcwautofinish.ntf 需创建的数据库路径：ntf/public/tcwautofinish.nsf

set createDB = session.getdatabase("oazh05bj","ntf/public/tcwautofinish.nsf")
if not createDB.isopen then
set tempDB= session.getdatabase("oazh05bj","ntf/public/tcwautofinish.ntf")
set createDB= tempDB.createfromtemplate("oazh05bj","ntf/public/tcwautofinish.nsf",true)
end if
将原来的ACL添加"[]",如“-default-”修改为"[-default-]"

9.如何获取并添加数据库的acl操作
set acl=db.ACL
set entry= acl.getfirstentry
while not entry is nothing
if entry.name="文档管理员" then
entry.name="$_分行管理员" '修改ACL名称
entry.level=ACLLEVEL_DESIGNER '修改设计权限---ACLLEVEL_MANAGER
entry.UserType=ACLTYPE_PERSON_GROUP '修改用户类型
entry.enableroles
entry.remove '删除ACL
end if
wend
acl.save
acllevel:
ACLLEVEL_AUTHOR (3)
ACLLEVEL_DEPOSITOR (1)
ACLLEVEL_DESIGNER (5)
ACLLEVEL_EDITOR (4)
ACLLEVEL_MANAGER (6)
ACLLEVEL_NOACCESS (0)
ACLLEVEL_READER (2)
acltype:
ACLTYPE_UNSPECIFIED (0)
ACLTYPE_PERSON (1)
ACLTYPE_SERVER (2)
ACLTYPE_MIXED_GROUP (3)
ACLTYPE_PERSON_GROUP (4)
ACLTYPE_SERVER_GROUP (5)

!(@IsMember(@UPPercase(@username);@UPPercase(fld_CurStepPerformers))|@IsMember(@UPPercase(@username);@UPPercase(fld_CurStepRestPerformers))|@IsMember("[公文管理员]";@UserRoles)|fld_FlowIsEnd="1")

10.msgbox 打印后台报错信息通用版

MsgBox |数据库| & curdb.FilePath & |中代理| & session.CurrentAgent.Name & |在第| & Erl & |行出现错误："| & Error & |"|

11.notesviewentry方法
Dim session As New NotesSession
Dim db As NotesDatabase
Dim view As NotesView
Dim entry As NotesViewEntry
Dim nav As NotesViewNavigator
Set db = session.CurrentDatabase
Set view = db.GetView("By Category")
view.AutoUpdate = False
Set nav = view.CreateViewNav
Set entry = nav.GetNth(2)
Messagebox entry.NoteID

12.公式及代理
@Dbname：显示服务器及数据库名称：
如：CN=oazh05bj/OU=serves/O=CITICB; sgsoa\testniexz.nsf
@Subset(@Dbname;1)显示服务器名称
如：CN=oazh05bj/OU=serves/O=CITICB;
@Subset(@Dbname;-1)显示数据库路径
以下表示返回：数据库路径
curDbPath=Evaluate(|@leftback(@LowerCase(@ReplaceSubstring(@Subset(@DbName;-1);"\\";"/"));"/")|)

@Subset的用法----：
@Subset("New Orleans":"London":"Frankfurt":"Tokyo";2)---This example returns New Orleans;London.
@Subset("New Orleans":"London":"Frankfurt":"Tokyo";-3)---London;Frankfurt;Tokyo.
@ReplaceSubstring的用法-----
@ReplaceSubstring( "I like apples" ; "like" ; "hate" )--This example returns "I hate apples".
@ReplaceSubstring( "I like apples" ; "like" : "apples" ; "hate" : "peaches")
--This example returns "I hate peaches".
@Username：CN=admin/O=CITICB
视图中从多个表单中取到文档：
SELECT @Contains(form;"frm_Org_")

13.用js获取当前时间
function GetCurTime(){
var time = new Date()
var hours = time.getHours()
if (hours <=9) { hours="0"+hours }
var minutes = time.getMinutes()
if (minutes <=9) { minutes="0"+minutes }
var seconds = time.getSeconds()
if (seconds <=9) { seconds="0"+seconds }
var year=time.getYear()
var month=time.getMonth()+1
var day=time.getDate()
var Timestr=year+"年"+month+"月"+day+"日"+" "+hours+":"+minutes+":"+seconds
//GetCurTime=year+"年"+month+"月"+day+"日"+" "+hours+":"+minutes+":"+seconds
return Timestr
}

14.公式中替换字符串的值
laiwendanwei:=@ReplaceSubstring(tmpendstr;"﹨";"");

15.如何用公式获取路径所在目录，如获取sgsoa

dbtempPath:=@Subset(@DbName;-1);
tempFilePath:=@If(@Contains(dbtempPath;"\\");@LeftBack(dbtempPath;"\\");@Contains(dbtempPath;"/");@LeftBack(dbTempPath;"/");"");
tempFilePath1:=@ReplaceSubstring(tempFilePath;"\\";"/");

16.如何使用公式获取传过来的参数--请参考kkss.nsf-strvalue域，在表单上存在一个域Query_String_Decode
方法一：
ref:=Query_String_Decoded;
str:=@Right(ref;"&searchvalue=");

@Left(@Right(QUERY_STRING_DECODED;"&StepName=");"&")
str
方法二：
使用代理传过来的为，可参考sgsoa/tcwsupervisory.nsf--公文监控库
"http://"+dContext.Server_Name(0)+":"+dContext.Server_Port(0)+"/"+DbPath(0)"/tcwfilesupervisory.nsf"+"/frm_VirtualDoc?openform&username="+username+"&dbpath="+DbPath0+"&UNID="+docFound.UniversalID
新增域为：fld_FlowDocDBName，设置为
@UrlQueryString("dbpath")

17.CGI variable names
Query_String_Decoded

18. notesname及common方法
Dim simplecurStepname As NotesName '当前环节处理人中文名
Set simplecurStepname=session.Createname(curPerformer)
'当前环节处理人中文名 curPerformer为 CN=蔡志诚/OU=汽车金融中心/OU=总行/O=CITICIB
msgbox simplecurStepname.Common '当前环节处理人简称

19.NotesDOMNode

20. session.getEffectiveUserName() -This is the name of the user logged into the server session running the script.
creator = session.EffectiveUserName

'******************************************************************************
' 名称 runAutoAgent(sAgentName)
' 参数定义 sAgentName-要运行的代理名称
' 作者 wq
' 创建时间 2005-8-22
' 版本号 1.0
' 定义说明按sAgentName名称，运行特定的代理
'*******************************************************************************
Public Sub runAutoAgent(sAgentName As String)
On Error Goto er
Dim agent As NotesAgent
'Set db = s.CurrentDatabase
Set agent = mAppDB.GetAgent(sAgentName)
If agent.Run(mAppDoc.NoteID) <> 0 Then
Call mError.TreatWithError("sub runAutoAgent agent is run false,class Appdoc")
End If
Exit Sub
er:
Call mError.TreatWithError("sub runAutoAgent,class Appdoc")
End Sub

http:oatest1.citicbank.com:8080/tcwmobileinterface.nsf/SubmitDispension?wsdl

http://oatest1.citicbank.com/tcwmobileinterface.nsf/SubmitDispension?wsdl

22.window.confirm
function FullFinishDoc(){
var temp = window.confirm("此举将结束当前文档流程并退出，是否继续？");
if (temp) {
SubmitDoc("90")
}

liangwanghong
1.JavaScript怎样使一个div的内容发生变化.
答案:innerText
2.JavaScript怎样创建一个对象并给属性赋值.答案:符合以下方式即可,
var obj = {'id':1,'name':'liangwanghong'}
function obj(){this.id = 1;this.name = 'liangwanhong'}
function obj(){obj.prototype.id = 1;obj.prototype.name = 'liangwanhong';}

3.英文题,JSON数据格式
4.英文题,想最小开销的快速查询数据,怎么样建立索引
5.英文题,AB两台服务器,如果邮件发送不通,应该执行什么命令(route)

1.代理有几种调用方式
(1)按钮直接执行公式调用代理@Command([ToolsRunMacro];"CacExcleDown");
(2)按钮执行js,js调用某按钮的click,ajax调用、dom对象调用;
(3)表单submit触发webquerySave执行代理

2.jsheader,webQueryOpen执行顺序.
答案:WebQueryOpen,JsHeader, onload

3.查询某一文档几种方式,效率.
答案:db.search,效率最慢;db.ftsearch(); view.getDocumentByKey,效率适中,db.getDocumentByUNID,效率最快

1.增加select的一个option.答案:
var obj = document.createElement("option");
obj.text = "测试";
obj.value = "01"
document.forms[0].select.add(obj);
2.表单subject域值判断后台是否存在同subject文档,如有,提示,但是前台数据不能丢失,写出JS及LS.答案:
JS:
var ajax = new ActiveXObject("Msxml2.XMLHTTP");
ajax.open("POST", "代理名称?OpenAgent", True);
ajax.send(subject域值);
ajax.onreadystatechange = function(){
if(ajax.readyState == 4){
var value = ajax.responseText;
if(value == "Y"){
alert("已经存在！");
}else{
//提交文档保存
}
}
}

fld_routerelatekey
LS:
Dim session As New NotesSession
Dim db As NotesDatabase
Set db = session.CurrentDatabase
Dim doc As NotesDocument
Set doc = session.DocumentContext
Dim subject As String
subject = doc.Request_Content(0)

Dim dc As NotesDocumentCollection
Set dc = db.Search("subject='" + subject + "'")
Print "Content-Type:text/xml"
If dc.Count > 0 Then
Print "Y"
Else
Print "N"
End If

9月
1.如何在代理中取时间
MsgBox "now======="&Now()
MsgBox "now======="&Format$(Now(),"HH:MM:SS")
2.NotesItem使用
可以使用noteitem创建域，并给域赋值，文本域，数字域，时间域，多值域
参数（文档doc，域名称，域值，域权限）
如下代码，位于网关库中 SendOneDept 方法
'创建一个接收方的路由文件
Set NewDoc = RouteDoc.CopyToDatabase(CurDB)

NewDoc.form = "frm_DocRouteInfo"
Dim newValues( 1 To 6) As String
newValues( 1 ) = "CN=孙航/OU=信息技术部/OU=总行/O=CITICIB"
newValues( 2 ) = "OAZH05BJ/Servers/CITICIB"
newValues( 3 ) = "LocalDomainServers"
newValues( 4 ) = "$$系统管理员"
newValues( 5 ) = "#CITIC_NSC"
newValues( 6 ) = "OAZH06BJ/Servers/CITICIB"
Dim item_edit As New NotesItem(newdoc, "fld_docAuthors", _
newValues, AUTHORS)

This script creates a new text item in a document and gives it multiple values. The values in the text list are Bicycle, Train, and Foot.
Dim doc As NotesDocument
Dim textListItem As NotesItem
Dim newValues( 0 To 2 ) As String
'...set value of doc...
newValues( 0 ) = "Bicycle"
newValues( 1 ) = "Train"
newValues( 2 ) = "Foot"
Set textListItem = New NotesItem _
( doc, "Choices", newValues )
Call doc.Save( True, True )

1.如何取到当前浏览器的路径
var urlold=window.location.pathname.toString()
var strurl= urlold.substring(0,urlold.indexOf(".nsf"))+".nsf/getsearchfield?openagent";

2.对话框列表中值
返回值用“|”隔开，“|”前面表示下拉框显示的值，后面显示的真正的值。值的形式为数组，可用“:”隔开表示。
如下表示下拉表中第一个值为空
strServer := @Subset(@DbName;1);
strPath := @LeftBack(@ReplaceSubstring(@Subset(@DbName;-1);"\\";"/");"/") + "/tcwworkflow.nsf";
tasks := @DbColumn("":"";strServer:strPath;"vws_TaskName";2);
tasksID := @DbColumn("":"";strServer:strPath;"vws_TaskName";1);
"":tasks + "|" + "":tasksID
3.js中代码转码，使用escape
4.使用ajax 调用代理
eval("var myAjax = new Ajax.Request( urllast, { method: 'get', parameters: paramsnew,onComplete: BuildLinesArray})");
urllast：

5.使用产品代码调用ajax //请研究resttest返回值是什么
$ct.get(strurlnew,function(xhr){
restext = xhr.responseText;
},false);

if (restext=="2"){document.getElementById("displaysearch").innerHTML="没有该数据库！";return false}
if (restext=="0"){document.getElementById("displaysearch").innerHTML="No database Select";return false;}
if (restext=="1"){document.getElementById("displaysearch").innerHTML="No search string";return false}
if (restext.indexOf("ErrorSystem")!=-1){document.getElementById("displaysearch").innerHTML=restext;return false}

get : function(url, callback, /* optional */async,/* Cache */cache) {
if (url.substring(0, 1) != "/" & url.substring(0, 5) != "http:"){
url = this.getLocalDbName() + "/" + url;
}
if (!cache)
url += (/\?/.test(url) ? "&" : "?") + "_=" + (new Date).getTime();
var xhr = this.xhr();
async = typeof(async) == "boolean" ? async : true;
xhr.open("GET", url, async);
xhr.send(null);
if (!async) {
if (this.isFunction(callback))
callback(xhr);
return;
}
var me = this;
xhr.onreadystatechange = function() {
if (xhr.readyState == 4) {
if (xhr.status == 200) {
if (me.isFunction(callback))
callback(xhr);
}
}
}
},

14.js中调用代理汇总
使用Ajax
try{
argumentxml = new ActiveXObject("MSXML.DOMDocument");
if(argumentxml != null){
argumentxml.async = false;
if(argumentxml.load(url)) {
//alert(argumentxml.xml);
return argumentxml.selectSingleNode("//result").text
}
}

}catch(err) {}

14.2使用产品的
var argumentxml = $ct.loadXML(url);
alert(argumentxml.xml)

15.可参考短信发送数据库
鼠标放在按钮上,变成手状的代码：style="cursor:pointer"
<input type="button" name="btn_send" value="选择人员" class="coolbtn_style_2" style="cursor:pointer" οnclick="selectuser('fld_SMSReceives_CN','fld_SMSReceives')"/>
点击某个按钮打开一个窗口
var url = filepath+"/tcworg.nsf/frmw_showusergroup?open&field="+strfieldname+"&fvalue="+strfieldValue;
if($ct.getNavi()=="MSIE"){
var heightconst=650;
var widthconst=850;
var leftconst=(screen.availWidth-widthconst)/2;
var topconst=(screen.availHeight-heightconst)/2;
wZoom="dialogLeft:"+leftconst+"px;dialogTop:"+topconst+"px;dialogHeight:"+heightconst+"px;dialogWidth:"+widthconst+"px; center: no; help: no; status:no";
//s1 = showModalDialog(url,document,'dialogWidth:850px,dialogHeight:600px,scroll:no');
s1 = showModalDialog(url,document,wZoom);
//s1 = showModalDialog(url,document,'dialogWidth:600px,dialogheight:400px');
}else{
$ct.showModalOther(url,document,650,580,"","0","选择人员");
}

16.使用代理判断某个文档是不是新文档
If CurDoc.IsNewNote Then
Else
End If

17.关注文档代码学习
请看行发文关注文档功能中页面跳转
function Gzwd(){
UNID = document.forms[0].fld_CurrentDocUNID.value;
DeptID = document.all("fld_CurUserDeptID").value;
StepID = document.all("fld_CurStepID").value;
UserName = document.all("fld_CurUserName").value;
location.href = "/<计算的值>/AG_GzDoc?openAgent&UNID="+UNID+"&StepID="+StepID+"&DeptID="+DeptID+"&UserName="+UserName;
}
AG_GzDoc中：
Print |<script>|
Print |alert("您已关注过此文档！");|
Print |parent.location.href = "|+ sPath +|";|
Print |</script>|
代理中去空格取唯一Arrayunique及FullTrim方法
MainDoc.fld_GzwdReaders = FullTrim(ArrayUnique(MainDoc.fld_GzwdReaders))
加锁：
lockID = CreateLock(SharesResources)
gotLock = CodeLock(lockID)
解锁---begin
If gotLock Then
releaseLock = CodeUnlock(lockID)
deleteLock=DestroyLock(lockID)
End If
解锁---end
19.组织机构人员排序中有关于xml转化的代码，
<XML id="Source">“此处为代理生成的一个xml文件”</XML>
<XML id="Style" Src="/public/xml/Org_User_DeptInfo.xsl"></XML> //格式转换
<script language="JavaScript" for=window event="onload">
document.all.tableDiv.innerHTML=Source.transformNode(Style.XMLDocument)
document.all("DeptCode").value=window.opener.document.all("fld_OrgSerialNum").value;
document.all("DeptID").value=window.opener.document.all("fld_OrgNo").value;
</script>
20.旧文档显示按钮，新文档不显示按钮。使用按钮中的隐藏条件
@IsNewDoc

10月
1.xml加载代码---可参考configuration.nsf库下frm_jd表单
var url = pathname1+"/AG_JDJudge?openAgent"+searchstring

try{
argumentxml = new ActiveXObject("MSXML.DOMDocument");
if(argumentxml != null){
argumentxml.async = false;
if(argumentxml.load(url)) {
return argumentxml.selectSingleNode("//result").text
}
}
}catch(err) {}

2.option下拉框中删除一个元素的方法。elSel.remove(i)
function removeOptionUnChecked(tarField){
//elSel = eval("window.parent.document.all(\"tmpSendTo\")");
elSel = (window.parent.document.forms[0].tmpSendTo);
for (var i = elSel.length-1; i >= 0; i--){
if(elSel.options[i].text.indexOf(tarField)!="-1"){
elSel.remove(i);
}
}
}
添加一个元素的方法
function AddItem(obj,text,value){
var varItem = new Option(text,value);
obj.options.add(varItem);
}
AddItem(oSelect,tmpvalue1,tmpvalue);
3.style中字体加粗
font-weight:bold
4.遍历视图中取首列为key的文档集合
Dim vc_Notify As NotesViewEntryCollection
Dim entry_Notify As NotesViewEntry
Set vc_Notify = OpView.GetAllEntriesByKey(unid)
Set entry_Notify = vc_Notify.GetFirstEntry() '取第一条文档
Set entry_Notify = vc_Notify.GetNextEntry(entry_Notify) '取下一条文档
5.向一个集合中添加文档
Dim docs As NotesDocumentCollection
Set docs = mUtil.initDocCollection(db)
Call docs.AddDocument(doc)
'----------------------------------------------
Public Function initDocCollection(db As NotesDatabase)
Dim doc As New NotesDocument(db)
Call doc.save(True,False)
Dim dc As NotesDocumentCollection
Set dc = doc.Responses
Set initDocCollection = dc
Call doc.Remove(True)
End Function
'------------------------------------------------------
6. NotesDocumentCollection
NotesViewEntryCollection
7. GetFormattedText方法
Set rtfitem=doc.GetFirstItem("fld_NoteAll")
rtfstring =rtfitem.GetFormattedText( False, 0 )
8.代理中replace方法："<","&lt"；">","&gt"
strSource = Replace(strSource,"&","&")
9.死循环后，在控制台输入 res s 或者res ser重启服务器
10.使用代理创建excel文件
Dim excelApplication ,excelbook,excelsheet As Variant
Set excelApplication= CreateObject("Excel.Application")
Set excelbook=excelApplication.workbooks.add
Set excelsheet=excelbook.Worksheets.add
excelApplication.statusbar="正在创建,请稍等............."
excelApplication.Visible = True
excelsheet.name="test"
excelsheet.cells(1,1).value="fld_title"
excelsheet.cells(1,2).value="数量"

Dim i As Integer
i=1
While Not doc Is Nothing
i=i+1
excelsheet.cells(i,1)= doc.fld_title(0)
excelsheet.cells(i,2)= doc.fld_count(0)
Set doc = vwsAllView.Getnextdocument(doc)
Wend

Call excelsheet.UsedRange.Columns.AutoFit()
excelApplication.statusbar="创建完成"
11.使用js创建excel
var oXL = new ActiveXObject("Excel.Application");
oXL.Visible = true;
var oWB = oXL.Workbooks.Add();
var oSheet = oWB.ActiveSheet;
oSheet.Cells(1,1).value = "拟稿时间";
oSheet.Cells(1,2).value = "办结时间";
12.如何计算数据库大小和数据库文档数
db.Size
db.Alldocuments.Count
13.ajax方法总结
1.使用httprequest获取文档
function ajaxFunction()
{
var xmlhttp=null;
if(window.XMLHttpRequest){
xmlhttp = new XMLHttpRequest();
}
else {
xmlhttp = new ActiveXObject("Microsoft.XMLHTTP");
}
xmlhttp.onreadystatechange=function()
{
if(xmlhttp.readyState==4 )
{
var xmldoc=xmlhttp.responseXML
alert(xmldoc.xml)
}
}
url="http://oatest1.citicbank.com/sgsoa/org.xml"
xmlhttp.open("GET",url,true);
xmlhttp.send(null);
}
2.使用load方法获取文档
var url="http://oatest1.citicbank.com/sgsoa/org.xml"
try{
var agrxml=XMLDOM()
if(agrxml!=null){
agrxml.async = false;
agrxml.onreadystatechange=function(){
if(agrxml.readyState==4){
alert(agrxml.selectSingleNode("//ID").text)
}
}
agrxml.load(url)
}
}catch(err){
}
function XMLDOM() {
var xmlDomVers = [
"Microsoft.XmlDom",
"MSXML2.DOMDocument",
"MSXML2.DOMDocument.3.0",
"MSXML2.DOMDocument.4.0",
"MSXML2.DOMDocument.5.0"
];
for (var i=xmlDomVers.length-1;i>=0;i--) {
try {
var xmlDom = new ActiveXObject(xmlDomVers[i]);
return xmlDom;
} catch(e) {continue;}

}
}
1.xpath 中 xmldoc为xml文件
下面的例子会选取所有价格高于 35 的 price 节点：
xmlDoc.selectNodes("/bookstore/book[price>35]/price")
2.ArrayGetIndex("")

11月
1.代理中ArrayUnique 方法用于数组去重
2.this.style.height=this.scrollHeight +'px'
tell amgr run "tcwinitagent.nsf" 'bank_searchlink'
3.域值的类型notesitem.type，以下表示为富文本格式
rtitem_atta.Type = RICHTEXT
4.Mid$(start，end) start=0 表示从第一个字符开始
5.规范时间
Format$(docCur.fld_enddate(0),"yyyy-mm-dd")
6.文件上载控件-在创建-》嵌入元素-》文件上载控制
7.str = "abcd1234.doc"
len(str) = 12
instr(str,".") = 9
right$(str,3)= "doc"
8. HTTP 任务重新启动
Tell HTTP Restart
重启服务器
res s
9.char(10) 表示空格

12月
1.通过代理向服务器发送命令
Dim strCommand As String
strcommand = "push OAZH05BJ sgsoa\tcwpersonalwork.nsf"
Call session.SendConsoleCommand(session.CurrentDatabase.Server,strCommand)
2.检查附件本地附件大小功能。请参考publictooljs
checkFileSize:function(filename){
filesizeKb = 12;//先暂时写死为12M
try{
if(document.all){
var fso = new ActiveXObject("Scripting.FileSystemObject");
if(!fso.FileExists(filename)){
alert("上传文件不存在，请重新输入!");
return false;
}
var file = fso.getfile(filename);
var fileSize = file.size ; //单位:b
var cfileSizeKb = fileSize/1024; //转为kb
if(parseFloat(cfileSizeKb) > parseFloat(filesizeKb*1024)){
alert("当前文件的大小为" + (parseFloat(cfileSizeKb)/1024).toFixed(1) + "M,最大上传文件不能超过" + filesizeKb + "M");
window.location.reload();
}
}
}catch(err){
if(err.description == "Automation 服务器不能创建对象"){
alert("文件大小检验未生效! \r\n 请如下修改浏览器设置：工具->Internet选项->安全->Internet/本地Internet->自定义级别->ActiveX控件和插件->对没有标记为安全的ActiveX控件进行初始化和脚本运行->启动！");
}
window.location.reload();
}
}
if($ct.isIE()){
//调用公用方式检查附件大小
if(atoblen!=""){
$ct.checkFileSize(atoblen);
}
}else{
if(atoblen!=""){
filesize=document.forms[0].atob.files[0].size;
var cfileSizeKb = filesize/1024; //转为kb
if(parseFloat(cfileSizeKb) > parseFloat(12*1024)){ //不能超过12M
alert("当前文件的大小为" + (parseFloat(cfileSizeKb)/1024).toFixed(1) + "M,最大上传文件不能超过12M");
window.location.reload();
return false
}
}

}
3.atoblen = "C:\Documents and Settings\citic\桌面\记录\ecworgbydeptid.xsl"
var natoblen = atoblen.split("\\")
var strfilenamesuffix = natoblen[natoblen.length-1];
strfilenamesuffix======为ecworgbydeptid.xsl
alert(natoblen.length)========为6
4.Arraygetindex 用于判断数组中是否存在某个元素
If arrReceiveDeptID(0)<>"" Then
index = Arraygetindex(arrReceiveDeptID,Cstr(v))
End If
If Isnull(index) Then
todept = todept + {<todept>}+Chr(10)
todept = todept + {<todeptname>} & doc_WF.fld_SelDeptList(i) & {</todeptname>}+Chr(10)
todept = todept + {<todeptid>} & Cstr(v) & {</todeptid>}+Chr(10)
todept = todept + {</todept>}+Chr(10)
End If

5.使用公式，取到视图中某列中某条文档的某个值
server:=@Subset(@DbName;1);
dbname:=@LeftBack(@ReplaceSubstring(@Subset(@DbName;-1);"\\";"/");"/")+"/tcwworkflow.nsf";
tmp:=@DbLookup("":"NoCache";server:dbname;"vws_TaskName";fld_TaskID;"fld_FieldNameByMark");
tmp

7.解释http中，get和post有什么区别？
HTTP请求：get与post方法的区别
相同点;
l Get与post（对于“post”除非相应里有cache-control或者expires头域指示其相应不可缓存）请求的相应是可缓存的；
不同点：
1. Get是从服务器上获取数据，post是向服务器传送数据
2. Get是把参数数据队列加到提交表单的action属性所指定的URL中，值和表单中各个字段一一对应，在URL中可以看到，post是通过HTTP post机制，将表单内各个字段与其内容放置在html header内一起传送到action属性所指的URL地址，用户看不到这个过程；
3. get传送的数据量较小，不能大于2kb；post传送的数据量较大，一般被默认为不受限制的。但理论上，IIS4中最大量为80kb，IIs5中为100kb；
4. get安全性非常低；post安全性较高；
5. get适用于多请求，而保留post仅用于更新站点；
6. 在form提交的时候，如果不指定method，则默认为get请求，form中提交的数据将会附加在url之后，以？与URL分开。字母数字字符原样发送，但空格转换为“+”号，其它符号转换为%xx，其中xx为该符号为16进制表示的ASCII（或ISO Latin-1）值；
7. get请求提交的数据放置在HTTP请求协议头中，而post提交的数据则放在实体数据数据中；
GET 请求
//JS
var xhr = XHR();
xhr.open("get","test.php?qs=true&userName=abc&pwd=123456",true);
xhr.onreadystatechange = function () {
if (xhr.readyState==4 && xhr.status ==200) {
alert(xhr.responseText);
}
};
xhr.send(null);
//PHP
print_r($_GET);
POST 请求
//JS
var xhr = XHR();
xhr.open("post","test.php",true);
xhr.onreadystatechange = function () {
if (xhr.readyState==4 && xhr.status ==200) {
alert(xhr.responseText);
}
};
//比GET请求多了一步
xhr.setRequestHeader("Content-Type","application/x-www-form-urlencoded");
//另外,数据是通过send方法发送的
xhr.send("qs=true&userName=abc&pwd=123456");
//PHP

8.解释css中，padding 和magin 有什么区别？
margin：层的边框以外留的空白
padding：层的边框到层的内容之间的空白

9.domino中调用代理有多种方式，请对各种方式进行简单描述？
9.1 执行其他数据库上代理
Dim dbAutoFinish As NotesDatabase
Dim agAutoFinish As NotesAgent
Set dbAutoFinish = s.Getdatabase(CurDB.Server,"public/tcwautofinish.nsf")
Set agAutoFinish = dbAutoFinish.Getagent("ag_autofinishdoc")
Call agAutoFinish.Runonserver()

9.2 使用公式运行代理@Command([ToolsRunMacro]; "CreateCPBH");
9.3从js中通过URL调用代理
9.4后台执行代理 tell amgr run "shujuku.nsf" 'agent'

10.linux/AIX系统与windows系统开发时，有什么不同

10.1 数据库路径 linux aix 下为“sgsoa/tcworg.nsf”,window 下为 “sgsoa\tcworg.nsf”

11.想要通过特定条件在数据库中查找文档（如某个字段等于、包含特定的值），使用lotuscript有哪些方法，各有什么优缺点？
db.FTSearch :使用了数据库索引，此外，根据服务器的Notes.ini 设置，对返回的文件集合的大小施加了限制
db.Search：它不需要全文索引和预先创建的视图，因此它是一种非常方便的查询方法
view.GetAllDocumentsByKey：为检索文件集合最快的方式。唯一的缺点是需要建立相关的视图
view.GetDocumentByKey

12.编程题
实现以下代码：文档以subject字段为关键字，提交时做唯一性检测（如检测已有同关键字文档，给出提示但填写信息不能丢失），文档对应视图为vwDocbySubmit，检测包括前台javascript和后台lotuscript
答案：
url="oa1/Testagent?opentagent&subject="+subject
try{
agrxml=XMLDOM(); //"MSXML2.DOMDocument"
if(agrxml!=null){
agrxml.async = true;
if(agrxml.load(url)){
alert(agrxml.xml)
alert(agrxml.selectSingleNode("//ID").text)
}
}
}catch(e){}

Print {Content-Type: text/xml}
Print {<?xml version="1.0" encoding="GB2312" ?>}

2014年domino学习小结相关推荐

Python - 输出格式 (学习小结)
Python - 输出格式 (学习小结) Bu.xing 利用现代手段,创建学习家园关注他 1 人赞同了该文章 Python 输出格式我们常说的输出格式分两种含义: # 一种是指数据在屏幕上的显 ...
Page 的生命周期学习小结
(以前我在 csdn 写的翻译文章,现在转到这里来.) Page 的生命周期学习小结原文链接:Page Events: Order and PostBack 作者:Paul Wilson 翻译:木野 ...
c语言基本类型学习小结
基本类型学习小结环境: Dev-C++ 4.9.6.0 (gcc/mingw32), 使用-Wall编译选项基本类型包括字节型(char).整型(int)和浮点型(float/double). 定 ...
python中字典和集合的区别_Python中字典和集合学习小结
映射类型: 表示一个任意对象的集合,且可以通过另一个几乎是任意键值的集合进行索引与序列不同,映射是无序的,通过键进行索引任何不可变对象都可用作字典的键,如字符串.数字.元组等包含可变对象的列表. ...
【转载】Hyperledger学习小结
Hyperledger学习小结自学Hyperledger Composer也有段时间了,是时候对所学的知识总结一下了.因为没有实际项目参与的话,差不多也就到此为止了.后续可能会去了解一下以太坊的技术 ...
图片裁剪功能学习小结
图片裁剪功能学习小结近期有需要使用图片裁剪的功能,在使用插件和自己写裁剪组件之间犹豫了很久,后来根据需求经过反复的考虑,还是自己封装吧,毕竟自己动手,丰衣足食,对吧?嗯,??????是的!最后生成裁 ...
pthread多线程编程的学习小结
pthread多线程编程的学习小结 pthread 同步3种方法: 1 mutex 2 条件变量 3 读写锁:支持多个线程同时读,或者一个线程写程序员必上的开发者服务平台 -- DevStore p ...
ShaderLab学习小结（十九）RenderToCubemap创建能反射周围环境的效果
继续用"ShaderLab学习小结(十八)cubemap"中所做的shader 想要让它能对周围的环境进行反射思路就是要让它的cubemap里的内容是周围环境的映射 shader ...
2014年应该学习的十种编程语言
2014年应该学习的十种编程语言如果你从多年前就开始玩手机或者电脑,那么现在你会发现科技正在以惊人的速度发展,带来的一个最直观的表现就是市场对编程人才的大量需求,并且编程工作的薪水要明显高于其 ...
RabbitMQ（七）：常用方法说明与学习小结
RabbitMQ(一):Hello World程序 RabbitMQ(二):Work Queues.循环分发.消息确认.持久化.公平分发 RabbitMQ(三):Exchange交换器--fanout ...

2014年domino学习小结

2014年domino学习小结相关推荐

最新文章

热门文章