一聚教程网:一个值得你收藏的教程网站

热门教程

asp xmlhttp 采集网页内容代码

时间:2022-07-02 23:02:39 编辑:袖梨 来源:一聚教程网




静态首页生成 - <% = cfg.webName %>
css教程" rel="stylesheet" type="text/css">



 
   
     
     
   
 
     
     
   
   
     
     
   
 
静态首页生成 
对象
     
  



Function getHTTPPage(url)
 dim http
 set http=Server.createobject("Microsoft.XMLHTTP")
  Http.open "GET",url,false
  Http.send()
 if Http.readystate<>4 then
  exit function
 end if
 getHTTPPage=bytesToBSTR(Http.responseBody,"GB2312")
 set http=nothing
 if err.number<>0 then err.Clear
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

热门栏目