星铃丹

当前的tag标签是按tag的id进行排序的。

我本想尝试在tag里加width宽度限制，使tag每列左对齐（如yyld.net/links.html）；但无论修改tags.asp还是模板里的tags.html还是b_article_tag.html都不行。也没搜索到方法，论坛曾有人问到但没人回答。

后来想把tag的id排序改为order（也就是后台编辑tag里的“排序”），一个个tag设置排序号，但似乎也没有效果。遂无解。

只能来求解，我的目的就是想把tags.asp的标签样子做成如yyld.net/links.html这样的规整排列。

[ 本帖最后由 星铃丹 于 2007-11-2 15:59 编辑 ]

busfly

占位,顶灵丹,
AD位,第一次,再顶灵丹
有时间好好研究一下,到时再贴到这里来

星铃丹

无言……

busfly

哈哈,已经弄好了吧,弄好了也要AD一下
方法在我的博客里,有兴趣的去看看
http://www.busfly.cn/post/zblog-tags-modfile.html

busfly

知道灵丹已经弄好了,还是要发一下

修改方法很简单,找到根目录下的tags.asp,打开,找到以下代码:

下面的只是我做的,灵丹把她的TAGS页面做的很精致,号召大家去扒她的皮


--------------------------------------------------------------------------------



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='这个标签下有 " & Tag.Count & " 篇文章,点击查看'  href='" & Tag.Url &"'>" & Tag.name  & " - " & 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 & """>   </td></tr>"
end if
strTagCloud=strTagCloud &"</table>"

效果见http://www.busfly.cn/tags.asp

当然,你最好自己改一下样式,使得看起来更漂亮

　

星铃丹

你说我是发主贴好呢还是不法主贴好呢？