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