I'm Leo
关于zblog侧边拦评论的显示修改
评论的显示程序，在fuction目录下的c_system_event.asp中，首先找到这个函数
Function BlogReBuild_Comments()
Dim objRS
Dim objStream
Dim objArticle
'Comments
Dim strComments
Dim s
Dim i
Set objRS=objConn.Execute("SELECT [log_ID],[comm_ID],[comm_Content],[comm_PostTime],[comm_Author] FROM [blog_Comment] WHERE [log_ID]>0 ORDER BY [comm_PostTime] DESC,[comm_ID] DESC")
If (Not objRS.bof) And (Not objRS.eof) Then
For i=1 to ZC_MSG_COUNT
s=objRS("comm_Content")
s=Replace(s,vbCrlf,"")
If len(s)>ZC_RECENT_COMMENT_WORD_MAX Then s=Left(s,ZC_RECENT_COMMENT_WORD_MAX-4)&"..."
Set objArticle=New TArticle
If objArticle.LoadInfoByID(objRS("log_ID")) Then
strComments=strComments & "<li><a href="""& objArticle.Url & "#cmt" & objRS("comm_ID") & """ title=""" & objRS("comm_PostTime") & " post by " & objRS("comm_Author") & """>"+s+"</a></li>"
End If
Set objArticle=Nothing
objRS.MoveNext
If objRS.eof Then Exit For
Next
End If
objRS.close
Set objRS=Nothing
strComments=TransferHTML(strComments,"[no-asp]")
Call SaveToFile(BlogPath & "/include/comments.asp",strComments,"utf-8",True)
BlogReBuild_Comments=True
End Function
把上面的代码修改成：
Function BlogReBuild_Comments()
Dim objRS
Dim objStream
Dim objArticle
'Comments
Dim strComments
Dim s
Dim i
Set objRS=objConn.Execute("SELECT [log_ID],[comm_ID],[comm_Content],[comm_PostTime],[comm_Author] FROM [blog_Comment] WHERE [log_ID]>0 ORDER BY [comm_PostTime] DESC,[comm_ID] DESC")
If (Not objRS.bof) And (Not objRS.eof) Then
For i=1 to ZC_MSG_COUNT
s=objRS("comm_Content")
s=Replace(s,vbCrlf,"")
Set objArticle=New TArticle
If objArticle.LoadInfoByID(objRS("log_ID")) Then
strComments=strComments & "<li>" & " <a href=" & objArticle.Url & "#cmt >" & objRS("comm_Author") & "</a><br />" & s & "</li>" End If
Set objArticle=Nothing
objRS.MoveNext
If objRS.eof Then Exit For
Next
End If
objRS.close
Set objRS=Nothing
strComments=TransferHTML(strComments,"[no-asp]")
Call SaveToFile(BlogPath & "/include/comments.asp",strComments,"utf-8",True)
BlogReBuild_Comments=True
至于评论编号，因为我对程序的了解很肤浅，所以直接把链接转向了文章页的评论锚记上，如果其实显示效果是一样的，大家有什么问题可以回复给我，我会尽力帮大家解决，一会享受zblog带给我们的乐趣。
Comments.
1F By 骞 on 2007-11-10 下午 05:34:11
额地神,那个文件看了几次,咋就没发现有个函数,老眼昏花啊.
十分感谢~
讨论一下,用dl dt dd好一些呢,还是用li来做好一些呢
2F By leo on 2007-11-10 下午 05:47:27
其实在zblog中，我更喜欢用<p>，我觉得这样的代码量最小，而且很容易修改，因为如果要用ul,dl,dd,或者dt都要最少写两个对象的css，当然这是我的看法，当没有评论时候，首页就会出新一对空的<ul></ul>呵呵，用<p>就不会……
3F By 骞 on 2007-11-10 下午 05:57:15
用p确实是一个好办法,可以在缺少某些参数的情况下,依然能过w3c的认证,不过就是不太好组织格式,而且在seo来说,缺少重点.
4F By leo on 2007-11-10 下午 06:05:50
恩，<p>确实是不好组织格式，只适用于直列，不过其实在大多数情况下，ul的作用只是列表，导航除外。我只是考虑到代码的简洁性，至于w3c，我考虑不多，主要是页面的实用。seo我不是很熟悉，只知道比较肤浅的一些，呵呵。
5F By 骞 on 2007-11-10 下午 06:34:09
代码的简洁性确实很重要,z-blog的默认模版嵌套太多了,影响页面渲染的效率,精简中...
6F By lv on 2008-5-20 下午 11:54:50
学习来了,还能发个链接LV包
7F By 神墓 on 2008-7-31 下午 10:18:12
用这代码以后，评论是不是跟你这站是一样的？？
8F By leo on 2008-8-2 下午 05:13:05
是的
9F By Anymaker on 2009-6-5 上午 06:55:21
找不到这个函数啊
10F By Anymaker on 2009-6-5 上午 06:56:03
不知道为什么别人给我的评论都不显示了这是怎么回事啊
11F By 卢松松 on 2009-7-15 下午 05:27:59
不错 可以试试！
12F By fff80 on 2009-9-12 下午 07:16:37
像你这个评论都没有回复每个评论的按键，怎么修改成有按键的。
13F By guo on 2009-11-19 下午 01:52:58
试试看