国产毛片午夜福利,国产黄网,国产亚洲天堂,97国产精品

    • 

  • 

    • 






    
  
    
    
    
      
    
        



    
  
    
    
    
  
    

    


            		
        
    
    
    		
  
    

    

    
  
    
    




    
  
    

    


    
  
    
     
  
    

    


    
  
    
            
            慧網(wǎng)動態(tài)        
            
            常見問題        
            
            網(wǎng)絡(luò)營銷        
            
            網(wǎng)站設(shè)計        
            
            行業(yè)動態(tài)        
            
            網(wǎng)站優(yōu)化        
      
    

    


    
  
    
    Xml Http抓取數(shù)據(jù)時亂碼問題解決  
    

    


    
  
    
    發(fā)布時間：2008-04-25　　　瀏覽次數(shù)：1184417  
    

    


    
  
    
    
    
      
    Xml Http抓取數(shù)據(jù)時亂碼問題解決
    

    內(nèi)碼問題.用這段代碼的吧,我已經(jīng)改得很精簡了.
    

    使用XMLHTTP抓取地址并進次內(nèi)容處理
    

    


    
以下為引用的內(nèi)容：
    Function GetBody(Url) 
    Dim objXML
    On Error Resume Next
    Set objXML = CreateObject("Microsoft.XMLHTTP") 
    With objXML 
    .Open "Get", Url, False, "", "" 
    .Send 
    GetBody = .ResponseBody
    End With 
    GetBody=BytesToBstr(GetBody,"GB2312")
    Set objXML = Nothing 
    End Function
    

    使用Adodb.Stream處理二進制數(shù)據(jù)
    

    


    
以下為引用的內(nèi)容：
    Function BytesToBstr(strBody,CodeBase)
    dim objStream
    set objStream = Server.CreateObject("Adodb.Stream")
    objStream.Type = 1
    objStream.Mode =3
    objStream.Open
    objStream.Write strBody
    objStream.Position = 0
    objStream.Type = 2
    objStream.Charset = CodeBase
    BytesToBstr = objStream.ReadText 
    objStream.Close
    set objStream = nothing
    End Function
        
    
    
    
        
        
    
    
  
    

    


    
  
    
    
    
      
      
      立即預(yù)約