利用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.csdn.net"  

  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  

  %>