仓酷云

标题: ASP编程：ASP查询搜刮引擎关头字排名功效源代码 [打印本页]

作者: 因胸联盟 时间: 2015-1-16 22:06
标题: ASP编程：ASP查询搜刮引擎关头字排名功能源代码
缺点:安全性不是太差了，还行，只要你充分利用系统自带的工具;唯一缺点就是执行效率慢，如何进行网站优化以后，效果会比较好。查询百度搜刮引擎排名的源代码.将以下内容保留为ASP文件,运转检察既可,代码以下:
<%
bpn=request("bpn")
if(bpn="")then
bpn="0"
endif
intbpn=cint(bpn)
ifrequest("action")="1"then
word=request("word")
url=request("url")
ifurl=""then
url="alixixi.com"
endif
ifword=""then
word="阿里西西"
endif

getCategories()
getCategories2()
endif
FunctiongetCategories()
response.write(""&word&"关头词在百度搜刮排名中,前10位网站! ")
onerrorresumenext
DimoXMLHTTP
DimoCategories
DimBodyText
DimPos,Pos1
SetoXMLHTTP=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
fori=1to10
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," ")
title=body1(0)
theurl=body1(2)
theurl=replace(theurl,"上的更多了局","")
response.write("T:"&title)
response.write(" ")
response.write("U:"&theurl)
response.write(" <hr>")
next
SetoXMLHTTP=Nothing
iferr.number0then
response.write"堕落了，毛病形貌："&err.description&" 毛病来历"&err.source
response.End()
endif
EndFunction
FunctiongetCategories2()
onerrorresumenext
DimoXMLHTTPAsObject
DimoCategoriesAsObject
DimBodyText
DimPos,Pos1
SetoXMLHTTP=CreateObject("Microsoft.XMLHTTP")
out=0
pn=0
pp=0
dowhile(true)
strurl="http://www.baidu.com/baidu?word="&word&"&pn="&cint(pn)+intbpn*10
//response.write(strurl&" ")
oXMLHTTP.open"GET",strurl,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
thei=0
fori=1to10
thei=st+i
//response.write(thei)
Pos=Instr(BodyText(thei),"<td")
pos1=Instr(BodyText(thei),"</td>")
Body=mid(BodyText(thei),pos,len(BodyText(thei))-pos)
Pos3=Instr(Body,url)
ifPos3>0then
pp=pn+i
out=1
ExitFor
endif
next
ifout=1orpn=90then
exitdo
endif
pn=cint(pn)+10
loop
ifpp0then
response.write(" 网站"&url&"在搜刮关头词"&word&"时在百度中排名名次第"&pp+intbpn*10&"位")
else
response.write(" 网站"&url&"在搜刮关头词"&word&"时在百度中排名名次<fontcolor=red>未在"&intbpn*10+1&"名到"&intbpn*10+100&"内")
endif
SetoXMLHTTP=Nothing
iferr.number0then
response.write"堕落了，毛病形貌："&err.description&" 毛病来历"&err.source
response.End()
endif
EndFunction
FunctionBytesToBstr(body,Cset)
dimobjstream
setobjstream=Server.CreateObject("adodb.stream")
objstream.Type=1
objstream.Mode=3
objstream.Open
objstream.Writebody
objstream.Position=0
objstream.Type=2
objstream.Charset=Cset
BytesToBstr=objstream.ReadText
objstream.Close
setobjstream=nothing
EndFunction
PublicFunctionHTMLEncode(fString)
IfNotIsNull(fString)Then
fString=replace(fString,">",">")
fString=replace(fString,"<","<")
fString=Replace(fString,CHR(32),"")
fString=Replace(fString,CHR(9),"")
fString=Replace(fString,CHR(34),""")
fString=Replace(fString,CHR(39),"")单引号过滤
fString=Replace(fString,CHR(13),"")
fString=Replace(fString,CHR(10)&CHR(10),"")
fString=Replace(fString,CHR(10)," ")
HTMLEncode=fString
EndIf
EndFunction

%>
<title>关头字,网站在百度中排名查询</title>
<hr><hr>
关头字,网站在百度中排名查询:
<formname="form1"method="post"action="?action=1">
网址:
<inputtype="text"name="url"value="<%=url%>">
关头字:
<inputtype="text"name="word"value="<%=word%>">
查询局限:
<selectname="bpn">
<optionvalue="0"<%if(bpn="0")thenresponse.write("selected")endif%>>1-100</option>
<optionvalue="10"<%if(bpn="10")thenresponse.write("selected")endif%>>101-200</option>
<optionvalue="20"<%if(bpn="20")thenresponse.write("selected")endif%>>201-300</option>
<optionvalue="30"<%if(bpn="30")thenresponse.write("selected")endif%>>301-400</option>
<optionvalue="40"<%if(bpn="40")thenresponse.write("selected")endif%>>401-500</option>
<optionvalue="50"<%if(bpn="50")thenresponse.write("selected")endif%>>501-600</option>
<optionvalue="60"<%if(bpn="60")thenresponse.write("selected")endif%>>601-700</option>
<optionvalue="70"<%if(bpn="70")thenresponse.write("selected")endif%>>701-800</option>
<optionvalue="80"<%if(bpn="80")thenresponse.write("selected")endif%>>801-900</option>
<optionvalue="90"<%if(bpn="90")thenresponse.write("selected")endif%>>901-1000</option>
</select>
<inputtype="submit"name="Submit"value="提交">
</form>
Windows本身的所有问题都会一成不变的也累加到了它的身上。安全性、稳定性、跨平台性都会因为与NT的捆绑而显现出来；

作者: 老尸 时间: 2015-1-17 18:57
在平时的学习过程中要注意现学现用，注重运用，在掌握了一定的基础知识后，我们可以尝试做一些网页，也许在开始的时候我们可能会遇到很多问题，比如说如何很好的构建基本框架。

作者: 小妖女 时间: 2015-1-21 07:48
Server:这个表示的服务器，操作服务器的一些东西使用这个，如Server.Mappath转换服务器路径,Server.CreateObject实例化一个组件

作者: 海妖 时间: 2015-1-30 12:13
我想问如何掌握学习节奏(先学什么再学什么)最好详细点?

作者: 简单生活 时间: 2015-2-6 11:23
下面简单介绍一下我学习ASP的方法,希望对想学习ASP的朋友有所帮助...

作者: 第二个灵魂 时间: 2015-2-16 01:15
我可以结合自己的经验大致给你说一说，希望对你有所帮助，少走些弯路。

作者: 只想知道 时间: 2015-3-4 21:37
ASP主要是用好六个对象，其实最主要的是用好其中两个：response和request，就可以随心所欲地控制网页变换和响应用户动作了。

作者: 若天明 时间: 2015-3-11 21:11
完全不知道到底自己学的是什么。最后，除了教程里面说的几个例子，还是什么都不会。

作者: 兰色精灵 时间: 2015-3-19 13:49
下载一个源代码，然后再下载一个VBScript帮助，在源代码中遇到不认识的函数或是其他什么程序，都可以查帮助进行解决，这样学习效率很高。

欢迎光临仓酷云 (http://ckuyun.com/)