Um Sistema de postais Virtuais em ASP II
Anotações sobre o código:
- DEFAULT.ASP
- Como comentamos anteriormente, o código faz uma dupla função, se ao capturar a variável tema através derequest.form(“tema”) esta está vazia, mostramos um formulário para poder escolher o tema do postal, em caso contrário, mostramos todas a imagens sobre o tema escolhido.
- Nas variáveis urlfoto e urlminiatura salvamos o endereço relativo dos diretórios que contém nossas imagens
- CONFIRMAPOSTAL.ASP
- Neste módulo comprovamos que nenhuma das variáveis recebidas pelo default.asp está vazia, se alguma estiver, emitimos uma mensagem de erro e não mostramos a pré-visualização do postal.
- Utilizamos a função comentarios=replace(request.form(“comentarios”),chr(10),”<br>”) para substituir as quebras de linha de teclado por etiquetas
Defaul.asp
<html>
<head>
<title>Envio de E-Postais</title>
</head>
<body>
<%urlfoto=”images/”
urlminiatura=”images/miniaturas/”
tema=request.form(“tema”)%>
<center>
<div align=”center”>
<center>
<table border=”0″ width=”80%”>
<tr>
<td width=”100%” align=”center”><font color=”#0000FF” size=”5″>
Envio de E-Postais</font>
<p> </p>
</td></tr>
<tr>
<td width=”100%” align=”center” bgcolor=”#D9F8FF”>
<%Set Conna = Server.CreateObject(“ADODB.Connection”)
‘nota: a cadeia de conexão deve de ir em uma só linha, aqui está cortada por desenho
Conna.Open(“DRIVER={Microsoft Access Driver (*.mdb)};
DBQ=” & Server.MapPath(“TudirBdpostais.mdb”))
set rs=createobject(“ADODB.Recordset”)
if tema=”” then
sqltxt=”SELECT distinct tema from postais”
rs.open sqltxt,conna%>
<p align=”left”>Escolhe um tema para seu postal:</p>
<form method=”POST” action=”default.asp”>
<p align=”center”><select size=”1″ name=”tema”>
<%do while not rs.eof %>
<option><%=rs(“tema”)%></option>
<%rs.movenext
loop
rs.close
set rs=nothing%>
</select><input type=”submit” value=”Selecionar” name=”B1″></p>
</form>
<p><br>
<%else
sqltxt=”SELECT * from postais where tema like ‘%”&tema&”%’ order by id”
rs.open sqltxt,conna%>
</p>
<p align=”left”><font color=”#0000FF”>Tema:</font><font color=”#00FFFF”> </font>
<%=tema%></p>
<p align=”left”>Escolhe uma imagem para seu postal:</p>
<form method=”POST” action=”confirmapostal.asp”>
<table border=”0″ width=”100%” bgcolor=”#55B5F1″><tr>
<%contador=0
do while not rs.eof
contador = contador+1
if contador >3 then
contador=1%>
</tr><tr>
<%end if %>
<td width=”33%” align=”center”>
<p align=”center”><img border=”0″ src=”<%=urlminiatura%><%=rs(“url”)%>” >
<input type=”radio” value=”<%=rs(“id”)%>” name=”id” checked></td>
<%rs.movenext
loop
rs.close
set rs=nothing%>
</tr>
</table>
<p align=”left”> </p>
<table border=”1″ width=”100%” bgcolor=”#C0C0C0″ bordercolor=”#FFFFFF”>
<tr>
<td width=”30%”><font color=”#0000FF” size=”2″>Tu nombre:</font></td>
<td width=”70%”><input type=”text” name=”nome” size=”45″></td>
</tr>
<tr>
<td width=”30%”><font color=”#0000FF” size=”2″>Seu email:</font></td>
<td width=”70%”><input type=”text” name=”email” size=”45″></td>
</tr>
<tr>
<td width=”30%”><font color=”#0000FF” size=”2″>Nome de seu amigo:</font></td>
<td width=”70%”><input type=”text” name=”amigo” size=”45″></td>
</tr>
<tr>
<td width=”30%”><font color=”#0000FF” size=”2″>Email de seu amigo:</font></td>
<td width=”70%”><input type=”text” name=”emailamigo” size=”45″></td>
</tr>
</table>
<p align=”left”>o que lhe contamos:</p>
<p align=”center”><textarea rows=”2″ name=”comentarios” cols=”53″></textarea></p>
<p align=”center”><input type=”submit” value=”continuar ->” name=”B1″></p>
</form>
<%end if%>
</td>
</tr>
<tr>
<td width=”100%” align=”center”> </center>
</center>
<p align=”right”><font size=”1″>
Código proporcionado por : <a href=”http://www.asptutor.com”>
<img border=”0″ src=”http://www.asptutor.com/images/asptutor88x31.gif”></a></font></td>
</tr>
</table>
</div>
</body>
</html>
Confirmapostal.asp
<%if request.form(“id”)=”” then
response.redirect “default.asp”
end if
urlfoto=”images/”
urlminiatura=”images/miniaturas/”%>
<html>
<head>
<title>Envio de E-Postais</title>
</head>
<body>
<div align=”center”>
<center>
<table border=”0″ width=”80%” bgcolor=”#D9F8FF”>
<tr>
<td width=”100%”>
<%for each v_entrada in request.form
for indice=1 to request.form(v_entrada).count
if request.form(v_entrada)(indice) = “” then
mal=1%>
<font color=”#FF00FF”>El campo <%=v_entrada%> não pode estar vazio</font><br>
<%end if
next
next
if mal <> 1 then
Set Conna = Server.CreateObject(“ADODB.Connection”)
‘nota: a cadeia de conexão deve de ir em uma só linha, aqui está cortada por design
Conna.Open(“DRIVER={Microsoft Access Driver (*.mdb)};
DBQ=” & Server.MapPath(“TudirBdpostais.mdb”))
set rs=createobject(“ADODB.Recordset”)
sqltxt=”SELECT * from postais where id=”&request.form(“id”)
rs.open sqltxt,conna
url=rs(“url”)
rs.close
set rs=nothing
%>
<h3 align=”center”><font color=”#FF0000″>Esta é o postal que vai
enviar</font></h3>
<div align=”center”>
<center>
<table border=”0″ width=”500″ background=”images/rayasgrises.gif”>
<tr>
<td width=”642″ colspan=”2″>
</td>
</tr>
<tr>
<td width=”93″ bgcolor=”#66CCFF”> </td>
<td width=”543″>
<table border=”0″ width=”100%” cellspacing=”5″ bgcolor=”#FFFFFF”>
<tr>
<td><img border=”0″ src=”<%=urlfoto%><%=url%>” align=”left”></td>
<%’cambiamos los saltos de carro por <br>
comentarios=replace(request.form(“comentarios”),chr(10),”<br>”)
‘Colocamos a primeira letra em maiúsculas
inicial=ucase(mid(request.form(“comentarios”),1,1))
‘Atribuímos à variável comentários o resto da cadeia
comentarios=mid(comentarios,2)
%>
<td valign=”top”> <i>
<font color=”#FF00FF” size=”7″> <%=inicial%></font></i><%=comentarios%></td>
</tr>
<tr>
<td width=”100%” colspan=”2″><font color=”#FF0000″>De:</font>
<a href=”mailto:<%=request.form(“email”)%>”><%=request.form(“nome”)%></a><br>
<font color=”#FF0000″>Para:</font>
<%=request.form(“amigo”)%> (<%=request.form(“emailamigo”)%>)</td>
</tr>
</table>
<p> </p>
</td>
</tr>
</table>
</center>
</div>
<div align=”center”>
<center>
<table border=”0″ width=”50%”>
<tr>
<td width=”50%” valign=”top”>
<p align=”center”>Não gosto, quero corregir</td>
<td width=”50%” valign=”top”>
<p align=”center”>Gosto,<br>
envie</td>
</tr>
<tr>
<td width=”50%” valign=”top” align=”center”>
<a href=”javascript:window.history.back()”>
<img border=”0″ src=”../images/atras.gif”></a></td>
<td width=”50%” valign=”top” align=”center”>
<form method=”POST” action=”enviarpostal.asp”>
<input type=”hidden” name=”comentarios” size=”20″ value=”<%=request.form(“comentarios”)%>”>
<input type=”hidden” name=”nome” size=”20″ value=”<%=request.form(“nome”)%>”>
<input type=”hidden” name=”email” size=”20″ value=”<%=request.form(“email”)%>”>
<input type=”hidden” name=”amigo” size=”20″ value=”<%=request.form(“amigo”)%>”>
<input type=”hidden” name=”emailamigo” size=”20″ value=”<%=request.form(“emailamigo”)%>”>
<input type=”hidden” name=”url” size=”20″ value=”<%=url%>”>
<input type=”hidden” name=”id” size=”20″ value=”<%=request.form(“id”)%>”>
<p><input border=”0″ src=”../images/adelante.gif” name=”I1″ type=”image”></p>
</form>
</td>
</tr>
</table>
</center>
</div>
<%else%>
<p align=”center”><a href=”javascript:window.history.back()”>
<img border=”0″ src=”../images/atras.gif”></a></p>
<%end if%></td>
</tr>
<tr>
<td width=”100%”> <p align=”right”>
<font size=”1″>Código proporcionado por :
<a href=”http://www.asptutor.com”>
<img border=”0″ src=”http://www.asptutor.com/images/asptutor88x31.gif”></a>
</font></td>
</tr>
</table>
</center>
</div>
</body>
</html>
Fonte: http://www.criarweb.com/artigos/sistemas-postais-virtuais-asp-ii.html