可以查询google排名的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