欢迎进入广州凡科互联网科技有限公司网站
全国服务热线
4000-399-000
Google PR值查询程序
时间: 2021-01-08 13:49 浏览次数:
今日凡科互连企业网站建设来啦一个我顾客,在闲聊的情况下,他就行奇的问了网编一句,PR的查寻程序是如何搞的啊。网编想想一下说:那一般全是偷海外一个网站出示的PR查寻网页页
今天凡科互联网站建设来了一个我客户,在聊天的时候,他就好奇的问了小编一句,PR的查询程序是怎么搞的啊。小编想了一下说:那一般都是偷国外一个网站提供的PR查询页面的数据库,改装成自己的,不过速度会比较慢。那获取PR信息,但是比较复杂。
事后,小编在网上搜索一下了,发现有一篇文章,这个网站的PR查询数据,作者估计就是其站长,还不错,分享给大家,如果你在网站制作上遇到什么难题,欢迎咨询成都凡科互联网站建设,我们专业从事网站建设,网页制作,域名注册,虚拟主机,企业邮局,网站备案和服务器租用等项目,欢迎您的咨询了解。您也可以登录我们的论坛(/W3C//DTD HTML 4.01 Transitional//EN" "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("?domain=" domain)
getPrLine=RegExpText(getContent,"在Google PageRank满分10分评价中获得.*(d).*分")
getPr=RegExpText(getPrLine,"sds")
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


Copyright © 广州凡科互联网科技有限公司 版权所有 粤ICP备10235580号
全国服务电话:4000-399-000   传真:021-45545458
公司地址:广州市海珠区工业大道北67号凤凰创意园