解决采集UTF-8出现乱码的问题

' ==================================================
' 函数名：GetHttpPage
' 作  用：获取网页源码
' 参  数：HttpUrl ------网页地址
' ==================================================
Function  GetHttpPage(HttpUrl)
     If   IsNull (HttpUrl) = True   Or   Len (HttpUrl) < 18   Or  HttpUrl = " $False$ "   Then
        GetHttpPage = " $False$ "
         Exit   Function  
     End   If  
     Dim  Http,TheContent,TheHead
     Set  Http = server.createobject( " MSXML2.XMLHTTP " )
    Http.open  " GET " ,HttpUrl, False
    Http.Send()
     If  Http.Readystate <> 4   then
         Set  Http = Nothing  
        GetHttpPage = " $False$ "
         Exit   Function  
     End   If
    TheContent = bytesToBSTR(Http.responseBody, " gb2312 " )     ' 用gb2312获得源程序
    TheHead = GetBody(TheContent, " charset= " , " > " , false , false )   ' 取头部分析
     If   InStr (TheHead, " UTF-8 " ) <> 0   Or   InStr (TheHead, " utf-8 " ) <> 0   Then
        GetHttpPage = bytesToBSTR(Http.responseBody, " utf-8 " )
     Else
        GetHttpPage = bytesToBSTR(Http.responseBody, " gb2312 " )
     End   If  
    Set  Http = Nothing
    If  Err.number <> 0   then
      Err.Clear
    End   If
End Function