'**************************************************
'函数名：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