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