今天在网上看了踢西工作室的一篇关于
.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:
<
%@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.TextEnd SubFunction ChinaRank()Function ChinaRank(ByVal Url As String) As StringDim ChinaUrl, RpStr1, RpStr2, TempStr As StringDim n, m As IntegerChinaUrl = "http://www.chinarank.org.cn/overview/Info.do?url=" & UrlRpStr1 = "<hr size=""1"" />" '此行不准改动RpStr2 = "<p id=""domain"">" & Url & "</p>" '此行不准改动TryDim wc As Net.WebClient = New Net.WebClient()wc.Credentials = CredentialCache.DefaultCredentialsDim pageData() As Byte = wc.DownloadData(ChinaUrl)TempStr = Encoding.Default.GetString(pageData)n = InStr(TempStr, RpStr1) - 1TempStr = Left(TempStr, n)'TempStr = StrReverse(TempStr)m = Len(TempStr) - InStr(TempStr, RpStr2) - Len(RpStr2)TempStr = Right(TempStr, m)wc.Dispose()Catch ex As ExceptionReturn ""End TryReturn TempStrEnd 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>
