A sua loja virtual - Detalhando as informações sobre cada produto

Cada produto possui um link que exibirá informações mais detalhadas a seu respeito (no exemplo , por medida de simplicidade, o detalhamento é bem sucinto).

Cada link irá chamar o arquivo de script detalhe.asp passando como parâmetro o número de identificação do produto.

Assim para o primeiro produto teremos: detalhe.asp?id=1 e assim por diante. A tela gerada pelo arquivo detalhe.asp é a seguinte:

O código do arquivo de script detalhe.asp é dado a seguir :

1-)Declaramos as variáveis usadas na rotina

Dim frm_codId
Dim frm_nome
Dim frm_descricao
Dim frm_valor
Dim frm_urlimagem
Dim SQL
Dim quantidade

2-)Usamos o método Querystring para receber o parâmetro e armazenar o código do produto na variável ItemId. Lembre-se que o método Querystring permite a recuperação de informações enviadas através do método GET com um formulário ou através de dados anexados a URL. O valor ID foi informado através da seguinte  URL no arquivo catálogo.asp: "http://macorati/loja/detalhe.asp?id=<%=rstemp("ProdutoID")%>"

ItemId=clng(request.querystring("id"))

3-)Abrimos a conexão com o banco de dados. 

set conntemp=server.createobject("adodb.connection")
conntemp.open application("conecta_bd")

4-)Selecionamos todos os produtos com o código passado como parâmetro e criamos um recordset com os dados encontrados usando o método Execute passando como parâmetro a string SQL que contém a instrução para selecionar os registros. O conjunto de registros selecionado é passado ao objeto recordset:  rstemp através da declaração Set. O parâmetro aCmdText indica que estamos passando um comando texto , no nosso caso a declaração SQL. 

SQL="select * from produtos where ProdutoID =" & ItemId
set rstemp=conntemp.execute(SQL,, aCmdText)

5-)Se não há produtos com o código fornecido, exibimos um aviso ao usuário e  fechamos a conexão

If rstemp.eof then
   response.write "Não há dados a exibir<br>"
   response.write aspSQL & "<br>Não retorna informação alguma..."
   connection.close
   set connection=nothing
end if

6-) Atribuímos a variável urlimagem a imagem do recordset ( rstemp("urlimagem") ) e a preparemos para ser exibida ao usuário.

urlimagem=rstemp("urlimagem")
urlimagem="<img src='" & urlimagem & "'>"

7-) Exibimos os valores de cada campo do recordset selecionado usando a sintaxe <%=variavel> . Assim usamos os seguintes campos :

8-) Incluímos um link vinculado á imagem ("IMAGENS/cprar.gif"> )  do botão Comprar ,  de forma que se o usuário clicar no botão o arquivo compre.asp será chamado passando como parâmetros o modo da operação ( operacao=incluir )  , a quantidade  ( quantidade=1 ) e o código do produto ( ProdutoID=<%=itemID%> )

<a href="http://macorati/loja/compre.asp?operacao=incluir&amp;quantidade=1&amp;ProdutoID=<%=itemID%>"><img border="0" src="IMAGENS/cprar.gif"></a>

9-) Temos também um link vinculado a opção Voltar que ativa a página principal através do arquivo index.htm

<a href="index.htm"><strong><font face="Verdana" color="#FFFFFF" size="2">Voltar</font></strong></a>

 Parte Anterior Próxima parte

  Gostou ?   Compartilhe no Facebook   Compartilhe no Twitter

Referências:

• Seção VB .NET do Site Macoratti.net

• Super DVD .NET - A sua porta de entrada na plataforma .NET

• Super DVD Vídeo Aulas - Vídeo Aula sobre VB .NET, ASP .NET e C#

• Super DVD C# - Recursos de aprendizagens e vídeo aulas para C#

• Seção C# do site Macoratti.net

• Seção ASP .NET do site Macoratti .net

• Curso Básico VB .NET - Vídeo Aulas

• Curso C# Básico - Vídeo Aulas

• Curso Fundamentos da Programação Orientada a Objetos com VB .NET

• Macoratti .net | Facebook

• macoratti - YouTube

• Jose C Macoratti (@macorati) | Twitter

• Seção Mobile/Xamarin do site Macoratti .net

José Carlos Macoratti