代理输入完整的网页(用于显示运行时数据或显示运行结果)

本文链接：https://blog.csdn.net/willemzhai/article/details/6606437

Sub Initialize
'多层结构的用户名的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"
Dim strURL As String

Dim s As New NotesSession

Print "Content-Type:text/plain" '<-----print 完整HTML by zu
Print "Content-Type:text/html"
Print
Print "<HTML>"
Print "<HEAD>"
Print {<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=gb_2312-80">}
Print {<META NAME="Generator" CONTENT=" ">}
Print {<LINK REL=StyleSheet HREF="/form.css" TYPE="text/css" MEDIA=all>}
Print {<LINK href="/web/gov/tree/doc.css" rel=stylesheet>}
Print "<TITLE>"+subject+"</TITLE>"
Print "</HEAD>"

Print "<body >"

'获取多层结构的用户名的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
'参数s是当前session
strURL = composeURL(s)

Print "aaabbbccc" '<--------------'网页内容
Print "<Script language='JavaScript'>"
'转到传真二期的指定用户身份
Print "top.location = '"+strURL+"';"
Print "</Script>"
Print "</body></html>"

End Sub