代理輸入完整的網頁(用於顯示執行時資料或顯示執行結果)
阿新 • • 發佈:2019-01-06
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
'多層結構的使用者名稱的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 "<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,例如
'引數s是當前session
strURL = composeURL(s)
Print "aaabbbccc" '<--------------'網頁內容
Print "<Script language='JavaScript'>"
'轉到傳真二期的指定使用者身份
Print "top.location = '"+strURL+"';"
Print "</Script>"
Print "</body></html>"
End Sub