在function里的c_system_event.asp文件里。(补充的,前面没说是在那里文件里……呵呵)
复制内容到剪贴板
代码:
Function BlogReBuild_Tags()
Dim objRS
Dim objStream
'Authors
Dim strTag
Set objRS=objConn.Execute("SELECT TOP 10 tag_ID FROM [blog_Tag] ORDER BY [tag_Order] DESC,[tag_Count] DESC,[tag_ID] ASC")
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>"
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 Functioninclude里面的东西都在这里可以找到。
看上面代码里的
复制内容到剪贴板
代码:
<li><a href="""& Tags(objRS("tag_ID")).Url & """>"+Tags(objRS("tag_ID")).Name + " (" & Tags(objRS("tag_ID")).Count & ")" +"</a></li>就是生成格式。想去掉<li>就去掉呗。
想加<DIV>就加呗。(我美化播放器的时候加DIV了)
[
本帖最后由 jifforever 于 2007-11-11 14:19 编辑 ]