<%@ 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() '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 LoadGlobeCache Dim ArtList Set ArtList=New TArticleList ArtList.LoadCache ArtList.template="TAGS" ArtList.Title="BlogRoll" ArtList.Build Dim strContent,strData Application.Lock strContent=Application(ZC_BLOG_CLSID & "HPFG_FEEDPAGE") Application.UnLock If strContent=Empty Then strData=LoadFromFile(BlogPath & "PLUGIN/HaphicFeedsGatherer/data.txt","utf-8") Dim a,c,i,s,t,f,m,n a=Split(strData,vbcrlf) c="" i="" t=0 For Each i In a If i="" Then i=" " s=Split(i,"|") If Left(s(0),2)<>"//" And InStr(s(0),"http")>0 Then t=t+1 f=BlogPath & "PLUGIN/HaphicFeedsGatherer/cache/"& TransferHTML(s(0),"[filename]") m=LoadFromFile(f,"utf-8") m=Replace(m,"<#XML/num#>",t) m=Replace(m,"<#XML/id#>","b"&t) c=c & m End If Next m = LoadFromFile(BlogPath & "PLUGIN/HaphicFeedsGatherer/data-static.txt","utf-8") If InStr(m,"
  • ")>0 Then c = c & vbCrlf & "
    .clear
    " c = c & vbCrlf &"
    .clear

    "& vbCrlf &"

    " strContent="
    "& c & "
    " Application.Lock Application(ZC_BLOG_CLSID & "HPFG_FEEDPAGE")=strContent Application.UnLock End If ArtList.SetVar "CUSTOM_TAGS",strContent ArtList.SetVar "CUSTOM_TAGS_TITLE","BlogRoll" Dim strContentPage strContentPage=ArtList.html strContentPage=Replace(strContentPage,">TagCloud",">"& ArtList.Title &"") strContentPage=Replace(strContentPage,">TagCloud

    ",">"& ArtList.Title &"

    ") strContentPage=Replace(strContentPage,"","") Response.Write strContentPage '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 %>