页面上常用的公式
页面中的CGI变量
1.按钮
URL
http://host/数据库名/dominoObject?action&argument
特殊的打开文件中的附件名
http://host/数据库名/documentUNID/$file/附件名
代理
1.定义变量
Dim 变量名as 类型
2.定义数组
a.Dim 数据名(维数) as 类型
b. redim preserve 数据名(维数) as 类型保留数据重新定义数组3.定义列表
Dim 列名list as 类型
例list(“s”)=5
Print list(“s”)
3.注示
a.单行…号
b.多行%rem ……………..%endrem
4If 语句
a.If 条件then
Elseif 条件then
End if
c.if 条件then
else
end if
d.if条件then
end if
4.for语句
for index=1 to end
next
5. While 条件
…?????????
Wend
6. Do
Loop Until 条件
7. Forall v In 数组列表
……….
End Forall
8 With 对象
.属性1=值1
. 属性2=值2
……………..
End With
9. select case 变量
Case 值1:语句
Case 值2:语句
Case 值3:语句
………………
End select
10. Evaluate执行公式
例返回文档中的附件名:evaluate("@AttachmentNames",doc_tmp)
12 常用代码
a.读关系数据库
Dim path_tmp As New KMPath
Dim db_config As New NotesDatabase(cur_db.server,path_tmp.GetFileDirectory("SystemConfig.nsf")) Dim view_config As NotesView
Dim doc_config As NotesDocument
Set view_config=db_config.getview("(SystemSetting)")
Set doc_config=view_config.getfirstdocument
Set con =New ODBCConnection
Set qry= New ODBCQuery
Set result=New ODBCResultSet
Call
con.ConnectTo(doc_config.ODBCSource(0),doc_config.ODBCUser(0),doc_config.ODBCPasswo rd(0))
Set qry.Connection=con
Set result.Query=qry
Sql=”sql语句”
qry.SQL=sql
Call result.Execute()
If result.IsResultSetAvailable Then
Do
result.NextRow
result.getValue(“表中列名”)
Loop Until result.IsEndOfData
end if
b.读domino中的数据
Dim session As New notessession
Dim db_current As notesdatabase
Dim doc_current As notesdocument
Dim col_tmp As notesdocumentcollection
Dim doc_tmp As notesdocument
Set db_current=session.currentdatabase
Set doc_current=session.documentcontext
formual="form='fmSubModel'"
Set col_tmp=db_current.search(formual,Nothing,0)
If col_tmp.Count>0 Then
For index=1 To col_tmp.Count
Set doc_tmp=col_tmp.GetNthDocument(index)
Doc_temp.getName(0)….
Next
End if
c.代理中出输
a)输出javascript
…………………….
Print “”
b)输出链接
Print “[”+链接地址+”]”
c)输出XML
Print |content-type:text/xml|
Print ||
Print |
Print str_xml
Print ||
代理的过程
1.得到当前的上下文Notessession
2.得到当前的数据库notesdatabase
3.得到当前文档当前页面notesdocument
4.通过当前页面取的Query_String_Decoded域来取参数
5.通过对当前页面的域赋值也可以改变当前显示页面的值代理的调用的时间
1.打开页面时调用在webQueryOpen中调用
2.通过按钮来调用