<%@ CODEPAGE=65001 %> <% '/////////////////////////////////////////////////////////////////////////////// '// Z-Blog '// 作 者: 朱煊(zx.asd) '// 版权所有: RainbowSoft Studio '// 技术支持: rainbowsoft@163.com '// 程序名称: '// 程序版本: '// 单元名称: '// 开始时间: '// 最后修改: '// 备 注: '/////////////////////////////////////////////////////////////////////////////// %> <% Option Explicit %> <% On Error Resume Next %> <% Response.Charset="UTF-8" %> <% Response.Buffer=True %> <% Call System_Initialize() LoadGlobeCache Dim ArtList Set ArtList=New TArticleList ArtList.LoadCache ArtList.template="TAGS" ArtList.Title="TagCloud" ArtList.Build Dim Tag Dim strTagCloud Dim i,j Dim objRS Set objRS=objConn.Execute("SELECT [tag_ID] FROM [blog_Tag] ORDER BY [tag_Name] ASC") If (Not objRS.bof) And (Not objRS.eof) Then Do While Not objRS.eof If Tags(objRS("tag_ID")).Count<=50 Then i=Tags(objRS("tag_ID")).Count*4 ElseIf Tags(objRS("tag_ID")).Count>50 And Tags(objRS("tag_ID")).Count<=100 Then i=Tags(objRS("tag_ID")).Count*2 ElseIf Tags(objRS("tag_ID")).Count>100 And Tags(objRS("tag_ID")).Count<=200 Then i=Tags(objRS("tag_ID")).Count*1.5 ElseIf Tags(objRS("tag_ID")).Count>200 Then i=Tags(objRS("tag_ID")).Count*1 End If strTagCloud=strTagCloud & "" & Tags(objRS("tag_ID")).name & " " objRS.MoveNext Loop End If objRS.Close Set objRS=Nothing ArtList.SetVar "CUSTOM_TAGS",strTagCloud ArtList.SetVar "CUSTOM_TAGS_TITLE","TagCloud" Response.Write ArtList.html %><% Call System_Terminate() If Err.Number<>0 then Call ShowError(0) End If %>