Ir para conteúdo
Fórum Script Brasil
  • 0

Galerinha Me Ajudem

rafaeltejeda

Perguntado por rafaeltejeda,

 Share

Pergunta

rafaeltejeda

rafaeltejeda

Postado
Postado

iai galerinha tudo bom

eu desenvolvi um sistema de imagem que que mostra as imagens de um determinado diretório

<%@ Language=VBScript %>
<% Option Explicit %> 
<% 
Const ImageFilePath = "D:\Rafael Tejeda NetWorks\Sites\Site - Portal de Eventos\www\fotos\moia_guela"

Dim objFSO
Dim objFolder
Dim objFile 
Dim strFileName
Dim strFileExtension 
%>
<html>
<head>

  <title>teste</title>

</head>
<body bgcolor="#000000"> 
<table border="1" bordercolor=silver cellpadding=2 cellspacing=0
bordercolorlight=silver bordercolordark=White width="145">
<%
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(ImageFilePath)
For Each objFile In objFolder.Files
  strFileExtension = LCase(Mid(objFile.Name, InStrRev(objFile.Name, ".", -1, 1) + 1))
If strFileExtension = "gif" Or strFileExtension = "jpg" Or strFileExtension = "jpeg" Or strFileExtension = "png" Then 
%> 
  <tr>

    <td>
      <p align="center">
      <a href="fotos/galeria.asp" target="_blank">
      <img src="<%= ImageFilePath & "/" & objFile.Name %>?foto=&lt;%= ImageFilePath &+&quot;/&quot;+=&+objFile.Name+&gt;="></a><a href="javascript:galeria()" style="text-decoration: none; font-weight:700">
      <a/>
    </td>
  <% 
  End If 
Next
Set objFolder = Nothing 
Set objFSO = Nothing 
%> 
</table> 

</body>
</html>

deem uma analizada

e agora eu gostaria de abrir essas imagens em uma nova janela ou em pop-up

como faço eu paçaria essas informaçoes por parametros não muito usar isso.

por favor me ajudem...

grato.

Link para o comentário
Compartilhar em outros sites

3 respostass a esta questão

Posts Recomendados

  • 0
cyberalexxx

cyberalexxx

Postado
Postado

tenta assim

<%@ Language=VBScript %>

<% Option Explicit %>

<%

Const ImageFilePath = "D:\Rafael Tejeda NetWorks\Sites\Site - Portal de Eventos\www\fotos\moia_guela"

Dim objFSO

Dim objFolder

Dim objFile

Dim strFileName

Dim strFileExtension

%>

<html>

<head>

<title>teste</title>

</head>

<body bgcolor="#000000">

<table border="1" bordercolor=silver cellpadding=2 cellspacing=0

bordercolorlight=silver bordercolordark=White width="145">

<%

Set objFSO = Server.CreateObject("Scripting.FileSystemObject")

Set objFolder = objFSO.GetFolder(ImageFilePath)

For Each objFile In objFolder.Files

strFileExtension = LCase(Mid(objFile.Name, InStrRev(objFile.Name, ".", -1, 1) + 1))

If strFileExtension = "gif" Or strFileExtension = "jpg" Or strFileExtension = "jpeg" Or strFileExtension = "png" Then

%>

<tr>

  <td>

    <p align="center">

    <a href="<%= ImageFilePath & "/" & objFile.Name %>" target="_blank">

    <img src="<%= ImageFilePath & "/" & objFile.Name %>?foto=&lt;%= ImageFilePath &+&quot;/&quot;+=&+objFile.Name+&gt;="></a><a href="javascript:galeria()" style="text-decoration: none; font-weight:700">

    <a/>

  </td>

<%

End If

Next

Set objFolder = Nothing

Set objFSO = Nothing

%>

</table>

</body>

</html>

Link para o comentário
Compartilhar em outros sites
  • 0
rafaeltejeda

rafaeltejeda

Postado
  • Autor
Postado
iai galerinha tudo bom

eu desenvolvi um sistema de imagem que que mostra as imagens de um determinado diretório

<%@ Language=VBScript %>
<% Option Explicit %> 
<% 
Const ImageFilePath = "D:\Rafael Tejeda NetWorks\Sites\Site - Portal de Eventos\www\fotos\moia_guela"

Dim objFSO
Dim objFolder
Dim objFile 
Dim strFileName
Dim strFileExtension 
%>
<html>
<head>

  <title>teste</title>

</head>
<body bgcolor="#000000"> 
<table border="1" bordercolor=silver cellpadding=2 cellspacing=0
bordercolorlight=silver bordercolordark=White width="145">
<%
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(ImageFilePath)
For Each objFile In objFolder.Files
  strFileExtension = LCase(Mid(objFile.Name, InStrRev(objFile.Name, ".", -1, 1) + 1))
If strFileExtension = "gif" Or strFileExtension = "jpg" Or strFileExtension = "jpeg" Or strFileExtension = "png" Then 
%> 
  <tr>

    <td>
      <p align="center">
      <a href="fotos/galeria.asp" target="_blank">
      <img src="<%= ImageFilePath & "/" & objFile.Name %>?foto=&lt;%= ImageFilePath &+&quot;/&quot;+=&+objFile.Name+&gt;="></a><a href="javascript:galeria()" style="text-decoration: none; font-weight:700">
      <a/>
    </td>
  <% 
  End If 
Next
Set objFolder = Nothing 
Set objFSO = Nothing 
%> 
</table> 

</body>
</html>

deem uma analizada

e agora eu gostaria de abrir essas imagens em uma nova janela ou em pop-up

como faço eu paçaria essas informaçoes por parametros não muito usar isso.

por favor me ajudem...

grato.

mas e se eu quisece abrir em um pop-up

Link para o comentário
Compartilhar em outros sites
  • 0
cyberalexxx

cyberalexxx

Postado
Postado

pop-up, ai já é javascript

function abre()
{
window.open("arquivo.asp","","width=320,height=270,top=100,left=100,scrollbars=no,menubar=no,directories=no,location=no,copyhistory=no,status=no,toolbar=no,maximized=yes,resizable=no");
}
</script>
<a href=javascript:abre()>nome do link</a>

é so adaptar ao seu código

Link para o comentário
Compartilhar em outros sites

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.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.

×
 Share
Ir para lista de Perguntas


  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,3k
×
×
  • Criar Novo...