今天打算更改一下我的Blog的文章排行算法。
以前的算法是根据点击数目来排行，有很多不足的地方，比如没有考虑时间因素，没有考虑用户对其的推荐等因素，最近使用抓虾系统的时候，对抓虾的“热文排行”算法产生了兴趣，因此我也打算使用类似的排行来进行我的Blog的文章排行。
其中的积分算法是比较难确定的，我打算以文章浏览次数，评论次数，引用次数以及文章的日期来生成。把用户的评论数目作为推荐次数，文章的发表日期到今天的时间做为时间因素。
1条评论和100次浏览有相同积分。
1条Traceback等于2条评论的积分。评论和引用的增长是线性的。
浏览次数增大，取得的积分以开平方根的方式增长，即数字越大，变化越小。
文章的日期做为负积分，以指数方式增长，越老的文章，会变为越来越大的负数积分。
用数学算法表示即：log_CommNums*100 + log_TrackBackNums*200 + sqr(log_ViewNums)*10 - (date()-Log_PostTime)*(date()-Log_PostTime)
从这个算法中，引用和评论对积分的增加影响最大，时间因素对积分的减少影响最大。以这个算法产生的“热文排行”见左边，其每天会自动更新，我将观察一段时间，看看这个算法的效果如何。
具体的修改方法如下：
在c_system_event.asp中加入下面的函数：
'*********************************************************
' 目的： 重建排行
'*********************************************************
Function BlogReBuild_Toplist()
Dim i
Dim objRS
Dim objStream
Dim objArticle
Dim strLogUrl
Dim strPrevious
Set objRS=objConn.Execute("SELECT [log_ID],[log_Url],[log_Title] FROM [blog_Article] WHERE [log_Level]>1 ORDER BY log_CommNums*100 + log_TrackBackNums*200 + sqr(log_ViewNums)*10 - (date()-Log_PostTime)*(date()-Log_PostTime) DESC")
If (Not objRS.bof) And (Not objRS.eof) Then
For i=1 to ZC_PREVIOUS_COUNT
strLogUrl=objRS("log_Url")
If IsNull(strLogUrl) Or IsEmpty(strLogUrl) Or strLogUrl="" Then
strLogUrl=objRS("log_ID")
End If
strLogUrl=ZC_BLOG_HOST & ZC_STATIC_DIRECTORY & "/" & strLogUrl & "." & ZC_STATIC_TYPE
strPrevious=strPrevious & "<li><a href="""& strLogUrl & """>" & objRS("log_Title") & "</a></li>"
objRS.MoveNext
If objRS.eof Then Exit For
Next
End If
objRS.close
strPrevious=TransferHTML(strPrevious,"[no-asp]")
Set objStream = Server.CreateObject("ADODB.Stream")
With objStream
.Type = adTypeText
.Mode = adModeReadWrite
.Open
.Charset = "utf-8"
.Position = objStream.Size
.WriteText = strPrevious
.SaveToFile BlogPath & "/include/toplist.asp",adSaveCreateOverWrite
.Close
End With
Set objStream = Nothing
BlogReBuild_Toplist=True
End Function
'*********************************************************
然后在MakeBlogReBuild函数的BlogReBuild_Categorys后面加上一行BlogReBuild_Toplist。
修改c_html_js.asp，在f="TRACKBACKS"后面增加
ElseIf f="toplist" Then
f="TOPLIST"
修改single.html模板文件，在合适的位置增加下面几行。
<div class="function" id="divTopList">
<h3>热文排行</h3>
<ul>
<script language="JavaScript" src="<#ZC_BLOG_HOST#>c_html_js.asp?include=toplist" type="text/javascript"></script>
</ul>
</div>
最后，重建索引，重建文件，就完成了。
具体效果参见本页左边的“热文排行”栏目。
更新：在Z-BLOG 1.7下的修改方法
前面修改代码不变，之后，修改TEMPLATE\default.html模板，在适当位置加入以下语句：
<div class="function" id="divTopList">
<h3>热文排行</h3>
<ul>
<#CACHE_INCLUDE_TOPLIST#>
</ul>
</div>
修改TEMPLATE\single.html模板，在适当位置加入以下语句：
<div class="function" id="divTopList">
<h3>热文排行</h3>
<ul id="ulToplist">
<script language="JavaScript" type="text/javascript">strBatchInculde+="ulToplist=toplist,"</script>
</ul>
</div>
最后重建索引即可。
参考文章：抓虾指数的热文排行的产生
抓虾的热门文章是大家“顶”上来的。对于每篇文章，每个人有且仅有一票（包括我们虾米自己也一样，只有一票）。推荐出来的文章，按下面的规则排列顺序，希望能够兼顾文章的新鲜（按时间）和价值（按票数）。
1、两天之内推荐的文章，优先于超过两天的；
2、同样是两天之内推荐的文章，票数高的优先；
3、同样是两天之内，且同样票数的文章，最近被推荐过的优先。
也就是说，假如一篇文章在两天内无人继续推荐，估计大家对它的兴趣就不大了，或者说它有点“过时”了，它就应该被排在后边。
“两天”的窗口期是暂时拟定的，以后也许会调整。另外，每个人的那一票，以后的权重可能会不一样（比如，如果小虾推荐的文章总是被大家认可，那末小虾以后的推荐会更有分量。）总的想法，还是希望平衡文章的新鲜和价值。以后会加分类，搜索，和过滤功能，让大家更方便地看到自己喜爱的文章。