Query_string中如何取值

Published by admin on 09月 16, 2008

Lotusscript：
Function GetParameter(paramName As String, queryString As String) As String
        Dim startpos,endpos,skiplen As Integer
        queryString = queryString + “&” +paramName+”=”+”&”
        paramName= Ucase(”&”+paramName+”=”)
        skiplen = Len(paramName)
        startpos = Instr(Ucase(queryString),paramName)+skiplen
        endpos=Instr(startpos,queryString,”&”)
        GetParameter=Mid(queryString,startpos,endpos-startpos)
End Function

调用方式如：
tempstr=GetParameter(”selstring”,doc.Query_String(0))

Javascript：
/*
*功能：获取浏览器参数值；
*参数：url-浏览器的url；para-参数名称；
*/
function getParameter(url,para)
{
        var path = url.substring(url.lastIndexOf(”?”)+1,url.length);
        var tmpArray = path.split(”&”);
        for (i=0;i<tmpArray.length;i++)
        {
                if (tmpArray.indexOf(para) != -1)
                {
                        var result = tmpArray.substring(tmpArray.indexOf(”=”)+1,tmpArray.length);
                        return result;
                }
        }
        return “”;
}