淘特ASP木马扫描器的代码

    s = f.DateLastModified 
    set f = nothing
    set fso = nothing
    days=DateDiff("d",Cdate(s),now())
    if(days>-7 and days<7) then
        s="<font color=""red"">"&s&"</font>"
    end if
    GetDateModify = s
End Function

Function GetDateCreate(filepath)
    dim s,days
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set f = fso.GetFile(filepath) 
    s = f.DateCreated 
    set f = nothing
    set fso = nothing
    days=DateDiff("d",Cdate(s),now())
    if(days>-7 and days<7) then
        s="<font color=""red"">"&s&"</font>"
    end if
    GetDateCreate = s
End Function

%>

您可能感兴趣的文章:

PHP Web木马扫描器代码 v1.0 安全测试工具asp和php页面全面封杀WVS扫描器的代码php之对抗Web扫描器的脚本技巧清除网页中iframe木马的利器-淘特ASP木马扫描器网页木马代码例子（里面的文件是漏洞扫描器，呵呵）php木马webshell扫描器代码