ASP动态抓取<党史上的今天>

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>


<%
'获取远程网页的HTML代码
basePath ="http://cpc.people.com.cn/"
rep_str ="<base href='"&basePath&"'>"
Function getHTTPPage(url)
    On Error Resume Next
    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")
 getHTTPPage =replace(getHTTPPage,"<head>","<head>"&rep_str)
    set http=nothing
    If Err.number<>0 then
        Response.Write "<p align='center'><font color='red'><b>服务器获取文件内容出错</b></font></p>"
        Err.Clear
    End If 
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
 
d_today =date()
'i_day = datediff("d","2015-07-01",d_today)
's = 67448 + i_day 
'response.Write(s&"<br>")
'url ="http://cpc.people.com.cn/GB/64162/64165/67447/"&s&"/index.html"
hpage=getHTTPPage("http://cpc.people.com.cn/")
'response.write (hpage)
str2= mid(hpage, instr(hpage,"")  ,16)
Str3 ="
http://cpc.people.com.cn/GB/64162/64165/"&str2
response.write getHTTPPage(Str3)
%>

 

  • 0
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值