Salve Salve galera do FORUM, tenho esse script asp aqui, abaixo e gostaria que ele não só listasse a pasta usando FSO que é o que ele faz hoje, mas também que ele abrisse em uma pop-up quando alguém clicar no arquivo exbido. Algum pode da uma ajuda tentei de tudo e não consegui.
GRATO AMIGOS MASTER
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<html>
<head>
<title>Untitled</title>
</head>
<STYLE type=text/css>
BODY
{
font-family: verdana;
font-size: 12px;
color: #4D4B4D;
scrollbar-face-color: #DEE3E7;
scrollbar-highlight-color: #FFFFFF;
scrollbar-shadow-color: #DEE3E7;
scrollbar-3dlight-color: #D1D7DC;
scrollbar-arrow-color: #006699;
scrollbar-track-color: #EFEFEF;
scrollbar-darkshadow-color: #98AAB1;
}
BODY {
BACKGROUND-REPEAT: repeat-y
}
TD {
FONT-FAMILY: verdana,arial,helvetica,sans-serif; FONT-SIZE: 11px
}
P {
FONT-FAMILY: verdana,arial,helvetica,sans-serif; FONT-SIZE: 11px
}
LI {
FONT-FAMILY: verdana,arial,helvetica,sans-serif; FONT-SIZE: 11px
}
A {
text-decoration: none;
color: #4D4B4D;
}
A:Hover {
text-decoration: none;
color: #4D4B4D;
}
IMG {
border-color: #4D4B4D;
}
A:Visited {
text-decoration: none;
color: #4D4B4D;
}
A:Active {
text-decoration: none;
color: #4D4B4D;
}
}
INPUT {
BACKGROUND-COLOR: #FFFFFF; BORDER-BOTTOM-COLOR: #DCDCDC; BORDER-BOTTOM-WIDTH: 1px; BORDER-LEFT-COLOR: #DCDCDC; BORDER-LEFT-WIDTH: 1px; BORDER-RIGHT-COLOR: #DCDCDC; BORDER-RIGHT-WIDTH: 1px; BORDER-TOP-COLOR: #DCDCDC; BORDER-TOP-WIDTH: 1px; COLOR: #106394; FONT-FAMILY: Verdana, Tahoma, Arial, Helvetica, Sans-Serif; FONT-SIZE: 11px
}
</STYLE>
<body>
<table>
<tr>
<td>
<%
'Primeiro vamos abrir um objeto FSO
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
'Agora pegamos a pasta com as imagens!
Set objPasta = objFSO.GetFolder(Server.Mappath("../mensagem")) 'AQUI - você deve colocar apenas uma parte do caminho da pasta que quer listar. Me baseando em seu script seria apenas essa parte que entra ali no Server.MapPath "doidera\wwwroot\pegar\"
'Vamos criar um recordset agora!
'Ele que vai ter o trabalho de ordenar os arquivos!
Set Rs = Server.CreateObject("ADODB.RecordSet")
'Vamos adicionar 2 campos nesse recordset!
'O método Append recebe 3 parâmetros:
'Nome do campo, Tipo, Tamanho (opcional)
'O tipo pertence à um DataTypeEnum, e você pode conferir os tipos em
Rs.Fields.Append "nome", 200, 255
Rs.Fields.Append "data", 7
'Vamos abrir o Recordset!
Rs.Open
'Temos que percorrer agora todos os arquivos e jogar na nossa tabela virtual!
For Each Arquivo In ObjPasta.Files
If Right(Arquivo.name,4) = ".swf" OR Right(Arquivo.name,4) = ".mp3" Then
Rs.AddNew
Rs.Fields("nome").Value = Arquivo.Name
Rs.Fields("data").Value = Arquivo.DateLastModified
End If
Next
'Todos os arquivos no recordset, agora vamos ordená-lo!
'Da maior data para a menor!
Rs.Sort = "data desc" ' DESC para descentende e ASC para ascendente
'Pronto! Agora temos os arquivos todos em ordem em nosso recordset! Vamos exibi-los!
Rs.MoveFirst
While Not Rs.EoF
'Response.Write "<img src=""images/" & rs.fields("nome").value & """><br>"
Response.Write "<strong><a href="""& rs.fields("nome").value &""" target='_blank'>"& rs.fields("nome").value &"</a><br></strong>"
Response.Write "Data de Modificação: " & rs.fields("data").value
Response.Write "<p>"
Rs.MoveNext
Wend
'Fechando os objetos!
Rs.Close
Set Rs = Nothing
Set objPasta = Nothing
Set objFSO = Nothing
%></td>
</tr>
</table>
</body>
</html>
Pergunta
Guest Skywalkerr
Salve Salve galera do FORUM, tenho esse script asp aqui, abaixo e gostaria que ele não só listasse a pasta usando FSO que é o que ele faz hoje, mas também que ele abrisse em uma pop-up quando alguém clicar no arquivo exbido. Algum pode da uma ajuda tentei de tudo e não consegui.
GRATO AMIGOS MASTER
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"> <html> <head> <title>Untitled</title> </head> <STYLE type=text/css> BODY { font-family: verdana; font-size: 12px; color: #4D4B4D; scrollbar-face-color: #DEE3E7; scrollbar-highlight-color: #FFFFFF; scrollbar-shadow-color: #DEE3E7; scrollbar-3dlight-color: #D1D7DC; scrollbar-arrow-color: #006699; scrollbar-track-color: #EFEFEF; scrollbar-darkshadow-color: #98AAB1; } BODY { BACKGROUND-REPEAT: repeat-y } TD { FONT-FAMILY: verdana,arial,helvetica,sans-serif; FONT-SIZE: 11px } P { FONT-FAMILY: verdana,arial,helvetica,sans-serif; FONT-SIZE: 11px } LI { FONT-FAMILY: verdana,arial,helvetica,sans-serif; FONT-SIZE: 11px } A { text-decoration: none; color: #4D4B4D; } A:Hover { text-decoration: none; color: #4D4B4D; } IMG { border-color: #4D4B4D; } A:Visited { text-decoration: none; color: #4D4B4D; } A:Active { text-decoration: none; color: #4D4B4D; } } INPUT { BACKGROUND-COLOR: #FFFFFF; BORDER-BOTTOM-COLOR: #DCDCDC; BORDER-BOTTOM-WIDTH: 1px; BORDER-LEFT-COLOR: #DCDCDC; BORDER-LEFT-WIDTH: 1px; BORDER-RIGHT-COLOR: #DCDCDC; BORDER-RIGHT-WIDTH: 1px; BORDER-TOP-COLOR: #DCDCDC; BORDER-TOP-WIDTH: 1px; COLOR: #106394; FONT-FAMILY: Verdana, Tahoma, Arial, Helvetica, Sans-Serif; FONT-SIZE: 11px } </STYLE> <body> <table> <tr> <td> <% 'Primeiro vamos abrir um objeto FSO Set objFSO = Server.CreateObject("Scripting.FileSystemObject") 'Agora pegamos a pasta com as imagens! Set objPasta = objFSO.GetFolder(Server.Mappath("../mensagem")) 'AQUI - você deve colocar apenas uma parte do caminho da pasta que quer listar. Me baseando em seu script seria apenas essa parte que entra ali no Server.MapPath "doidera\wwwroot\pegar\" 'Vamos criar um recordset agora! 'Ele que vai ter o trabalho de ordenar os arquivos! Set Rs = Server.CreateObject("ADODB.RecordSet") 'Vamos adicionar 2 campos nesse recordset! 'O método Append recebe 3 parâmetros: 'Nome do campo, Tipo, Tamanho (opcional) 'O tipo pertence à um DataTypeEnum, e você pode conferir os tipos em Rs.Fields.Append "nome", 200, 255 Rs.Fields.Append "data", 7 'Vamos abrir o Recordset! Rs.Open 'Temos que percorrer agora todos os arquivos e jogar na nossa tabela virtual! For Each Arquivo In ObjPasta.Files If Right(Arquivo.name,4) = ".swf" OR Right(Arquivo.name,4) = ".mp3" Then Rs.AddNew Rs.Fields("nome").Value = Arquivo.Name Rs.Fields("data").Value = Arquivo.DateLastModified End If Next 'Todos os arquivos no recordset, agora vamos ordená-lo! 'Da maior data para a menor! Rs.Sort = "data desc" ' DESC para descentende e ASC para ascendente 'Pronto! Agora temos os arquivos todos em ordem em nosso recordset! Vamos exibi-los! Rs.MoveFirst While Not Rs.EoF 'Response.Write "<img src=""images/" & rs.fields("nome").value & """><br>" Response.Write "<strong><a href="""& rs.fields("nome").value &""" target='_blank'>"& rs.fields("nome").value &"</a><br></strong>" Response.Write "Data de Modificação: " & rs.fields("data").value Response.Write "<p>" Rs.MoveNext Wend 'Fechando os objetos! Rs.Close Set Rs = Nothing Set objPasta = Nothing Set objFSO = Nothing %></td> </tr> </table> </body> </html>Link para o comentário
Compartilhar em outros sites
1 resposta a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.