GetParameter For Lotusscript
来源:互联网 发布:linux exec fork 编辑:程序博客网 时间:2024/05/16 07:22
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
%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
- GetParameter For Lotusscript
- SOAPConnect for LotusScript
- getParameter
- getParameter
- getParameter
- getParameter
- getParameter
- getParameter
- getParameter
- lotusscript学习
- lotusscript操作word文件
- lotusscript-拷贝文件
- lotusscript-删除文件
- lotusscript--Vector class
- lotusscript连接数据库
- LotusScript获得在线用户
- Lotusscript中的文件操作
- LotusScript获得在线用户
- MATLAB中FFT的使用方法
- JVM自定义参数
- hdu 3397 Sequence operation(区间合并)
- Android AVD Eclipse版快捷键
- URLRequest For JAVA
- GetParameter For Lotusscript
- Oracle 工具后台进程
- Xfce与Fluxbox
- const int * p与int *const p的详解
- 软件工程之面向过程的软件设计方法
- 关于学习,关于博客……
- 冒泡排序和直接选择排序
- 菜鸟学Django(持续更新)
- aspx输入xml