<%@ CODEPAGE=65001 %> <% '/////////////////////////////////////////////////////////////////////////////// '// Z-Blog '// 作 者: 朱煊(zx.asd) '// 版權所有: RainbowSoft Studio '// 技術支持: rainbowsoft@163.com '// 程序名稱: '// 程序版本: '// 單元名稱: '// 開始時間: '// 最后修改: '// 備 注: '/////////////////////////////////////////////////////////////////////////////// %> <% Option Explicit %> <% On Error Resume Next %> <% Response.Charset="UTF-8" %> <% Response.Buffer=True %> <% Dim html Call System_Initialize() 'plugin node For Each sAction_Plugin_Tags_Begin in Action_Plugin_Tags_Begin If Not IsEmpty(sAction_Plugin_Tags_Begin) Then Call Execute(sAction_Plugin_Tags_Begin) Next Call GetTags() Dim objArticle Set objArticle=New TArticle objArticle.LoadCache objArticle.Title="TagCloud" Dim Tag Dim strTagCloud() Dim i,j For Each Tag in Tags If IsObject(Tag) Then If Tag.Count<>0 Then i=TagCloud(Tag.Count) ReDim Preserve strTagCloud(j+1) strTagCloud(j) = "" &Tag.name & "" End If End If j=j+1 Next objArticle.FType=ZC_POST_TYPE_PAGE objArticle.Content="
"&Join(strTagCloud)&"
" objArticle.Title="TagCloud" objArticle.FullRegex="{%host%}/{%alias%}.html" If GetTemplate("TEMPLATE_TAGS")<>empty Then objArticle.template="TAGS" End If If objArticle.Export(ZC_DISPLAY_MODE_SYSTEMPAGE) Then objArticle.Build html=objArticle.html Response.Write html End If 'plugin node For Each sAction_Plugin_Tags_End in Action_Plugin_Tags_End If Not IsEmpty(sAction_Plugin_Tags_End) Then Call Execute(sAction_Plugin_Tags_End) Next Call System_Terminate() If Err.Number<>0 then Call ShowError(0) End If %>国产在线欧美日韩精品一区_两个人免费观看高清视频图片_最近中文字幕完整版2018免费_最近最新中文字幕MV免费版