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

最新推荐文章于 2021-08-18 17:25:44 发布

aloxy

最新推荐文章于 2021-08-18 17:25:44 发布

阅读量833

点赞数

本文链接：https://blog.csdn.net/aloxy/article/details/46722559

版权

WEB开发专栏收录该内容

30 篇文章 0 订阅

订阅专栏

<%@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 "服务器获取文件内容出错"
 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&" ")
'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)
%>

aloxy

关注

0
点赞
踩
0

收藏

觉得还不错? 一键收藏
0
评论
ASP动态抓取<党史上的今天>

%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>'获取远程网页的HTML代码basePath ="http://cpc.people.com.cn/"rep_str =""Function getHTTPPage(url) On Error Resume Next dim http set http=Server.c
复制链接

扫一扫