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