获取当前用户需要登录,部分参数可能获取不到。更多使用方式查看domino帮助-Table of CGI variable names 原文。
domino获取用户提交url中的域名
domino-创建代理-登录后web执行代理。
代码:
Dim ss As NotesSession
Dim note As NotesDocument
Set ss = New NotesSession
Set note = ss.Documentcontext
MessageBox "HTTP_Referer="+note.Getitemvalue("HTTP_Referer")(0)
MessageBox "Path_Info="+note.Getitemvalue("Path_Info")(0)
MessageBox "Path_Info_Decoded="+note.Getitemvalue("Path_Info_Decoded")(0)
MessageBox "HTTP_Accept="+note.Getitemvalue("HTTP_Accept")(0)
MessageBox "HTTP_Accept_language="+note.Getitemvalue("HTTP_Accept_language")(0)
MessageBox "HTTP_User_Agent="+note.Getitemvalue("HTTP_User_Agent")(0)
MessageBox "Remote_Host="+note.Getitemvalue("Remote_Host")(0)
MessageBox "Server_Name="+note.Getitemvalue("Server_Name")(0)
MessageBox "Script_Name="+note.Getitemvalue("Script_Name")(0)
MessageBox "Server_Software="+note.Getitemvalue("Server_Software")(0)
MessageBox "Server_URL_Gateway_Interface="+note.Getitemvalue("Server_URL_Gateway_Interface")(0)
MessageBox "REMOTE_USER="+note.Getitemvalue("REMOTE_USER")(0)
输出:
HTTP Server: Agent message: HTTP_Referer=提交数据的页面的当前url
HTTP Server: Agent message: Path_Info=域名后的所有值
HTTP Server: Agent message: Path_Info_Decoded=域名后的值(解码)
TTP Server: Agent message: query_string=URL中提交参数
HTTP Server: Agent message: HTTP_Accept=application/json, text/javascript, */*; q=0.01
HTTP Server: Agent message: HTTP_Accept_language=zh-CN,zh;q=0.9
HTTP Server: Agent message: HTTP_User_Agent=Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/71.0.3578.80 Safari/537.36
HTTP Server: Agent message: Remote_Host=
HTTP Server: Agent message: Server_Name=www.tttt.cn
HTTP Server: Agent message: Script_Name=
HTTP Server: Agent message: Server_Software=Lotus-Domino
HTTP Server: Agent message: Server_URL_Gateway_Interface=
HTTP Server: Agent message: REMOTE_USER=当前用户