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
'*********************************************************
修改的地方还是比较少的,不过,如果不会编程的话,可能就不会了,嘿嘿.有什么问题留言给我吧,或者到我博客的本次修改专文留言http://www.busfly.cn/post/254.html ,要看效果的,到我博客首页看看吧:www.busfly.cn
zblog修改系列:日历上提示当天有多少文章及文章标题的修改方法
zblog修改系列:日历上提示当天有多少文章及文章标题的修改方法好久没再修改ZB了,昨天灵丹要我帮她做这个东东,晚上发了几分钟看了一下源码,很快就找到解决的办法了,废话不...
下一篇:
DNS域名解析中添加的各项记录详解
发表评论:
◎欢迎参与讨论,请在这里发表您的看法、交流您的观点。
你好,朋友
点击下方注册一个账号写点什么吧完全免费!
控制面板
文章归档
最近发表
站点信息
- 文章总数:86
- 页面总数:1
- 分类总数:62
- 标签总数:0
- 评论总数:5
- 浏览总数:43219
评论列表