可以查询百度排名的可以查询百度排名的asp源码放送了源码放送了
可以查询百度排名的asp源码放送了
以下是源码，请命名为.asp文件
复制代码 代码如下:
<%
bpn = request("bpn")
if(bpn = "") then
bpn = "0"
end if
intbpn = cint(bpn)
if request("action") = "1" then
word = request("word")
url = request("url")
if word <> "" then
getCategories()
if url <> "" then
getCategories2()
end if
end if
end if
Function getCategories()
response.write("'"&word&"' 关键词在百度搜索排名中,前10位网站!<br>")
on error resume next
Dim oXMLHTTP
Dim oCategories
Dim BodyText
Dim Pos,Pos1
Set oXMLHTTP = CreateObject("Microsoft.XMLHTTP")
oXMLHTTP.open "GET","http://www.baidu.com/baidu?word="&word,False
oXMLHTTP.send
BodyText=oXMLHTTP.responsebody
BodyText=BytesToBstr(BodyText,"gb2312")
Pos=Instr(BodyText,"<body")
pos1=Instr(BodyText,"</body>")
BodyText=mid(BodyText,pos,pos1)
BodyText=split(BodyText,"<table")
st = 5
for i = 1 to 10
thei = st + i
Pos=Instr(BodyText(thei),"<td")
pos1=Instr(BodyText(thei),"</td>")
Body=mid(BodyText(thei),pos,len(BodyText(thei))-pos)
body1=split(body,"<br>")
title = body1(0)
theurl = body1(2)
theurl = replace(theurl,"上的更多结果","")
response.write ("T:"& title)
response.write ("<br>")
response.write ("U:"& theurl)
response.write ("<br><hr>")
next
Set oXMLHTTP = Nothing
资源评论
weixin_38681082
- 粉丝: 5
- 资源: 958
最新资源
- java项目，课程设计-#-ssm-mysql-数据结构课堂考勤管理系统.zip
- 汽车起动机市场：2023年我国起动机的市场规模已高达480亿元人民币
- java项目，课程设计-#-ssm-mysql-商品信息分类管理系统.zip
- DataGuard容灾配置过程-for-Oracle11gR2
- HPSocket.Net库文件以及使用说明
- express 基础框架搭建
- Oracle DataGuard 安装配置详解：从主备环境搭建到故障切换
- 前端封装video.js、对接海康插件npm包
- 2024年下半年网络工程师案例分析真题答案解析-网络设计与故障排除
- 打印机清零 爱普生XP-4105 系列清零 清除提示无边框不能打印 亲测可用
资源上传下载、课程学习等过程中有任何疑问或建议，欢迎提出宝贵意见哦~我们会及时处理！
点击此处反馈
