GetParameter For Lotusscript

Function GetParameter(strParamName As String, strQuery As String) As String
%REM
功能描述：得到URL中包含的参数
参数：
strParamName 参数名
strQuery 完整的URL字符串
返回值 对应参数值字符串，未找到返回空字符串""
%END REM

Dim i As Integer
Dim s As String
Dim v As Variant

GetParameter = ""

i = Instr(Ucase(strQuery),"&" & Ucase(strParamName) & "=")
If i <> 0 Then
s = Strright(Mid(strQuery, i),"=")
If Instr(s, "&") Then
s = Strleft(s, "&")
End If
v = Evaluate("@UrlDecode(""Domino""; """ & s & """)")
GetParameter = Cstr(v(0))
End If
End Function