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