Google PR值查询

转载 2005年04月26日 22:27:00
 

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>Google PR值查询程序</title>
</head>

<body><h3>输入网址,查询Google PageRank值</h3>
<form name="form1" method="post" action="?act=ok">
  <p>输入网址
    <input type="text" name="domain">
    <input type="submit" name="Submit" value="提交">
  </p>
</form>
<%
if trim(Request.QueryString("act"))="ok" then
    domain=trim(Request.Form("domain"))
 if domain<>"" then
     Response.Write("<b>"&domain&"</b> 的Google PageRank值为<font color=red>"&getPr(domain)&"</font>")
 end if
end if

Function getPr(domain)
    getContent=GetURL("http://so.5eo.com/pr/rank.asp?domain="&domain)
 getPrLine=RegExpText(getContent,"在Google PageRank满分10分评价中获得.*(/d).*分")
 getPr=RegExpText(getPrLine,"/s/d/s")
End Function

Function bstr(vIn)
 Dim strReturn,i,ThisCharCode,innerCode,Hight8,Low8,NextCharCode
 strReturn = "" 
 For i = 1 To LenB(vIn)
  ThisCharCode = AscB(MidB(vIn,i,1))
  If ThisCharCode < &H80 Then
   strReturn = strReturn & Chr(ThisCharCode)
  Else
   NextCharCode = AscB(MidB(vIn,i+1,1))
   strReturn = strReturn & Chr(CLng(ThisCharCode) * &H100 + CInt(NextCharCode))
   i = i + 1
  End If
 Next
 
 bstr = strReturn  
End Function

Function GetURL(url)
    Set Retrieval = Server.CreateObject("Microsoft.XMLHTTP")
          With Retrieval
          .Open "GET", url, false
    .setRequestHeader "Content-Type","application/x-www-form-urlencoded"
          .Send
          GetURL = .ResponseBody
          End With
    Set Retrieval = Nothing
 GetURL=bstr(GetURL)
End Function

Function RegExpText(strng,regStr)
  'Dim regEx, Match, Matches  ' 建立变量。
  Set regEx = New RegExp   ' 建立正则表达式。
  regEx.Pattern = regStr   ' 设置模式。
  regEx.IgnoreCase = True   ' 设置是否区分字符大小写。
  regEx.Global = True   ' 设置全局可用性。
  Set Matches = regEx.Execute(strng) ' 执行搜索。
  For Each Match in Matches  ' 遍历匹配集合。  
      RetStr = RetStr & Match.Value'&"|||"     
  Next
  RegExpText = RetStr
  set regEx=nothing
End Function
%>
</body>
</html>

google的PR值查询代码(仿GG工具条)

  • 2008年07月28日 13:49
  • 84KB
  • 下载

Google PR查询接口

出现terms_of_service 错误提示。把checksum的计算过程一 步步打出来,发现经过了几次右位移之后本地和服务器上的数字就不一样了。这才想到服务器是64位机, 32位系统下位移之后应该...
  • camel20
  • camel20
  • 2011年08月04日 14:34
  • 479

VB编写的Google PR值查询工具

  • 2013年07月07日 12:11
  • 11KB
  • 下载

究竟外链有什么作用?google 的pr值又是什么?

当我们提到一个问题,外链的作用的时候,大多数人的回答肯定是能够吸引蜘蛛来抓取网站,这是对的,但只是说中了其中的一点,在google对于外链的计算中被制定了一个值,也就是我们经常听的pr值...

google优化,如何提高网站的PR值?

无论是对普通网络冲浪者还是网站管理员来说,Google都是目前世界范围内最受欢迎的搜索引擎。它每天处理的搜索请求高达1.5亿次,几乎占全球所有搜索量的1/3。网络冲浪者对Google情有独钟,是由于G...

C#实现google Pr查询的方法

---------------------- ASP.Net+Unity开发、.Net培训、期待与您交流! ----------------------3、请将以下代码复制到日记结束处:-----...
  • sbcnn1
  • sbcnn1
  • 2014年05月20日 18:56
  • 473

最新Google PR值获取算法C#源码(2011年)

namespace PR { using System.IO; using System.Net; using System.Text.Regu...
  • Catwell
  • Catwell
  • 2011年11月22日 08:05
  • 446

流量兄弟教你如何提高网站的Google PR值

近几年流量兄弟对全球搜索引擎进行了统计,发现无论是对普通网络冲浪者还是网站管理员来说,Google都是目前世界范围内最受欢迎的搜索引擎。它每天处理的搜索请求高达1.5亿次,几乎占全球所有搜索量的1/3...

Google PR值的详细算法

谷歌的PR一般都被站长认为是网站权重的标准(由于百度的权重是不公开的,所以大多以谷歌为主),因此很多站长就会对谷歌的PR很在意,网站越大一般PR也越高,同时高PR也是交换友情链接的判断数值之一。所以本...
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:Google PR值查询
举报原因:
原因补充:

(最多只允许输入30个字)