Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
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>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>" <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>boa man, parabéns, fico feliz pelo desempenho
tira isso
<% nomeArquivo = arq.name %>
coloca isso:
<%
nomeArquivo = arq.name
response.write(nomeArquivo)
%>
irá imprimir o nome do arquivo!