Ir para conteúdo

POWERED BY:

Arquivado

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

lezão

[Resolvido] como criar uma pagina de detalhes

Por , em ASP Clássico

Recommended Posts

lezão    0

lezão
Postado

Ola galera estou tentando encontrar um script q faz, qnd você clica na imagem do produto aparece uma pagina com os detalhes do produto...

 

 

?????

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

Mas isso é simples de fazer

 

se tentar te ajudamos

Compartilhar este post

Link para o post
Compartilhar em outros sites

Ted k'    126

Ted k'
Postado

exato, é só passar o ID do produto pela querystring para a próxima página e resgatar o valor com o SQL de select!

Compartilhar este post

Link para o post
Compartilhar em outros sites

lezão    0

lezão
Postado

a parte "querystring" tem como você postar um exemplo para eu ter uma noção a mais ....

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

basicamente precisará de mais uma pagina que será a de detalhes

Compartilhar este post

Link para o post
Compartilhar em outros sites

Ted k'    126

Ted k'
Postado

olhe para a barra de endereço desse tópico aqui:

 

imasters.com.br/index.php?showtopic=306543

 

tudo que é considerado depois da interrogação é a querystring...

 

nesse caso a querystring que está sendo passada é a do ID desse tópico, para só aparecer as postagens desse tópico, é reconhecido pelo "showtopic", é o nome da query

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

ai nesta pagina voce usa este identificador para recuperar os demias dados

Compartilhar este post

Link para o post
Compartilhar em outros sites

hargon    64

hargon
Postado

Cria um SELECT que busca a informação de apenas um registro (através do WHERE). No WHERE deverá se comparado o campo código com a queryString citada pelo Ted k'.

 

Tenta criar isso aí e posta que vamos lhe ajudando.

Compartilhar este post

Link para o post
Compartilhar em outros sites

hargon    64

hargon
Postado

Qual o seu nível de conhecimento em ASP? Saberia criar um sistema de exibir notícias cadastradas? Ou um evento?

 

Cria um código para listar todos os produtos de uma tabela. Deverá listar também todas os campos de cada produto. Posta o código aí.

Compartilhar este post

Link para o post
Compartilhar em outros sites

lezão    0

lezão
Postado

ola hargon este é o codigo q lista os meus produtos

 

 

 

produtos.asp

<% registros = 6
pagina = Request.QueryString("pagina")
If pagina = "" Then
pagina = 1
End If

'Efetuando a conexão com a base de dados criada -----------------------
Set conexao = Server.CreateObject("AdoDb.Connection")
conexao.provider="Microsoft.Jet.OLEDB.4.0"
conexao.connectionstring=Server.Mappath("banco.mdb")
conexao.open

Set rs = Server.Createobject("ADODB.RECORDSET")
set rs.ActiveConnection = Conexao
rs.CursorType = 3
rs.PageSize = registros

sql = "SELECT * FROM produtos ORDER BY id DESC"
rs.Open sql
If rs.EOF Then
Response.Write "<center><font face=Verdana size=2><b>Nenhum registro encontrado!</b><br><br><a href=java script:history.back(-1)><font face=Verdana, Arial, Helvetica, sans-serif size=1>Voltar</font></a> </center></font>"

Else
rs.AbsolutePage = pagina
%>

<html>
<head>	
<STYLE type=text/css>

A:link { text-decoration: none}		
A:visited { text-decoration: none}	

</STYLE>	

<title></title>

</head>

<body topmargin="0" leftmargin="0" link="#000000" vlink="#000000" alink="#000000" text="#000000" background="http://www.sonhoefesta.com.br/imagens/fundos_azul.gif">  
   <div align="center" style="width: 785; height: 201">
		   
   		<table width="342" height="1">	
   	<tr><%	While Not rs.EOF AND x < rs.PageSize	
x = x + 1 
%>
   		   		<td height=1 width=335> 
   						  <table width="311" >  
<td height="17" width="303" style="height: 12.75pt">	  
<table width="325" class="texto" style="border: 1px solid #b9b9b9" height="183" cellspacing="3" cellpadding="0">
<col width="64" span="2" style="width:48pt">
<tr height="17" style="height:12.75pt"> 
<td colspan="2" height="11" class="xl24" width="309">	
											<p align="center">
												<font size="2" face="Verdana">	
													<b><%=rs("nome")%></b>	
														</font>
														</p>
												</td>
														</tr>
														<tr height="17" style="height:12.75pt">
														<td height="135" width="137" rowspan="2">
														<a href="#" onClick="window.open('<%=rs("foto_grd")%>','Janela','toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=no,res
izable=no,width=500,height=500'); return false;"><font size="2" face="Verdana" color="#FF0000">
												<b><img border="1" src="<%=rs("foto")%>" width="138" height="131" alt="Clique na imagem para amplia-la..."></b>
												</font>
									</a>
														</td>
														<td width="172" height="114">
														  <p align="center"><font size="2" face="Verdana"><%=rs("descricao")%></p>
														</td>	
														</tr>
														<tr colspan="2" height="17" style="height:12.75pt">	
														<td width="172" height="21">
														  <p align="left"><b><font size="3" face="Verdana" color="#FF0000"><%=rs("valor")%></font></b></p>
														</td></tr>			
												<tr colspan="2" height="17" style="height:12.75pt">	  
																				<td height="21" class="xl24" width="309" colspan="2">
																				<p align="left">
																				<font face="Verdana" size="1">Atualizado em <img src="imagens/seta.gif"></font><font size="1" face="Verdana"> <%=rs("data")%></font></p>
																				</td>
																				</tr> 
																				</table>	
																					</td> 
	</tr> 
	</table>
	</td>

 </tr>
 <tr><% If q = 2 Then %> 	 <%	 	
 	q = 0	  
 		End If		
rs.MoveNext
 
 		Wend
%>

 					</tr> 
 					 </table>
 					  <font face="Verdana" size="1">
<%	
 				
anterior = pagina - 1
proxima = pagina + 1
ultima = rs.PageCount
primeira = 1
ultm2 = FormatNumber(rs.PageCount - 1,0)
If pagina <> 1 Then
Response.Write "<b>« <a href=prod1.asp?pagina="&primeira&">Primeira Página</a></b> "
End If
If pagina > 1 AND pagina <> 2 Then
Response.Write "<b>[ <a href=prod1.asp?pagina="&anterior - 1&">"&anterior - 1&"</a> ]</b> "
End If
If pagina > 1 Then
Response.Write "<b>[ <a href=prod1.asp?pagina="&anterior&">"&anterior&"</a> ]</b> "
End If
Response.Write "<b>[ "&pagina&" ]</b> "
If Not rs.EOF Then
Response.Write "<b>[ <a href=prod1.asp?pagina="&proxima&">"&proxima&"</a> ]</b> "
End If
If Not rs.EOF AND pagina <> ultima AND pagina <> ultm2 Then
Response.Write "<b>[ <a href=prod1.asp?pagina="&proxima + 1&">"&proxima + 1&"</a> ]</b> "
End If
If Not rs.EOF Then
Response.Write "<b><a href=prod1.asp?pagina="&ultima&">Última Página</a> »</b> "
End If
%>
<%
rs.Close
Set rs = Nothing
End If 
%>
	</font>
	
   </div>
	
   <p align="left"> </p>
	
	</body>

Compartilhar este post

Link para o post
Compartilhar em outros sites

hargon    64

hargon
Postado

No campo nome acrescente:

<a href="detalhes.asp?id=<%=rs("codigoDoProduto")%>"><%=rs("nome")%></a>
ATENÇÃO: Lembre-se de trocar codigoDoProduto pelo nome certo do campo referente ao código do produto.

 

Na página de detalhes (detalhes.asp), copie exatamente o código postado, exceto com a alteração.

 

Na página de detalhes, não será necessário paginar. Então remova a paginação e o WHILE (pois será listado apenas um registro).

 

Acrescente no topo da página detalhes.asp o seguinte código:

codigoProduto = Request.QueryString("id")
Mais abaixo na consulta SQL substitua por:

sql = "SELECT * FROM produtos WHERE id=" & id
Pronto, esta aí sua página de detalhes. Basta ir acrescentando os campos que quer exibir.

Compartilhar este post

Link para o post
Compartilhar em outros sites

Ted k'    126

Ted k'
Postado

corrigindo hargoniado, colocou o nome da query do SQL errado, agora está beleza!!!

 

crescente no topo da página detalhes.asp o seguinte código:

codigoProduto = Request.QueryString("id")

Mais abaixo na consulta SQL substitua por:

sql = "SELECT * FROM produtos WHERE id=" & codigoProduto

Compartilhar este post

Link para o post
Compartilhar em outros sites

hargon    64

hargon
Postado

Boa observação jovem Ted k'. hehe

Compartilhar este post

Link para o post
Compartilhar em outros sites

lezão    0

lezão
Postado

o "codigoProduto" você quer dizer q é o ID do produto é isso....

É oq eu entendi?????

 

Ola hargon e ted k' entendi deu certo cara nem sei como agradecer vceis ..... fico devendo essa !

 

breve estarei postando outras duvidas, por exemplo a paginação deste script acima ??????

Compartilhar este post

Link para o post
Compartilhar em outros sites

lezão    0

lezão
Postado

Ai ted k' ou hargon fiz a pagina detalhes e qnd eu clico para chamar a pagina da erro veja se eu fiz certo estou em duvida com id = Request.QueryString("id") aonde colocar .... se coloquei certo esta dando erro

 

 

detalhes.asp

 

<%

Option Explicit
Response.Expires = 0
Dim objConn, objRs, strQuery, strConnection


'Conectando com o banco de dados contato.mdb
Set objConn =  Server.CreateObject("ADODB.Connection")
objConn.Open "DBQ=" & Server.MapPath("../dados/cadastro.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}","username","password"
id = Request.QueryString("id")

'Seleciona da tabela usuarios
sql = "SELECT * FROM produtos WHERE id=" & id
Set ObjRs = objConn.Execute(strQuery)
%>

<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>Nova pagina 1</title>
</head>

<body topmargin="0" leftmargin="0">



  <table>
	<col width="64" span="2" style="width:48pt">
	<tr height="17" style="height:12.75pt">
	  <td colspan="2" height="17" class="xl22" width="128" style="height:12.75pt;
  width:96pt"></td>
	</tr>
	<tr height="17" style="height:12.75pt">
	  <td rowspan="3" height="51" class="xl22" style="height:38.25pt">
		<p align="center"><%Response.write objRS("foto_grd")%></td>
	  <td></td>
	</tr>
	<tr height="17" style="height:12.75pt">
	  <td height="17" style="height:12.75pt"></td>
	</tr>
	<tr height="17" style="height:12.75pt">
	  <td height="17" style="height:12.75pt"></td>
	</tr>
	<tr height="17" style="height:12.75pt">
	  <td height="17" style="height:12.75pt"></td>
	  <td></td>
	</tr>
	<tr height="17" style="height:12.75pt">
	  <td height="17" style="height:12.75pt"></td>
	  <td></td>
	</tr>
  </table> 
   <%
  'Move para o próximo registro
  objRS.MoveNext
  Wend
  'Fechando as conexões
  objRs.close
  objConn.close
  Set objRs = Nothing
  Set objConn = Nothing
  %>
</body>

</html>

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