风格应用后的样式见
http://blog.wyshen.com/
(在外边连抓图都不方便
)
本想8月初把自己做的这个"Bunny风格"发上来的,但最近一直被一些烦心事给烦着,没能整理,而且上网也很不方便,所以一直拖到了现在, 眼前已经到8月中旬了,再拖下去也实在不象话了,只好把我改的风格简单打一下包传上来.
因为一开始是做来自己用的,我便没照Z-Blog那样把模板做成多语言(我自己当然是只用中文)及多风格(把我这几个模板COPY进去后就是Bunny风格不用在后台指定)可选的. 其实我本是想照Z-Blog标准做完再上传的,但9月中旬之前实在没时间了,大家先将就用吧,或者自己改一下(挺简单的),只是改一下几个全页面的页头而已.
另外,还有一点小地方可能需要修改一下: 我是在网站根目录中放Blog的,所以用的全是绝对路径,而不是相对路径.如果你的Blog是放在网站的子目录中,那需要把TEMPLATE文件夹中的模板做如下替换: 把="/这三个字符替换成="/[你放Blog的子目录名]/
例如你的Blog放在"MyBlog"文件夹中, 则需要把="/替换成="/MyBlog/
在\c_option.asp中"%>"之前插入以下代码：
复制内容到剪贴板
代码:
'侧边栏tags显示数目
Const ZC_TAG_WORD_MAX=50在\FUNCTION\c_system_event.asp中搜索"Function BlogReBuild_Tags()",把该函数替换为以下代码：
复制内容到剪贴板
代码:
Function BlogReBuild_Tags()
Dim objRS
Dim objStream
'Authors
Dim strTag
' Set objRS=objConn.Execute("SELECT * FROM [blog_Tag] ORDER BY [tag_Order] DESC,[tag_Count] DESC,[tag_ID] ASC")
Randomize timer
Set objRS=objConn.Execute("SELECT Top " & ZC_TAG_WORD_MAX & " * FROM [blog_Tag] ORDER BY rnd(tag_id-timer())")
If (Not objRS.bof) And (Not objRS.eof) Then
Do While Not objRS.eof
' strTag=strTag & "<li><a href="""& Tags(objRS("tag_ID")).Url & """>"+Tags(objRS("tag_ID")).Name + " (" & Tags(objRS("tag_ID")).Count & ")" +"</a></li>"
strTag=strTag & "<a title='共有" & Tags(objRS("tag_ID")).Count & "篇与""" & Tags(objRS("tag_ID")).Name & """相关的文章' alt='"& Tags(objRS("tag_ID")).Count &"' href='" & Tags(objRS("tag_ID")).Url &"'>" & Tags(objRS("tag_ID")).Name & "</a> "
objRS.MoveNext
Loop
End If
objRS.Close
Set objRS=Nothing
strTag=TransferHTML(strTag,"[no-asp]")
Call SaveToFile(BlogPath & "/include/tags.asp",strTag,"utf-8",True)
BlogReBuild_Tags=True
End Function在\tags.asp中查找以下代码
复制内容到剪贴板
代码:
For Each Tag in Tags
If IsObject(Tag) Then
strTagCloud=strTagCloud & "<span style='font-family:verdana,sans-serif;line-height:150%;font-size:"& 12 + (Tag.Count/2) &"px;margin:10px;'><a title='" & Tag.Count & "' alt='"& Tag.Count &"' href='" & Tag.Url &"'>" & Tag.name & "</a></span>"
End If
Next将以上代码替换如下:
复制内容到剪贴板
代码:
For Each Tag in Tags
If IsObject(Tag) Then
strTagCloud=strTagCloud & "<a title='共有" & Tag.Count & "篇与" & Tag.name & "相关的文章' alt='"& Tag.Count &"' href='" & Tag.Url &"'>" & Tag.name & "</a> "
End If
NextPS: 有问题可以到我的Blog提出:
http://Blog.wyShen.com/ 虽然最近上网不方便,但只要上网的话我会尽量回复诸位的问题的.
原文地址：
http://blog.wyshen.com/post/244.shtml
