Asp 將MSXML2.serverXMLHTTP返回的responseBody 內容轉換成支持中文編碼

參考： ASP四個小技巧，抓取網頁：GetBody，字節轉字符BytesToBstr，正則表達式測試方法，生成靜態頁

   
   
   
           

    
    
    
            
Function GetBody(weburl) 
    
    
    
            
 '創建對象 
    
    
    
            
 Dim ObjXMLHTTP 
    
    
    
            
 Set ObjXMLHTTP=Server.CreateObject("MSXML2.serverXMLHTTP") 
    
    
    
            
 '請求文件,以異步形式 
    
    
    
            
 ObjXMLHTTP.Open "GET",weburl,False 
    
    
    
            
 
               
 
                
 
                  '此信息必須在send前一個設置否則將出錯"msxml3.dll error '80004005' Unspecified error" 
                
 
                
 
                  xmlhttp.setRequestHeader "Content-Type", "application/x-www-form-urlencoded" 
                
 
                
 
                  '如果下面的方法在調用時使用()則會出現以下錯誤,如果非要使用()則需要使用call來調用方法 
                
 
                
 
                     '參考：http://www.cnblogs.com/y0umer/archive/2010/08/05/3839405.html 
                
 
                
 
                  “ Microsoft VBScript compilation error '800a0414'Cannotuse parentheses when calling a Sub” 
                
 
                
 
                  
                
 
                
 
                  'xmlhttp.setRequestHeader ("Content-Type", "application/x-www-form-urlencoded") 
                
 
                
 
                 
 
                
 
               
    
    
    
            
 ObjXMLHTTP.send 
    
    
    
            
 While ObjXMLHTTP.readyState <> 4 
    
    
    
            
 ObjXMLHTTP.waitForResponse 1000 
    
    
    
            
 Wend 
    
    
    
            
 '得到結果 
    
    
    
            
 GetBody=ObjXMLHTTP.responseBody 
    
    
    
            
 '釋放對象 
    
    
    
            
 Set ObjXMLHTTP=Nothing 
    
    
    
            
End Function
    
    
    
            

    
    
    
            

    
    
    
            
Function BytesToBstr(body,Cset) 
    
    
    
            
 dim objstream 
    
    
    
            
 set objstream = Server.CreateObject("adodb.stream") 
    
    
    
            
 objstream.Type = 1 
    
    
    
            
 objstream.Mode =3 
    
    
    
            
 objstream.Open 
    
    
    
            
 objstream.Write body 
    
    
    
            
 objstream.Position = 0 
    
    
    
            
 objstream.Type = 2 
    
    
    
            
 objstream.Charset = Cset 
    
    
    
            
 BytesToBstr = objstream.ReadText 
    
    
    
            
 objstream.Close 
    
    
    
            
 set objstream = nothing 
    
    
    
            
End Function
   
   
   
           

來自為知筆記(Wiz)