1. 斑斓网首页
  2. 系统软件

推荐！调用百度热榜，排行榜，实时热点，热门关键词，榜单热词的小程序

斑斓网站长 • • 系统软件 • 阅读 9283

推荐！调用百度热榜，排行榜，实时热点，热门关键词，榜单热词的小程序

大家或许有这样的要求，把百度的榜单内容搬到自己的网站上，充实一下内容，提供更优质的用户体验，其它这个非常简单，程序源码也不长，现在贴在下面，复制后保存成asp文件，放到服务器上就可以了。

访问baidutop.asp?id=top10，获得实时热点排行榜前50名，

访问baidutop.asp?id=weekhotspot，获得七日关注排行榜，

访问baidutop.asp?id=top_keyword，获得今日热门搜索排行榜前50名，

访问baidutop.asp?id=shishuoxinci，获得世说新词排行榜。

以下是源代码：

<%
‘本程序源自网络，由https://www.argb.net编辑整理
‘本程序完全免费共享，实例显示请浏览：http://www.sonovo.net
by=request.querystring(“by”)
if by=”” then
by = “top10”
end if
Response.Expires = 0
Response.expiresabsolute = Now() – 1
Response.addHeader “pragma”, “no-cache”
Response.addHeader “cache-control”, “private”
Response.CacheControl = “no-cache”
Response.Buffer = True
Response.Clear
Server.ScriptTimeOut=999999999
‘采集函数
Function getHTTPPage(url)
If IsNull(url)=True Then
response.Write(“请输入网址！”)
Exit Function
End If
On Error Resume Next
dim http
set http=Server.createobject(“MSXML2.XMLHTTP”)
Http.open “GET”,url,false
Http.send()
if Http.readystate<>4 then
response.Write(“该网页无法访问！”)
exit function
end if
GetHTTPPage=bytesToBSTR(Http.responseBody,”gb2312″)
Set Http=Nothing
If Err.number<>0 then
Response.Write “<div align=’center’><b>服务器获取文件内容出错</b></div>”
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
Function stripHTML(strHTML)
Dim objRegExp, strOutput
Set objRegExp = New Regexp
objRegExp.IgnoreCase = True
objRegExp.Global = True
objRegExp.Pattern = “<\/?[^>]*>”
strOutput = objRegExp.Replace(strHTML, “”)
strOutput = Replace(strOutput, “<“, “&lt;”)
strOutput = Replace(strOutput, “>”, “&gt;”)
strOutput = Replace(strOutput, CHR(32), “&nbsp;”)
strOutput = Replace(strOutput, CHR(9), “&nbsp;”)
strOutput = Replace(strOutput, CHR(34), “&quot;”)
strOutput = Replace(strOutput, CHR(39), “&#39;”)
strOutput = Replace(strOutput, CHR(13), “”)
strOutput = Replace(strOutput, CHR(10) & CHR(10), ” “)
strOutput = Replace(strOutput, CHR(10), ” “)
stripHTML = strOutput
Set objRegExp = Nothing
End Function
Dim Url,title,strhtml,strTmp_bd,strkey
dim objRegExp, Match, Matches,Html,skey
‘截取”上升最快Top50″部分的内容
Url=”http://top.baidu.com/buzz/”&by&”.html”
Html= GetHTTPPage(Url)
Set objRegExp = New Regexp     ‘ 建立正则表达式。
objRegExp.IgnoreCase = True    ‘设置是否区分字符大小写
objRegExp.Global = True        ‘设置全局可用性
objRegExp.Pattern = “(<td class=\””.*””\><a href=\””)(.*)(\””\>)(.*)(<\/a></td>)” ‘ 设置模式。
set Matches = objRegExp.Execute(Html) ‘执行搜索
For i=0 To Matches.count-1      ‘遍历匹配集合
Match = Replace(stripHTML(Match),””,””) ‘格式化html代码
title = title&(Matches(i).SubMatches(3)&”||”) ‘赋值Matches(i).SubMatches(3)内容给title
Next
Set objRegExp = Nothing
title=split(title,”||”)
for i=0 to ubound(title)-1
baidu=baidu&”<a href=’http://www.baidu.com/baidu?cl=3&tn=baidutop10&fr=top1000&wd=”&title(i)&”‘ target=’_blank’>”&title(i)&”</a> <br>”
next
baidu=baidu&”<iframe src=baidutop.asp?id=”&by&” width=0 height=0 scrolling=no frameborder=0>auto</iframe>”
‘生成静态文件
Set Fso = Server.CreateObject(“Scripting.FileSystemObject”)
If Not Fso.FolderExists(Server.MapPath(“/”)) Then
Fso.CreateFolder(Server.MapPath(“/”))
End If
set fw=fso.createtextfile(server.mappath(“/”&date&”.html”),true)
fw.writeline baidu
fw.close
set fr=nothing
set fw=nothing
set fso=nothing
response.Write “已经完成,请打开”&date&”.html页”
%>

原创文章，作者：斑斓网站长，如若转载，请注明出处：https://www.argb.net/recommended-baidu-is-called-hot-list-list-real-time-hot-spots-popular-keywords-list-of-hot-words-applet.html

赞 (0)
斑斓网站长斑斓网站长
0
上一篇 2011 年 09 月 14 日 pm 10:42
下一篇 2011 年 09 月 16 日 pm 6:51

相关推荐

  • 2012年河北省普通高校招生文理科一分一档统计表，对口一分一档表最新EXCEL版，PDF版，

    2012年河北省普通高校招生文理科一分一档统计表，对口一分一档表 EXCEL版 河北省2012高考文理一分一档表EXCEL版下载 PDF版 河北省2012高考文理一分一档表下载 河北省2012高考对口一分一档表下载

    系统软件 2012 年 06 月 24 日

  • 河北省2012高考录取分数线公布，含对口分数线，文史本一572分，理工本一564分

    河北省2012高考分数线公布，文史本一572分，理工本一564分 6月23日，省招生委员会召开全体会议，根据教育部相关要求和我省今年招生计划数，结合考生成绩分布情况，研究划定了我省今年普通高校招生各批各类录取控制分数线，确定了录取相关工作。 一、各批各类录取控制分数线 （一）文史类 1.本科一批：572分 2.本科二批：529分 3.本科三批：425分 4….

    系统软件 2012 年 06 月 24 日

  • 减小Fcgi环境配置下php-cgi进程所占内存，减小php-cgi重启周期

    在fastcgi(FCGI)+PHP的配置中，php-cgi往往比较大占内存，本文研究一下减小php-cgi占内存的方法，本文减小php-cgi占内存的原理是，尽量减小系统中的php-cgi.exe的同时运行进程数，可以减小php-cgi.exe总体占内存的数量，我们可以通过减小php-cgi重启周期来实现。 在C:\WINDOWS\system32\ine…

    开发笔记 2011 年 10 月 04 日

  • 解决Windows事件应用程序日志中“事件 ID ( 5 )的描述(在资源( Zend Loader )中)无法找到”问题

    解决Windows事件应用程序日志中“事件 ID ( 5 )的描述(在资源( Zend Loader )中)无法找到”问题 我的环境是windows server 2003，IIS6+PHP5.3.8+Zend Guard Loader 5.5.0+eAccelerator 0.9.6.1，这个问题已经解决，具体过程如下： 在“计算机管理->事件查看器…

    开发笔记 2011 年 10 月 01 日

  • 修改FTP端口，解决FTP攻击，系统日志MSFTPSVC警告信息的方法

    最近服务器老被攻击，出现下面这个警告信息： 事件类型:    警告事件来源:    MSFTPSVC事件种类:    无事件 ID:    100日期:        2011-10-1事件:        21:01:39用户:        N/A计算机:    myser描述:由于错误 登录失败: 未知的用户名或错误密码。 ，服务器无法登录 Windo…

    开发笔记 2011 年 10 月 01 日

  • 三伏与三九，伏与九的起始

    我国夏天热的时候，有三个“伏天”；伏天分初伏、中伏和末伏。初伏和末伏各为十天，中伏有的年份十天，有的年份二十天。冬天冷的时候，有九个“九”天。计算方法如下。初伏 夏至后第三个庚日起到第四个庚日前一天， 第三个庚日为入伏， 作为初伏的第一天；中伏 夏至后第四个庚日起到立秋3后第一个庚日前一天， 第四个庚日定为中伏开始的第一天，农历七月前立秋者，则中伏为10天，…

    系统软件 2011 年 07 月 12 日
  • 在Windows环境下编译、配置 eAccelerator 加速PHP 附eAccelerator.dll for php5.3.8 nts下载 开发笔记

    在Windows环境下编译、配置 eAccelerator 加速PHP 附eAccelerator.dll for php5.3.8 nts下载

    本文使用到的程序以及版本下载地址如下： (笔者使用fast-cgi模式运行php，请根据自己的实际情况进行相关的改动和配置,本文附件提供php5.3.6VC9nts以及php5.2.17vc6nts（使用VC6.0编译）编译后的 eAccelerator v0.9.6.1下载 。) Php5.3.6(VC9 x86 Non Thread Safe)下载地址：…

    2011 年 09 月 29 日

  • 手自一体变速器就是 AMT 变速器么？别克昂科威2.0T和1.5T的变速箱是同一种么？

    最近关注别克昂科威，其中28T（排量为2.0T）的车型用的变速箱是6T50，通用的6速手自一体变速箱；而20T（排量为1.5T）的车型用的是7速DCG智能双离合变速箱，这两个都是手自一体变速箱，那手自一体变速箱就是 AMT 变速箱么？还有常说的AT，AMT，CVT等，有什么区别？ 先来了解几个术语是什么意思： MT的英文全称是Manual Transmiss…

    系统软件 2015 年 06 月 29 日

  • 苹果欲参与收购ARM，Intel将代工ARM芯片，对抗三星台积电

    ARM近期被收购的消息吸引着大家眼球，被软银收购过程中，又半路杀出个程咬金，苹果也想收购ARM，ARM可以移动界的最大功臣，没有ARM设计的芯片，就没有移动产业界的今天，被收购的结果，人个也感觉是惨了点，不过价格可不低，那可是350亿美元，不过，ARM今天又传出好消息，Intel与ARM达成协议，正式代工ARM的芯片，Intel是谁？为什么会代工ARM芯片呢…

    系统软件 2016 年 08 月 24 日

  • 虚惊一场：不要两个站使用一个淘链接帐号

    今天使用phpwind在线应用里的淘链接，淘链接以前的数据不见了，原来虚惊一场。 我已经有个社区，做了淘链接，里面也有两笔收入，可是还没到提现的时候，钱拿不出来。这两天又做了一个社区，也想把淘链接搞上，于是安装完后，就非常熟练的到后台去设置淘链接。 点应用里面的“淘链接”，右边出现了“注册新账号”和“使用老帐号”，我一想，怎么也有一个帐号了，于是选了“使用老…

    系统软件 2011 年 05 月 06 日

发表回复

您的电子邮箱地址不会被公开。 必填项已用*标注

记住昵称、邮箱和网址，下次评论免输入