Domino提供了一个query_string_decoded域用来获得解码过的字符，但是在使用中发现有些字符通过这个域无法获得（我遇到的是“砚”字，听说还有其他字也获取不到）。

解决方法是用query_string获得未解码的字符，在用一个函数自己来解码。下面就是一个解码函数，在国华项目中使用没有问题。

Function fnDecode(inString As String) As String<br /> inString=Replace(inString,”+”,” “)<br /> Dim L As String<br /> Dim M As String<br /> Dim R As String<br /> Dim P As Integer<br /> Dim TP As Integer<br /> Dim fnDecode1 As String<br /> Dim rstr As String<br /> Dim TempStr As String<br /> If Instr(inString,”%”)>0 Then<br /> TempStr=inString<br /> Do While Instr(TempStr,”%”)>0<br /> P=Instr(TempStr,”%”)<br /> L=Left(TempStr,P-1)<br /> M=Mid(TempStr,P+1,5)<br /> If Cint(“&H”+Left(M,1))<10 Then<br /> M=Left(M,2)<br /> If M=”0A” Or M=”0D” Then<br /> If M=”0D” Then<br /> rstr=rstr+L+”<br>”<br /> End If<br /> Else<br /> rstr=rstr+L+Chr(Clng(“&H”+M))<br /> End If</p> <p> TP=(P+2)<br /> Else<br /> M=Left(M,2)+Right(M,2)<br /> rstr=rstr+L+Chr(Clng(“&H”+M))<br /> TP=(P+5)<br /> End If<br /> R=Right(TempStr,Len(TempStr)-TP)<br /> TempStr=R<br /> Loop<br /> fnDecode=rstr+TempStr<br /> Else<br /> fnDecode = inString<br /> End If<br /> End Function