ASP|Google PageRank查询程序

sunlei · 发表于 2005 年 10 月 9 日 11:25:43

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？注册

×

说"查询程序"不如说是小偷.
因为整个查询过程就是偷http://so.5eo.com的数据.大家自己看代码

程序代码

<%@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">
<style>
body {font-size:14px;font-family:Arial}
textarea, input,object{
color: #000;
font: normal 12px Tahoma, Verdana, "宋体";
}
</style>
<title>Google PR值查询程序</title>
</head>

<body>查询GOOGLE的PageRank
<form name="form1" method="post" action="?act=ok">
<p>输入网址<br>
<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("<a href="&domain&" target=blank><font color=green>"&domain&"</font></a> 的Google PageRank值为<font color=green><b>"&getPr(domain)&"</b></font>")
Response.Write("<br><br><font color=red><b>注意</b></font>: GOOGLE PR 是和精确完整的网址相关的，不同的网址具有不同的PR，比如 http://www.huaidan.org 和 http://huaidan.org 的PR是不相同的。")

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>

xchange · 发表于 2005 年 10 月 9 日 12:13:02

这年头都靠偷么？

oghuz · 发表于 2005 年 10 月 9 日 20:31:08

[s:16]

feng889 · 发表于 2005 年 11 月 8 日 04:14:24

HTTP 500 - 内部服务器错误

伟轩 · 发表于 2005 年 11 月 9 日 21:55:31

这个程序到哪都能弄到

sunlei · 发表于 2005 年 10 月 9 日 11:25:43

说"查询程序"不如说是小偷.
因为整个查询过程就是偷http://so.5eo.com的数据.大家自己看代码

程序代码

<%@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">
<style>
body {font-size:14px;font-family:Arial}
textarea, input,object{
color: #000;
font: normal 12px Tahoma, Verdana, "宋体";
}
</style>
<title>Google PR值查询程序</title>
</head>

<body>查询GOOGLE的PageRank
<form name="form1" method="post" action="?act=ok">
<p>输入网址<br>
<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("<a href="&domain&" target=blank><font color=green>"&domain&"</font></a> 的Google PageRank值为<font color=green><b>"&getPr(domain)&"</b></font>")
Response.Write("<br><br><font color=red><b>注意</b></font>: GOOGLE PR 是和精确完整的网址相关的，不同的网址具有不同的PR，比如 http://www.huaidan.org 和 http://huaidan.org 的PR是不相同的。")

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>

账号		自动登录	找回密码
密码			注册