<%@ 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
%>太快了慢一点,国产一区二区精品久久无广告,国产精品久久久天天影视香蕉,爆乳老师护士高潮在线观看
五月婷在线
十次啦亚洲综合精品
精品国产乱子伦一区二区三区
国产精品2