[B/S]URL 传递中文参数

解决方法：js中传参时先对中文数据使用escape函数编码，代理中对传入数据解码

1 js中编码

var url="http://127.0.0.1/domcfg.nsf/GetUserInfo?OpenAgent&UserName=" + escape("管理员/Lotus");
var xmlHttp=new ActiveXObject('Microsoft.XMLHTTP');
xmlHttp.open("Post",url,true);   
xmlHttp.send("");

2 代理中解码

Dim ss As New NotesSession
Dim db As NotesDatabase
Dim doc As NotesDocument

Set db=ss.CurrentDatabase
Set doc=ss.DocumentContext

Dim strPara As String
strPara=UnEscape(doc.Query_String_Decoded(0)) 

附：UnEscape解码函数
Function UnEscape(Byval strIn As String) As String
 Dim strOut As String
 Dim strChar As String
 Dim intPos As Integer
 Dim strAsc As String
 Dim blnAsc As Integer
 Do
  intPos = intPos + 1
  strChar = Mid$(strIn, intPos, 1)
  If strChar = "" Then
   Exit Do
  Elseif strChar = "%" Then
   blnAsc = True
  Elseif blnAsc Then
   If strChar = "u" Then
    strAsc = Mid$(strIn, intPos + 1, 4)
    intPos = intPos + 4
    strOut = strOut & Uchr(Clng("&h" & strAsc))
   Else
    strAsc = Mid$(strIn, intPos, 2)
    intPos = intPos + 1
    strOut = strOut & Uchr(Clng("&h" & strAsc))
   End If
   blnAsc = False
  Else
   strOut = strOut & strChar
  End If
 Loop
 UnEscape = strOut
End Function