首页 / 网页编程 / ASP / JoinChar 向地址中加入 ？ 或 & 用于实现传参

"**************************************************
"函数名：JoinChar
"作  用：向地址中加入 ？ 或 &
"参  数：strUrl  ----网址
"返回值：加了 ？ 或 & 的网址
"**************************************************
function JoinChar（strUrl）
    if strUrl="" then
        JoinChar=""
        exit function
    end if
    if InStr（strUrl,"？"）<len（strUrl） then 
        if InStr（strUrl,"？"）>1 then
            if InStr（strUrl,"&"）<len（strUrl） then 
                JoinChar=strUrl & "&"
            Else
                JoinChar=strUrl
            end if
        Else
            JoinChar=strUrl & "？"
        end if
    Else
        JoinChar=strUrl
    end if
end function