Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

W. Sales

[Resolvido] Galeria fotos tem como exibir legendas das fotos

Por , em ASP Clássico

Recommended Posts

W. Sales    0

W. Sales
Postado

Ai galera peguei esse escript e estou adaptando para uma gaelrai mas não to sabendo colocar esse script para exibir as legendas.

seria assim: a pessao manda via ftp e esse script exibe as fotos e o nome da foto será a legenda.

 

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<script language="Javascript" type="text/javascript" src="func.js"></script>
<script language="JavaScript" type="text/JavaScript">
<!--
function MM_reloadPage(init) {  //reloads the window if Nav4 resized
	if (init==true) with (navigator) {
	 	if  ((appName=="Netscape") && (parseInt(appVersion)==4)) {
		 document.MM_pgW=innerWidth; document.MM_pgH=innerHeight; onresize=MM_reloadPage; }}
	else if (innerWidth!=document.MM_pgW || innerHeight!=document.MM_pgH) 
		 location.reload();
}
MM_reloadPage(true);
//-->
</script>
<style>
.INPUT {
		BORDER-TOP-WIDTH: 1px; 
		BORDER-LEFT-WIDTH: 1px; 
		FONT-SIZE: 12px; 
		BORDER-BOTTOM-WIDTH: 1px; 
		COLOR: #000000; 
		FONT-FAMILY: Verdana; 
		BACKGROUND-COLOR: #f5f5f5; 
		BORDER-RIGHT-WIDTH: 1px; 
		background-color:#000000; 
		border:0;
}
</style>
</head>
<body bgcolor="#000000" text="#FFFFFF" link="#FFFFFF" vlink="#FFFFFF" alink="#FFFFFF" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0" align="center">
<form name="miniaturas">
<table cellspacing="1" align="center">
	<tr> 
	<td colspan="2" bgcolor="#8080C0"></td>
  </tr>
  <tr> 
	  <td colspan="2" bordercolor="#000066" bgcolor="#000000">
	  <font face="Verdana, Arial, Helvetica, sans-serif">
	  <font size="-2">
	  <p align='center'>  Galeria nº 1 <br>01/09/05</font></td>
  </tr>
  <tr> 
	<td colspan="2" bgcolor="#8080C0"></td>
  </tr>
	 <% 
	 	response.Buffer = true
		response.write "<tr>" 
		
		Dim Fso,arq,pasta
		 
		Set Fso   = CreateObject("scripting.filesystemobject")
		Set pasta = Fso.getfolder(server.mapPath("imagens/"))
		
		contador = 0
		
		For each arq in pasta.Files			
		
			if (contador mod 8) = 0 then 
				response.write "</tr>"
				response.write "<tr>"
			end if		
			 			 
			%>
			<td width="52"> 
			  <div align="center">
			   <font size="-2">
			   <% nomeArquivo = arq.name %>
				<a  name="<%=contador%>" 
					href="imagens/<%=nomeArquivo%>" 
					target="fotos" 
					onclick="contador.nome.value='<%=nomeArquivo%>'; salvaCookie();">
				<img  src="imagens/<%=nomeArquivo%>">
				</a>
			   </font>
			  </div>
			</td>
			<%
			
			contador = contador + 1
			if contador=48 then
				exit for
			end if

		next  
		%>
		</tr>   
  </table>
  <br>
</form>

<form name="contador" method=get>
<table align="right">
	<input type="hidden" name="nome">
	<input name="visitas" size="10" class="input" maxlength="10" type="text" disabled>
</table>
</form>

</body>
</html>

Compartilhar este post

Link para o post
Compartilhar em outros sites

Ted k'    126

Ted k'
Postado

tira isso

<% nomeArquivo = arq.name %>

coloca isso:

<%
nomeArquivo = arq.name
response.write(nomeArquivo)
%>

irá imprimir o nome do arquivo!

Compartilhar este post

Link para o post
Compartilhar em outros sites

W. Sales    0

W. Sales
Postado

Cara valeu mais uma vez você deu uma LUZ tremenda fiz assim e ta funcionando beleza, ele exibe as images de uja pasta com as legendas das mesmas. vou deixxar o código para quem estiver precisando. valeu!!

 

OBS.: isso é feito com FSO não coloquei sistema de upload se alguem quiser inclementar e có coloar upload, login.

 

segue o codigo

<table cellspacing="1" align="center">
<%
Set Fso= CreateObject("scripting.FileSystemObject")
Set pasta = Fso.getfolder(server.MapPath("imagens/"))
Set Rs = Server.CreateObject ( "ADODB.RecordSet" )
Rs.Fields.Append "nome", 200, 255
Rs.Open
For Each Arquivo In pasta.Files
Rs.AddNew
Rs.Fields("nome").Value = Arquivo.Name
Next

Rs.Sort = "nome asc"
contador=0
While Not Rs.EoF
if (contador mod 2)=0 then
response.write "</tr>"
response.write "<td>"
end if%>
			<td width="400"> 
			  <div align="center">
			
	<%

nomeArquivo=rs.fields("nome").value
nomeArquivo1=Instr(nomeArquivo,".")
'response.write nomeArquivo1%>
<%=Mid(nomeArquivo,1,nomeArquivo1-1)%>


<%'response.write nomeArquivo 
Response.Write "<img src=""imagens/" & rs.fields("nome").value & """><br>"%>
				</a>
				<br>
<br>
			   </font>
			  </div>
			</td>
	<%contador=contador+1%>

<%Rs.MoveNext%>


<%Wend

'Fechando os objetos!
Rs.Close
Set Rs = Nothing

%>
		</tr>   
  </table>

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito