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