美化zblog的tags页面

今天看着zblog的tags.asp页面关键词显示有点不爽,决定给它加点装饰修饰一下。修改方法很简单,找到根目录下的tags.asp,打开,找到以下代码:


Dim Tag
Dim strTagCloud
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

修改成以下代码:


Dim Tag
Dim strTagCloud
strTagCloud="<table width=100% >"
dim i ‘循环记数器             
i=0
dim rowcount ‘每行显示几个标签
rowcount=3
For Each Tag in Tags
If IsObject(Tag) Then
  if i=0 then
   strTagCloud=strTagCloud &"<tr height=22>"
  end if
   strTagCloud=strTagCloud & "<td><span style=’font-family:verdana,sans-serif;font-size:12px;line-height:150%;margin:10px;’><a title=’这个标签下有&nbsp;" & Tag.Count & "&nbsp;篇文章,点击查看’  href=’" & Tag.Url &"’>" & Tag.name  & "&nbsp;-&nbsp;" & Tag.Count & "篇</a></span></td>"
  if i=(rowcount-1) then
   strTagCloud=strTagCloud &"</tr>"
  end if
  i=(i+1) mod rowcount
End If 
Next

if i<>0 then
strTagCloud=strTagCloud & "<td colspan=""" & rowcount-i & """> &nbsp; </td></tr>"
end if
strTagCloud=strTagCloud &"</table>"

 

要什么样的样式大家可以修改红色代码区域,让它看起来更漂亮。

可以不经允许随意转载,分享:广州SEO,移动互联网营销 » 美化zblog的tags页面

分享的每套dede模板,整站带数据源码,wordpress模板,整站源码下载,帝国cms模板,带数据帝国cms网站,淘宝客源码,女性网站模板等源码的下载链接地址请咨询QQ索取。
赞 (0)
分享到: 更多