国产午夜精品一区二区三区不-国产午夜精品一区二区三区不卡-国产午夜精品一区二区三区极品-国产午夜精品一区二区三区老-国产午夜精品一区二区三区漫-国产午夜精品一区二区三区嫩草

聊城網(wǎng)站制作公司,聊城網(wǎng)站建設(shè),聊城網(wǎng)站優(yōu)化,聊城網(wǎng)絡(luò)公司,聊城網(wǎng)站推廣,聊城網(wǎng)站運營,聊城網(wǎng)絡(luò)運營,聊城搜索引擎優(yōu)化,聊城網(wǎng)頁設(shè)計,聊城網(wǎng)站制作
 
 
公司擁有五年的網(wǎng)站建設(shè)經(jīng)驗,專業(yè)網(wǎng)站制作,推廣及網(wǎng)站優(yōu)化,有大量優(yōu)秀客戶案例
網(wǎng)站建設(shè) | 設(shè)為首頁 | 加入收藏 | 聯(lián)系我們  
公告:熱烈慶祝聊城精英網(wǎng)絡(luò)2010版官方網(wǎng)站改版成功!
當(dāng)前位置 :首頁 > 網(wǎng)頁知識  

可以查詢google排名的asp源碼

http://m.zjgjyh.cn   2010-12-23   人氣:

以下是源碼,請命名為.ASP文件.

復(fù)制代碼 代碼如下:

<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<%
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("<b>'"&word&"' 關(guān)鍵詞在Google搜索排名中,前10位網(wǎng)站!</b><br>")
on error resume next
Dim oXMLHTTP
Dim oCategories
Dim BodyText
Dim Pos,Pos1
Set oXMLHTTP = CreateObject("Microsoft.XMLHTTP")
http = "http://www.google.com/search?q="&word&"&hl=zh-CN"
oXMLHTTP.open "GET",http,False
oXMLHTTP.send
BodyText=oXMLHTTP.responsebody
BodyText=BytesToBstr(BodyText,"UTF-8")
Pos=Instr(BodyText,"<body")
pos1=Instr(BodyText,"</body>")
BodyText=mid(BodyText,pos,pos1)
Pos = Instr(BodyText,"<div>")
BodyText = Mid(BodyText,Pos)
pos1=Instr(BodyText,"</div>")
BodyText=mid(BodyText,1,pos1)
'response.write ("::::"&BodyText&"::::")
BodyText=split(BodyText,"<p class=g>")
for i = 1 to 10
Pos=Instr(BodyText(i),"</a>")
thet = Mid(BodyText(i),1,Pos+3)
Pos = Instr(BodyText(i),"<span dir=ltr>")
theu = Mid(BodyText(i),Pos)
pos1=Instr(theu,"</span>")
theu=mid(theu,1,pos1-1)
response.write("T:"&thet&"<br>")
response.write("U:"&theU&"<br><hr>")
next
Set oXMLHTTP = Nothing
if err.number<>0 then
response.write "出錯了,錯誤描述:"&err.description & "<br>錯誤來源"& err.source
response.End()
end if
End Function

Function getCategories2()
on error resume next
Dim oXMLHTTP ' As Object
Dim oCategories ' As Object
Dim BodyText
Dim Pos,Pos1
Set oXMLHTTP = CreateObject("Microsoft.XMLHTTP")
out = 0
start = 0
pp = 0
do while(true)
strurl="http://www.google.com/search?q="&word&"&hl=zh-CN&start="&start
'response.write(strurl&"<br>")
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)

Pos = Instr(BodyText,"<div>")
BodyText = Mid(BodyText,Pos)
pos1=Instr(BodyText,"</div>")
BodyText=mid(BodyText,1,pos1)
'response.write ("::::"&BodyText&"::::")
BodyText=split(BodyText,"<p class=g>")
for i = 1 to 10
Pos = Instr(BodyText(i),"<span dir=ltr>")
theu = Mid(BodyText(i),Pos)
pos1=Instr(theu,"</span>")
theu=mid(theu,1,pos1-1)
'response.write(theu)
Pos3=Instr(theu,url)
if Pos3 > 0 then
pp = start + i
out = 1
Exit For
end if
next
if out = 1 or start = 90 then
exit do
end if
start = cint(start)+10
loop
if pp <> 0 then
response.write("<br><br>網(wǎng)站 <b>'"&url&"'</b> 在搜索關(guān)鍵詞 <b>'"&word&"'</b> 時在Google中排名名次 第<b> "&pp&" </b>位 ")
else
response.write("<br><br>網(wǎng)站 <b>'"&url&"'</b> 在搜索關(guān)鍵詞 <b>'"&word&"'</b> 時在Google中排名名次 <font color=red>未在前100名內(nèi)</font>")
end if

Set oXMLHTTP = Nothing
if err.number<>0 then
response.write "出錯了,錯誤描述:"&err.description & "<br>錯誤來源"& err.source
response.End()
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
Public Function HTMLEncode(fString)
If Not IsNull(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), "</P><P> ")
fString = Replace(fString, CHR(10), "<BR> ")
HTMLEncode = fString
End If
End Function


%>
<title>關(guān)鍵字,網(wǎng)站在Google中排名查詢</title>
<hr><hr><b>
關(guān)鍵字,網(wǎng)站在Google中排名查詢:
<form name="form1" method="post" action="?action=1">
網(wǎng)址:
<input type="text" name="url">
關(guān)鍵字
<input type="text" name="word">
<input type="submit" name="Submit" value="提交">
</form>
<b>
<script>
<!--
function ss(w,id){window.status=w;return true;}
function cs(){window.status='';}
function clk(url,ct,cd,sg){if(document.images){var u="";if (url) u="&url="+escape(url).replace(/\+/g,"%2B");new Image().src="/url?sa=T&ct="+escape(ct)+"&cd="+escape(cd)+u+"&ei=r9vyQ9ypE5GsoQKL4KDyCg"+sg;}return true;}
function ga(o,e) {if (document.getElementById) {var a = o.id.substring(1); var p = "", r = "", t, f, h;var g = e.target;if (g) { t = g.id;f = g.parentNode;if (f) {p = f.id;h = f.parentNode;if (h)r = h.id;}} else {h = e.srcElement;f = h.parentNode;if (f)p = f.id;t = h.id;}if (t==a || p==a || r==a)return true;document.getElementById(a).href += "&ct=bg";window.open(document.getElementById(a).href,'nw')}}
//-->
</script>

專業(yè)設(shè)計團(tuán)隊
滿足您的各種設(shè)計要求
實力程序開發(fā)團(tuán)隊
為您定制各種程序模塊
后臺管理高效安全
方便更新上傳網(wǎng)站資料
全球高速訪問
無盲區(qū)、定制異地備份
專業(yè)客服團(tuán)隊
解決一切使用難題
贈送大容量空間郵箱
免費優(yōu)化推廣
   
關(guān)于我們 | 工作機會 | 付款方式 | 網(wǎng)站制作 | 網(wǎng)頁制作 | 網(wǎng)頁設(shè)計 | 網(wǎng)絡(luò)公司 | 聯(lián)系我們 | 網(wǎng)站地圖
版權(quán)所有:聊城精英網(wǎng)絡(luò)科技有限公司 © 2005-2010 All Rights Reserved.
咨詢專線:0635-6950368 技術(shù)專線:15192175820 在線QQ:312817927 1485871644
地址:聊城市閘口科技市場 郵編:252000 蘇ICP備10112026號
主站蜘蛛池模板: 国产传媒蜜果冻天美传媒 | 中文字幕日产乱码久久 | 国产一二三四2025精字窝 | 亚洲精品久久久久中文另类 | 精品国产野战一区二区三区 | 色综合久久久久综合体桃 | 亚洲成av人片天堂网 | 久久久久亚洲av无码麻豆 | 国产精品综合久久久久久久免费 | 免费1级做爰片1000部视频 | 亚洲av无码一区东京热蜜芽 | 亚洲日本中文字幕高清在线 | 国产亚洲精品久久无码 | 131美女爱做免费毛片 | 8av国产精品爽爽ⅴa在线观看 | 亚洲妇女在现代城市街道上使用手机正版高清视频素材下载 | 专区久久综合久中文字幕 | 91精品综合久久久久久五月天 | 日躁夜躁狠狠躁2001 | 国产真实乱对白精彩 | 亚洲中文字幕久久精品码 | 国产成人精品午夜二三区 | 寂寞骚妇被后入式爆草抓爆 | 在线播放无码后入内射少妇 | 国产成人精品日本亚洲语音 | 亚洲熟妇久久精品 | 国产成人亚洲综合91精亚洲精品 | 国产初高中生露脸在线播放 | 国产成人无码免费看视频 | 四虎影视在线影院在线观看观看 | 国产日韩午夜三级无码专区直播 | 中文亚洲网站播放 | 亚洲精品私拍国产福利在线 | 亚洲欧洲成人精品香蕉网 | 国产va无码人在线观看天堂 | 波多野结衣中文字幕在线观看 | 欧美日韩无线码免费播放器 | 欧美午夜精品一区区电影 | 成人无码一区二区三区 | 国产在线无码一区二区三区 | 国产在线乱子伦一区二区 |