Ir para conteúdo

POWERED BY:

Arquivado

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

Magnoweb

Código para avaliação

Por , em ASP Clássico

Recommended Posts

Magnoweb    0

Magnoweb
Postado

aê ASPER's...

estou posta esse cógido para avaliação, mesclei um código de paginação postado aqui no forum com outro código que fiz que retorna o dados em três colunas, achei que ficou meio confuso e estou postando para avaliação. (Tá funcionando sem erros)

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%><%Registros = 3Pagina = Request.QueryString("pagina")If Pagina = "" ThenPagina = 1End If%><html><head><title>Documento sem título</title><meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"></head><body><table width="330" border="0" cellspacing="0" cellpadding="5">				<%	vcont = 0	vcod_eve_fot = Request.QueryString("vcod_eve_fot")	SQL2 = "SELECT * FROM foto_treinamento WHERE cod_eve_fot = " & vcod_eve_fot & " "	Set bdfot = Server.CreateObject("ADODB.Recordset")	bdfot.PageSize = Registros	bdfot.Open SQL2,bd,3,3			If bdfot.EOF Then	Response.Write "Nenhum registro encontrado"	Else	bdfot.AbsolutePage = Pagina	While Not bdfot.EOF AND x < bdfot.PageSize	x = x + 1  		if vcont = 0 then%>	  <tr>  		<%end if%>		   <td><div align="left"><a href="#" onClick="MM_openBrWindow('foto_popup.asp?cod_fot=<%=bdfot("cod_fot")%>','','scrollbars=yes,width=640,height=600')"><img src="../foto/<%=bdfot("arquivo_p")%>" border="0"></a>	 </div></td>	<%	bdfot.movenext  vcont = vcont + 1	  if vcont = 3 then	if not bdfot.eof then	vcont = 0%>	</tr>	<%end ifend ifwendanterior = pagina - 1proxima = pagina + 1ultima = bdfot.PageCountprimeira = 1ultm2 = FormatNumber(bdfot.PageCount - 1,0)If pagina > 1 AND pagina <> 2 ThenResponse.Write "<font color=#666666>"&"["&"</font>"&"<a href=tcompany_r2.asp?codfot="&vcod_eve_fot&"&pagina="&anterior - 1&">"&"<fon face=verdana>"&anterior - 1 &"</font>"&"</a>"&"<font color=#666666>"&"]"&"</font>"End IfIf pagina > 1 ThenResponse.Write "<font color=#666666>"&"["&"</font>"&"<a href=tcompany_r2.asp?codfot="&vcod_eve_fot&"&pagina="&anterior&">"&"<fon face=verdana>"&anterior&"</font>"&"</a>"&"<font color=#666666>"&"]"&"</font>"End IfResponse.Write "<font color=#666666>"&"["&"</font>"&pagina&"<font color=#666666>"&"]"&"</font>"If Not bdfot.EOF ThenResponse.Write "<font color=#666666>"&"["&"</font>"&"<a href=tcompany_r2.asp?codfot="&vcod_eve_fot&"&pagina="&proxima&">"&proxima&"</a>"&"<font color=#666666>"&"]"&"</font>"End IfEnd Ifbdfot.CloseSet bdfot = Nothing%>	</tr></table></body></html>

flwz B)

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

como ficou a estrutura do DB pra alguem poder fazer os testes??

Compartilhar este post

Link para o post
Compartilhar em outros sites

Magnoweb    0

Magnoweb
Postado

opa,

a estrutura da tabela é a seguinte

 

cod_fot - código da foto

arquivo_p - foto pequena

arquivo_g - Foto grande

cod_eve_fot - Código do evento

 

é algo do tipo...

 

cod_fot | arquivo_p | arquivo_g | cod_eve_fot

37 | p37.jpg | g37.jpg | 7

38 | p38.jpg | g38.jpg | 7

 

Ajudou?

 

B)

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

agora já da pra tentar...

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