Remove the specified document from the database

Function Composeurl (S as notessession) as String
' Get the last URL that has been UTF-8 encoded, such as 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

' Get multiple user names from the document, such as Zhang San/office/EPA/Dongguan City
Dim Hierarchyname as String
' Hname (DOC) returns the unit string, e.g./office/EPA/Dongguan City
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