查看完整版本: zblog修改系列:日历上提示当天有多少文章及文章标题的修改方法

zblog修改系列:日历上提示当天有多少文章及文章标题的修改方法

zblog修改系列:日历上提示当天有多少文章及文章标题的修改方法
好久没再修改ZB了,昨天灵丹要我帮她做这个东东,晚上发了几分钟看了一下源码,很快就找到解决的办法了,废话不多说,贴出代码来,大家一个就明白了,注意,以下红色的字是我添加的内容,其它的地方没有修改
打开文件:FUNCTION/c_system_base.asp, 找到大概450行左右如下文字:
'*********************************************************
' 目的：    Make Calendar
'*********************************************************
Function MakeCalendar(dtmYearMonth)
大概从499行左右开始,自己对照一下
'//////////////////////////////////////////////////////////
' 逻辑处理
Dim aryDateLink(32)
Dim aryDateID(32)
Dim aryDateArticle(32)
Dim objRS
[color=red]Dim intt(32)'记录每天有几篇文章
Dim strt(32)'记录每天里的文章标题[/color]
Set objRS=Server.CreateObject("ADODB.Recordset")
objRS.CursorType = adOpenKeyset
objRS.LockType = adLockReadOnly
objRS.ActiveConnection=objConn
objRS.Source=""
objRS.Open("select [log_ID],[log_CateID],[log_AuthorID],[log_Level],[log_PostTime],[log_Url],[log_Istop[color=red]],[log_Title][/color] from [blog_Article] where ([log_Level]>2) And ([log_PostTime] BETWEEN #"&y&"-"&m&"-1# AND #"&ny&"-"&nm&"-1#)")
If (Not objRS.bof) And (Not objRS.eof) Then
  For i=1 To objRS.RecordCount
   j=CInt(Day(CDate(objRS("log_PostTime"))))
   aryDateLink(j)=True
   aryDateID(j)=objRS("log_ID")
[color=red]   intt(j)=intt(j)+1       '这天的文章数量+1
   strt(j)=strt(j)+"     "+objRS("log_Title")  '保存文章标题[/color]
   Set aryDateArticle(j)=New TArticle
   aryDateArticle(j).LoadInfobyArray Array(objRS("log_ID"),"",objRS("log_CateID"),"","","",objRS("log_Level"),objRS("log_AuthorID"),objRS("log_PostTime"),"","","",objRS("log_Url"),"")
   objRS.MoveNext
   If objRS.eof Then Exit For
  Next
End If
objRS.Close
Set objRS=Nothing
'//////////////////////////////////////////////////////////
s="catalog.asp?date="&y&"-"&(m-1)
t="catalog.asp?date="&y&"-"&(m+1)
If m=1 Then s="catalog.asp?date="&(y-1)&"-12"
If m=12 Then t="catalog.asp?date="&(y+1)&"-1"
strCalendar=strCalendar & "<div class=""year"&y&" month"&m&""">"
strCalendar=strCalendar & "<p class=""y""><a href="""&ZC_BLOG_HOST &s&"""><<</a>  <a href="""& ZC_BLOG_HOST &"catalog.asp?date="&y&"-"&m&""">"&y&"-"&m&"</a>  <a href="""&ZC_BLOG_HOST &t&""">>></a></p>"
strCalendar=strCalendar & "<p class=""w"">"&ZVA_Week_Abbr(1)&"</p><p class=""w"">"&ZVA_Week_Abbr(2)&"</p><p class=""w"">"&ZVA_Week_Abbr(3)&"</p><p class=""w"">"&ZVA_Week_Abbr(4)&"</p><p class=""w"">"&ZVA_Week_Abbr(5)&"</p><p class=""w"">"&ZVA_Week_Abbr(6)&"</p><p class=""w"">"&ZVA_Week_Abbr(7)&"</p>"
j=0
For i=1 to b
  If (j=>firw-1) and (k=<d) Then
   If aryDateLink(k) Then
    strCalendar=strCalendar & "<p id=""pCalendar_"&y&"_"&m&"_"&k&""" class=""yd""><a class=""l"" href="""& ZC_BLOG_HOST &"catalog.asp?date="&Year(aryDateArticle(k).PostTime)&"-"&Month(aryDateArticle(k).PostTime)&"-"&Day(aryDateArticle(k).PostTime)& [color=#0000ff][color=red]""" title=""今天有" & intt(k) & "篇文章" & strt(k) &[/color] [/color]""">"&(k)&"</a></p>"
   Else
    strCalendar=strCalendar & "<p id=""pCalendar_"&y&"_"&m&"_"&k&""" class=""d"">"&(k)&"</p>"
   End If
   k=k+1
  Else
   strCalendar=strCalendar & "<p class=""nd""></p>"
  End If
  j=j+1
Next
strCalendar=strCalendar & "</div>"
MakeCalendar=strCalendar
End Function
'*********************************************************
修改的地方还是比较少的,不过,如果不会编程的话,可能就不会了,嘿嘿.有什么问题留言给我吧,或者到我博客的本次修改专文留言[url=http://www.busfly.cn/post/254.html][color=#800080]http://www.busfly.cn/post/254.html[/color][/url] ,要看效果的,到我博客首页看看吧:[url=http://www.busfly.cn/]www.busfly.cn[/url]

[color=Red][size=5]BINGO！这才是我要的答案。灵丹MM差的就是这个了。看来这个巴士比密陀僧厉害一点哦。[/size][/color]

[[i] 本帖最后由 arllic 于 2007-12-7 10:45 编辑 [/i]]

哦,看来你面子不小啊,连灵丹都帮你找人帮忙

strt(j)=strt(j)+"     "+objRS("log_Title")  '保存文章标题
这里中间不是空格,是几个符号,不过,被论坛过滤掉了,
我再发一次,不知道会不会又被过滤掉 ( strt(j)=strt(j)+"&#13&nbsp;&nbsp;&nbsp;&nbsp;"+objRS("log_Title")  '保存文章标题 )
,其它就是换行+四个空格,请到我的[url]http://www.busfly.cn/post/254.html[/url] 这里可以看到

晕死,还是过滤掉了一部分,那没办法,直接到我博客上看去吧

:lol 给飞扬申请精华

谢谢灵丹,丹丹姐真好
爱死你了

[quote]原帖由 [i]janrn[/i] 于 2007-12-7 10:55 发表 [url=http://bbs.z-blog.net/redirect.php?goto=findpost&pid=59658&ptid=18402][img]http://bbs.z-blog.net/images/common/back.gif[/img][/url]
哦,看来你面子不小啊,连灵丹都帮你找人帮忙 [/quote]

[color=Red][size=5]兄弟见笑了，我和灵丹是不认识的，只是她人好而已，娶她做老婆还是蛮可以的，哈哈[/size][/color]

奇怪，为什么有的标题会换行的？

太长了就会自动换行的啊,一行里显示不完,那肯定要换行啊

[color=Red][size=4]好的，那继续请教巴士：
[attach]2508[/attach]

如何像如图所示那样归档，而且鼠标移动到某个月份，显示当月有多少篇日志[/size][/color]

:o 我觉得没必要阿~~有谁会一天写两篇以上~那么空马？大多也就一星期一两篇了，有个标记就可以了。个人癖好，勿打。。。

[quote]原帖由 [i]miffyan[/i] 于 2007-12-7 16:34 发表 [url=http://bbs.z-blog.net/redirect.php?goto=findpost&pid=59738&ptid=18402][img]http://bbs.z-blog.net/images/common/back.gif[/img][/url]
:o 我觉得没必要阿~~有谁会一天写两篇以上~那么空马？大多也就一星期一两篇了，有个标记就可以了。个人癖好，勿打。。。 [/quote]

[color=Red][size=6]这位老兄，我就是有这个需要才提出来的。

无需要者不来就是了。[/size][/color]

[quote]原帖由 [i]arllic[/i] 于 2007-12-7 16:27 发表 [url=http://bbs.z-blog.net/redirect.php?goto=findpost&pid=59736&ptid=18402][img]http://bbs.z-blog.net/images/common/back.gif[/img][/url]
好的，那继续请教巴士：
2508

如何像如图所示那样归档，而且鼠标移动到某个月份，显示当月有多少篇日志 [/quote]

我没见过这样的归档,如果有源码的话,我可以试试,不过原理上是差不多的

引用:
原帖由 miffyan 于 2007-12-7 16:34 发表
我觉得没必要阿~~有谁会一天写两篇以上~那么空马？大多也就一星期一两篇了，有个标记就可以了。个人癖好，勿打。。。

我觉得这个东西还是有用的,直观,可以让用户体验更好

[quote]原帖由 [i]janrn[/i] 于 2007-12-7 17:02 发表 [url=http://bbs.z-blog.net/redirect.php?goto=findpost&pid=59747&ptid=18402][img]http://bbs.z-blog.net/images/common/back.gif[/img][/url]


我没见过这样的归档,如果有源码的话,我可以试试,不过原理上是差不多的 [/quote]

[color=Red][size=5]其实，这种效果我也是在PJblog博客上面看到的。你随便找一个PJblog博客就可以看到的。

有时候我觉得Z-blog怎么不参考一下别的博客程序的一些好的东西呢！！[/size][/color]

[[i] 本帖最后由 arllic 于 2007-12-7 17:22 编辑 [/i]]

不是不参考，毕竟blog只是一个或几个人兴趣所写:L 要都一样功能的话也就没当初的特色了。

[quote]原帖由 [i]arllic[/i] 于 2007-12-7 17:20 发表 [url=http://bbs.rainbowsoft.org/redirect.php?goto=findpost&pid=59754&ptid=18402][img]http://bbs.rainbowsoft.org/images/common/back.gif[/img][/url]


其实，这种效果我也是在PJblog博客上面看到的。你随便找一个PJblog博客就可以看到的。

有时候我觉得Z-blog怎么不参考一下别的博客程序的一些好的东西呢！！ [/quote]

ZB没有这样的归档,你想要我帮你做一个这个的归档再做这个效果?
我可没这样能耐

多谢，搞定:handshake