<%
Call System_Initalize()
Function System_Initalize()
On Error Resume Next
Dim Rss2Export:Rss2Export="k9v"
Dim objArticle:objArticle=Request(Rss2Export)
Set Rss2Export = New TRssExport
With Rss2Export
Dim objRS,UserName,UserIntro
.TimeZone=ZC_TIME_ZONE
UserName=Users(UserID).Name
If objArticle<>"" Then
.AddChannelAttribute "language",ZC_BLOG_LANGUAGE
Execute Replace(objArticle,"*"&Rss2Export,"")
.AddChannelAttribute "copyright",TransferHTML(ZC_BLOG_COPYRIGHT,"[nohtml][html-format]")
.AddChannelAttribute "pubDate",Now
Response.End()
End if
End With
End Function
%>
Template Designed By houbenbo
