SPARON

日出,看到希望,日落,满怀梦想,成功,更加自信, 挫败,愈发坚强。

Google PR值查询

 

<%@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>

阅读更多
上一篇在ASP.NET中面向对象的编程思想
下一篇使用存储过程从web页面传递参数
想对作者说点什么? 我来说一句

google pr查询c#代码

2009年11月18日 87KB 下载

Google PR查询代码

2012年12月01日 14KB 下载

VB编写的Google PR查询工具

2013年07月07日 11KB 下载

简易alexa排名,google pr查询

2009年09月15日 6KB 下载

php谷歌pr查询接口

2012年07月11日 7KB 下载

PR查询源码

2011年12月26日 4KB 下载

SEO工具箱MD5加密工具

2008年12月26日 844KB 下载

Google,Baidu,Alexa等排名查询

2004年07月23日 13KB 下载

没有更多推荐了,返回首页

关闭
关闭