获取当前用户需要登录,部分参数可能获取不到。更多使用方式查看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.Getitem