利用asp读取网页内容实例

第一种：

Function bytes2BSTR(vIn)
   Dim i,ThisCharCode,NextCharCode
   Dim strReturn:strReturn = ""
   For i = 1 To LenB(vIn)
    ThisCharCode = AscB(MidB(vIn,i,1))
    If ThisCharCode < &H80 Then
     strReturn = strReturn & Chr(ThisCharCode)
    Else
     NextCharCode = AscB(MidB(vIn,i+1,1))
     strReturn = strReturn & Chr(CLng(ThisCharCode) * &H100 + CInt(NextCharCode))
     i = i + 1
    End If
   Next
   bytes2BSTR = strReturn
   End Function
   Function getfile(RemoteFileUrl)
   On Error Resume Next
   Dim Retrieval:Set Retrieval = Server.CreateObject("Microsoft.XMLHTTP")
   With Retrieval
   .Open "Get", RemoteFileUrl, false, "", ""
   .Send
   If .Readystate<>4 then
     Exit Function
   End If
   getfile =bytes2BSTR(.responseBody)
   End With
   If Err Then
   Err.clear
   getfile="<font color='#ff0000'>error!</font>"
   End if
   Set Retrieval = Nothing
   end function

'调用

response.write getfile(http://www.baidu.com/?action=0)

 

第二种：

<%  
  on   error   resume   next  
  Function   bytes2BSTR(vIn)    
  strReturn   =   ""    
  For   i   =   1   To   LenB(vIn)    
  ThisCharCode   =   AscB(MidB(vIn,i,1))    
  If   ThisCharCode   <   &H80   Then    
  strReturn   =   strReturn   &   Chr(ThisCharCode)    
  Else    
  NextCharCode   =   AscB(MidB(vIn,i+1,1))    
  strReturn   =   strReturn   &   Chr   (CLng(ThisCharCode)   *   &H100   +   CInt(NextCharCode))    
  i   =   i   +   1    
  End   If    
  Next    
  bytes2BSTR   =   strReturn    
  End   Function    
   
   
  url   =   "http://www.youkuaiyun.com"  
  set   oSend=createobject("Microsoft.XMLHTTP")  
  SourceCode   =   oSend.open   ("GET",url,false)    
  oSend.send()  
  if   err.number<>0   then  
  Response.write   err.description  
  Response.End()  
  end   if      
  SourceCode   =   bytes2BSTR(oSend.responseBody)  
  response.write   SourceCode  
  %>