今天在网上看了踢西工作室的一篇关于
.net代码获取网站Alexa排名的文章,自己也DIY了一个Alexa查询(演示地址:
http://www.yuayu.com/tools/GetUrlInfo/GetUrlInfo.aspx).
读了一下代码,感觉蛮有意思,感觉像是以前用火车头采集器做站点采集,于是突发奇想,是不是也写一个用.net代码获取网站的ChinaRank排名.(最近好像很多人开始看重中国网站排名)
于是也整了这样的.net代码,提供给大家.
演示地址: http://www.yuayu.com/tools/GetUrlInfo/GetChinaUrlInfo.aspx
GetChinaUrlInfo.aspx:
读了一下代码,感觉蛮有意思,感觉像是以前用火车头采集器做站点采集,于是突发奇想,是不是也写一个用.net代码获取网站的ChinaRank排名.(最近好像很多人开始看重中国网站排名)
于是也整了这样的.net代码,提供给大家.
演示地址: http://www.yuayu.com/tools/GetUrlInfo/GetChinaUrlInfo.aspx
GetChinaUrlInfo.aspx:
<
%@import
Namespace =
Namespace = "System.Net" %>
<script language="VB" runat="server">
Protected Sub BtnS_Click()Sub BtnS_Click(ByVal sender As Object, ByVal e As System.EventArgs)
'中国网站排名
Lbl2.Text = ChinaRank(txtUrl.Text)
LtlUrl.Text = "查询结果 : " & txtUrl.Text
End Sub
Function ChinaRank()Function ChinaRank(ByVal Url As String) As String
Dim ChinaUrl, RpStr1, RpStr2, TempStr As String
Dim n, m As Integer
ChinaUrl = "http://www.chinarank.org.cn/overview/Info.do?url=" & Url
RpStr1 = "<hr size=""1"" />" '此行不准改动
RpStr2 = "<p id=""domain"">" & Url & "</p>" '此行不准改动
Try
Dim wc As Net.WebClient = New Net.WebClient()
wc.Credentials = CredentialCache.DefaultCredentials
Dim pageData() As Byte = wc.DownloadData(ChinaUrl)
TempStr = Encoding.Default.GetString(pageData)
n = InStr(TempStr, RpStr1) - 1
TempStr = Left(TempStr, n)
'TempStr = StrReverse(TempStr)
m = Len(TempStr) - InStr(TempStr, RpStr2) - Len(RpStr2)
TempStr = Right(TempStr, m)
wc.Dispose()
Catch ex As Exception
Return ""
End Try
Return TempStr
End Function
</script>
<html>
<head id="Head1" runat="server">
<title>中国网站排名信息查询——http://www.yuayu.com/</title>
<!--- The Page By Ensonfly,2007/1/29 --->
<meta name="author" content="ensonfly@gmail.com"/>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<style type="text/css">
body
{
color: #393939;
margin: 8px;
line-height:150%;
background: #ffffff;
font-family: courier new,Arial,宋体,Arial,Sans-serif;
font-size: 12px !important;
font-size: 11px;
line-height: 16px;
text-align:center;
}
textarea, hr
{
border: 1px #e3e3e3 solid;
}
a
{
color: #368EE7;
text-decoration:none;
}
a:hover
{
color: #ff6600;
text-decoration:underline;
}
#Main
{
width: 500px;
margin: auto;
text-align: center;
}
#Content
{
text-align: left;
}
</style>
</head>
<body>
<form id="form1" runat="server">
<div id="Main">
请输入需要查询的网址:http://
<asp:TextBox ID="txtUrl" runat="server"></asp:TextBox>
<asp:Button ID="BtnS" runat="server" OnClick="BtnS_Click" Text="查 询" />
<hr />
<div id="Content">
<asp:Literal ID="LtlUrl" runat="server" /><br />
<asp:Label ID="Lbl2" runat="server"></asp:Label>
</div>
By <a href="http://www.yuayu.com/">Ensonfly</a>
</div>
</form>
</body>
</html>
<script language="VB" runat="server">
Protected Sub BtnS_Click()Sub BtnS_Click(ByVal sender As Object, ByVal e As System.EventArgs)
'中国网站排名
Lbl2.Text = ChinaRank(txtUrl.Text)
LtlUrl.Text = "查询结果 : " & txtUrl.Text
End Sub
Function ChinaRank()Function ChinaRank(ByVal Url As String) As String
Dim ChinaUrl, RpStr1, RpStr2, TempStr As String
Dim n, m As Integer
ChinaUrl = "http://www.chinarank.org.cn/overview/Info.do?url=" & Url
RpStr1 = "<hr size=""1"" />" '此行不准改动
RpStr2 = "<p id=""domain"">" & Url & "</p>" '此行不准改动
Try
Dim wc As Net.WebClient = New Net.WebClient()
wc.Credentials = CredentialCache.DefaultCredentials
Dim pageData() As Byte = wc.DownloadData(ChinaUrl)
TempStr = Encoding.Default.GetString(pageData)
n = InStr(TempStr, RpStr1) - 1
TempStr = Left(TempStr, n)
'TempStr = StrReverse(TempStr)
m = Len(TempStr) - InStr(TempStr, RpStr2) - Len(RpStr2)
TempStr = Right(TempStr, m)
wc.Dispose()
Catch ex As Exception
Return ""
End Try
Return TempStr
End Function
</script>
<html>
<head id="Head1" runat="server">
<title>中国网站排名信息查询——http://www.yuayu.com/</title>
<!--- The Page By Ensonfly,2007/1/29 --->
<meta name="author" content="ensonfly@gmail.com"/>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<style type="text/css">
body
{
color: #393939;
margin: 8px;
line-height:150%;
background: #ffffff;
font-family: courier new,Arial,宋体,Arial,Sans-serif;
font-size: 12px !important;
font-size: 11px;
line-height: 16px;
text-align:center;
}
textarea, hr
{
border: 1px #e3e3e3 solid;
}
a
{
color: #368EE7;
text-decoration:none;
}
a:hover
{
color: #ff6600;
text-decoration:underline;
}
#Main
{
width: 500px;
margin: auto;
text-align: center;
}
#Content
{
text-align: left;
}
</style>
</head>
<body>
<form id="form1" runat="server">
<div id="Main">
请输入需要查询的网址:http://
<asp:TextBox ID="txtUrl" runat="server"></asp:TextBox>
<asp:Button ID="BtnS" runat="server" OnClick="BtnS_Click" Text="查 询" />
<hr />
<div id="Content">
<asp:Literal ID="LtlUrl" runat="server" /><br />
<asp:Label ID="Lbl2" runat="server"></asp:Label>
</div>
By <a href="http://www.yuayu.com/">Ensonfly</a>
</div>
</form>
</body>
</html>