Ir para conteúdo

POWERED BY:

Arquivado

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

lordstarlight

Loop For dando trabalho

Por , em ASP Clássico

Recommended Posts

lordstarlight    0

lordstarlight
Postado

Olá pessoal,

 

A situação é o seguinte:

tenho uma pasta com imagens.

essas imagens são de 001 a 400 (isso são os nomes delas)

 

Estou construindo um "for" para exibir essas fotos.

Por que um for? porque estou dividindo em páginas de 20 fotos.

No caso vão ser 20 páginas com 20 fotos cadas.

 

O problema é o seguinte como estou usando o FOR para colocar os nomes das fotos.

e esse nome tem q ser o mesmo nome da foto na pasta.

Por exemplo:

para exibir a foto 001(nome q está a foto) o for vai colocar apenas 1

então coloquei uma função onde adiciona os outros dois zeros.

 

Até aí tudo bem.

 

Mas aparece apenas a primeira foto.

 

Se eu clicar nas outras páginas onde as fotos são acima de 100 aparece tudo legal.

 

Vejam o Código:

<%Select Case pg		Case ""		iniImg = 1		fimImg = 20		Case "1"		iniImg = 1		fimImg = 20		Case "2"		iniImg = 21		fimImg = 40		Case "3"		iniImg = 41		fimImg = 60		Case "4"		iniImg = 1		fimImg = 80		Case "5"		iniImg = 81		fimImg = 100		Case "6"		iniImg = 101		fimImg = 120		Case "7"		iniImg = 121		fimImg = 140		Case "8"		iniImg = 141		fimImg = 160		Case "9"		iniImg = 161		fimImg = 180		Case "10"		iniImg = 181		fimImg = 200		Case "11"		iniImg = 201		fimImg = 220		Case "12"		iniImg = 221		fimImg = 240		Case "13"		iniImg = 241		fimImg = 260		Case "14"		iniImg = 261		fimImg = 280		Case "15"		iniImg = 281		fimImg = 300		Case "16"		iniImg = 301		fimImg = 320		Case "17"		iniImg = 321		fimImg = 340		Case "18"		iniImg = 341		fimImg = 360		Case "19"		iniImg = 361		fimImg = 380		Case "20"		iniImg = 381		fimImg = 400		Case "21"		iniImg = 401		fimImg = 420		Case "22"		iniImg = 421		fimImg = 440		Case "23"		iniImg = 441		fimImg = 460		Case "24"		iniImg = 461		fimImg = 480		Case "25"		iniImg = 481		fimImg = 500			End Select		%><table width="150" border="0" cellpadding="0" cellspacing="0">		<%		for i = iniImg to fimImg		%>		 <tr>	<td width="24" bgcolor="#000000"><img src="../fig/filme.gif" width="24" height="85"></td>	<td width="102" bgcolor="#000000"><table width="108" height="78" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">		<tr>					  <td align="left"> 			<%response.write "<tr><td><a href='principal.asp?past="&past&"&pg="&pg&"&img="&colocaZero(i)&"' target=FramePrincipal><center><img src='"&past&"/"&colocaZero(i)&".jpg' height=70 width=100 border=0></center></a></td></tr>"%> </td>		</tr>	  </table></td>	<td width="24" bgcolor="#000000"><img src="../fig/filme.gif" width="24" height="85" border="0"></td>  </tr><%next%></table>

Alguém pode dá uma ajudinha???

 

http://forum.imasters.com.br/public/style_emoticons/default/joia.gif

Compartilhar este post

Link para o post
Compartilhar em outros sites

pedradegelo    3

pedradegelo
Postado

olá blzinha?está aparecendo o registro e a imagem está com erro? é isso?talvez é a função que coloca zeros que está colocando incorretamente.coloca a função aí....seus arquivos são do tipo 001, 002, 003... ... 499,500?

Compartilhar este post

Link para o post
Compartilhar em outros sites

lordstarlight    0

lordstarlight
Postado

Sim os arquivos estão nesse formato (001, 002, 003... ... 499, 500)

 

<%function colocaZero(valor)Select Case len(valor)Case 1valor="00"&valorCase 2valor="0"&valorend selectcolocaZero=valorend function%>

Compartilhar este post

Link para o post
Compartilhar em outros sites

pedradegelo    3

pedradegelo
Postado

cara parece estar normal...olha aí e ve se da certo:

 

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"><html xmlns="http://www.w3.org/1999/xhtml"><head><meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" /><title>Untitled Document</title></head><body><%function colocaZero(valor)Select Case len(valor)Case 1valor="00"&valorCase 2valor="0"&valorend selectcolocaZero=valorend functionfor i = 1 to 500	Response.Write("<img src=" & chr(34)& colocaZero(i)) & ".jpg" & chr(34) & " />"	Response.Write("<br />")next%></body></html>

Compartilhar este post

Link para o post
Compartilhar em outros sites

CassianoVix    0

CassianoVix
Postado

Cara..

 

Fiz uma lógica pra você não precisar usar esse Select Case.. e pra resolver o problema dos zeros, usei um Right...

 

Vê se isso te ajuda...

 

<%If pg = "" Then	pg = 1End IfiniImg = ((pg-1)*20) + 1fimImg = (pg*20)%><html xmlns="http://www.w3.org/1999/xhtml"><head><title>Teste</title></head><body><%	for i = iniImg to fimImg		response.write (Right("00"&i,3)&"<br />")	next%></body></html>

Abraços,

Cassiano.

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