从数据库中取出指定文档

 Function composeURL(s As NotesSession) As String
'得到最后的已经UTF-8编码过的URL 例如 http://fax2.dgoa.cn/login.aspx?dominoauthor=%E7%BF%9F%E6%96%87%E8%BE%89%2f%E5%BA%94%E7%94%A8%E6%8E%A8%E5%B9%BF%E7%A7%91%2f%E5%B8%82%E7%94%B5%E5%AD%90%E6%94%BF%E5%8A%A1%E5%8A%9E%2f%E4%B8%9C%E8%8E%9E%E5%B8%82
 
 Print "begin function composeURL"
 
 Dim db As NotesDatabase
 Dim v As NotesView
 Dim doc As NotesDocument
 
 Set db = s.GetDatabase(s.CurrentDatabase.Server,"names.nsf")
 
 Set v = db.GetView ("People")
 
 Dim   userName   As   New   NotesName(s.EffectiveUserName)
 Dim userNameCN As String
 userNameCN = userName.Common
 
 Set doc = v.GetDocumentByKey(userNameCN,True)
 Print userNameCN
 
 '从文档取得多层的用户名,例如 张三/办公室/环保局/东莞市
 Dim hierarchyName As String
 'hName(doc)返回单位字符串,例如 /办公室/环保局/东莞市
 hierarchyName = userNameCN + hName(doc)
 Print hierarchyName
 str1 = "@URLEncode('UTF-8';'"+hierarchyName+"')"
 Print str1
 eva = Evaluate(str1)
 Print eva(0)
 
 Dim URL As String
 URL = " http://fax2.dgoa.cn/login.aspx?DominoAuthor=" + eva(0)
 Print "url is " +URL
 
 composeURL = URL
End Function