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
Dim intt(32)'记录每天有几篇文章
Dim strt(32)'记录每天里的文章标题
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],[log_Title] 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")
intt(j)=intt(j)+1 '这天的文章数量+1
strt(j)=strt(j)+"
 "+objRS("log_Title") '保存文章标题
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)& """ title=""今天有" & intt(k) & "篇文章" & strt(k) & """>"&(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
'*********************************************************
修改的地方还是比较少的,不过,如果不会编程的话,可能就不会了,嘿嘿.有什么问题留言给我吧,要看效果的,到我博客首页看看吧:www.busfly.cn
Tags: blog Zblog |
原创文章如转载，请注明：转载自：巴士飞扬-技术BLOG : http://www.busfly.net/
本文链接地址：http://www.busfly.net/post/254.html
如果你喜欢本文，请顶一下，支持我，你的支持是我继续发好文章的最大动力。谢谢。
好东西需要分享，快把本文发给你的朋友吧~!~
