婷婷综合国产,91蜜桃婷婷狠狠久久综合9色 ,九九九九九精品,国产综合av

主頁 > 知識庫 > 可以查詢google排名的asp源碼

可以查詢google排名的asp源碼

熱門標簽:云南便宜外呼系統平臺 成都ai外呼系統線路 長春公司外呼系統中心 鄢陵學校如何做地圖標注 鄭州智能外呼電銷機器人廠家 沈陽電話機器人公司 廣東語音外呼系統公司 虛擬電話外呼系統 沈陽三五防封電銷卡
以下是源碼,請命名為.ASP文件.

復制代碼 代碼如下:

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"' 關鍵詞在Google搜索排名中,前10位網站!/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-CNstart="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>網站 b>'"url"'/b> 在搜索關鍵詞 b>'"word"'/b> 時在Google中排名名次 第b> "pp" /b>位 ") 
else 
 response.write("br>br>網站 b>'"url"'/b> 在搜索關鍵詞 b>'"word"'/b> 時在Google中排名名次 font color=red>未在前100名內/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, ">", "gt;") 
   fString = replace(fString, "", "lt;") 
   fString = Replace(fString, CHR(32), " ")  'nbsp; 
   fString = Replace(fString, CHR(9), " ")   'nbsp; 
   fString = Replace(fString, CHR(34), "quot;") 
   fString = Replace(fString, CHR(39), "#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>關鍵字,網站在Google中排名查詢/title> 
hr>hr>b> 
關鍵字,網站在Google中排名查詢: 
form name="form1" method="post" action="?action=1"> 
  網址: 
    input type="text" name="url"> 
 關鍵字 
 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=Tct="+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> 
您可能感興趣的文章:
  • 詳解Django之admin組件的使用和源碼剖析
  • 利用Vue.js+Node.js+MongoDB實現一個博客系統(附源碼)
  • python django事務transaction源碼分析詳解
  • 詳細分析Android中實現Zygote的源碼
  • 一文讀懂go中semaphore(信號量)源碼

標簽:馬鞍山 防城港 孝感 朝陽 遼陽 四平 湖北 平頂山

巨人網絡通訊聲明:本文標題《可以查詢google排名的asp源碼》,本文關鍵詞  可以,查詢,google,排名,的,;如發現本文內容存在版權問題,煩請提供相關信息告之我們,我們將及時溝通與處理。本站內容系統采集于網絡,涉及言論、版權與本站無關。
  • 相關文章
  • 下面列出與本文章《可以查詢google排名的asp源碼》相關的同類信息!
  • 本頁收集關于可以查詢google排名的asp源碼的相關信息資訊供網民參考!
  • 推薦文章
    主站蜘蛛池模板: 呼玛县| 邢台市| 绥阳县| 阳谷县| 浦东新区| 汉沽区| 阿合奇县| 奎屯市| 赤水市| 昌黎县| 天祝| 万载县| 铅山县| 大渡口区| 外汇| 民勤县| 金溪县| 和田市| 重庆市| 临清市| 沈丘县| 保德县| 休宁县| 桦南县| 崇义县| 綦江县| 同仁县| 望都县| 丘北县| 天等县| 铁岭市| 右玉县| 岳池县| 阳新县| 密云县| 渭源县| 辽宁省| 祁阳县| 贵南县| 姜堰市| 湘潭市|