ASP|Google PageRank查询程序代码
2006-01-08 19:19
561 查看
说"查询程序"不如说是小偷.
代码:
<%@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.siyizhu.com 和 http://siyizhu.com 的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> 海量流畅 尽在电鹰 http://www.d1778.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.siyizhu.com 和 http://siyizhu.com 的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> 海量流畅 尽在电鹰 http://www.d1778.com
相关文章推荐
- Python查询Google PageRank
- 最近设计了一个生成asp代码的程序,同时也可以作为数据库管理查询的软件,发两张图,等完全做好了,给大家共享!
- 最近设计了一个生成asp代码的程序,同时也可以作为数据库管理查询的软件,有兴趣的朋友可以去下载!
- ASP.NET程序中常用的三十三种代码
- ASP.NET程序中常用的三十三种代码(2)
- SEO网站优化之ASP.NET生成Google网站地图的详细代码
- ASP.NET程序中常用的三十三种代码
- ASP.NET程序中常用编程代码(二)
- 用C#写ASP.NET搜索蜘蛛代码程序
- bat 自动更新代码,编译,压缩asp.net程序
- 301重定向设置及程序代码实现全集(ASP|.NET|PHP|JSP)
- GOOGLE API - 翻译, 后台c# 调用前台js代码, asp.net后台调用js代码
- ASP.NET程序中常用的三十三种代码
- Asp.net程序常用的33条代码
- 编译ASP.NET时,提示“请确保此代码文件中定义的类与“inherits”属性匹配,并且该类扩展的基类(例如Page 或UserControl)是正确的。”
- 一个ASP.net购物车的代码程序.
- ASP.NET程序中常用的三十三种代码
- ASP编制程序完成迅速查询
- ASP.NET程序中常用编程代码(二)
- ASP.NET程序中常用的三十三种代码