怎麼用ASP擷取一個網頁的HTML代碼

Private   Function   bytes2BSTR(vIn)   '字串函數   
  Dim   i,   ThischrCode,   NextchrCode   
  strReturn   =   ""   
  For   i   =   1   To   LenB(vIn)   
  ThischrCode   =   AscB(MidB(vIn,   i,   1))   
  If   ThischrCode   <   &H80   Then   
  strReturn   =   strReturn   &   Chr(ThischrCode)   
  Else   
  NextchrCode   =   AscB(MidB(vIn,   i   +   1,   1))   
  strReturn   =   strReturn   &   Chr(CLng(ThischrCode)   *   &H100   +   CInt(NextchrCode))   
  i   =   i   +   1   
  End   If   
  Next   
          bytes2BSTR   =   strReturn   
  End   Function   
    
  Function   GetURL(url)     '字元方式的xmlhttp   
          Set   Retrieval   =   Server.CreateObject("Microsoft.XMLHTTP")   
                      With   Retrieval   
                      .Open   "post",   url,   False,   "",   ""   
                      .Send   
                      GetURL   =   .ResponseText   
      GetURL   =   bytes2BSTR(.Responsebody)   
                      End   With   
          Set   Retrieval   =   Nothing   
  End   Function   
    
  用的時候這樣   
  strs=geturl("http://www.xxxx.com")   
  strs就是得到的源碼  #asp專欄