Ir para conteúdo

POWERED BY:

Arquivado

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

GreyWolf

To todo enrolado

Por , em ASP Clássico

Recommended Posts

GreyWolf    0

GreyWolf
Postado

Seguinte, faz um tempo que não mexo com ASP e resolvi fazer um banco de dados, só que esqueci praticamente tudo, gostaria de saber se isto está certo e como faria pra colocar tudo em apenas um documento do modo mais simples possível...Obrigado ;) -------Cad.asp--------<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"><html><head><title>Untitled Document</title><meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"></head><body><form name="form1" method="post" action="inserir.asp?area=links"><input type="hidden" name="area" value="sim"> <table width="215" border="1" align="center" cellpadding="1" cellspacing="0" bordercolor="#000000"> <tr> <td colspan="2" bgcolor="#000000" height="29" valign="top"> <div align="center"> <p class="comentcad"><font color="#FFFFFF" face="Verdana, Arial, Helvetica, sans-serif"><strong>Cadastro de Links<br> <font size="1">Cadastrar Links</font></strong></font></p> </div> </td> </tr> <tr> <td colspan="2"> <table border="0" cellspacing="3" cellpadding="0" width="207"> <tr> <td class="comenttext"><font face="Verdana, Arial, Helvetica, sans-serif">Nick:</font></td> <td> <input name="nick" type="text" id="nick" size="20"> </td> </tr> <tr> <td class="comenttext"><font face="Verdana, Arial, Helvetica, sans-serif">HomePage:</font></td> <td> <input name="home" type="text" id="home" size="20"> </td> </tr> <tr> <td colspan="2"><font face="Verdana, Arial, Helvetica, sans-serif">  </font></td> </tr> <tr> <td colspan="2"><div align="center"> <INPUT Type="submit" Value="Adicionar" name="Submit">   <INPUT Type="reset" Value="Limpar" name="B2"> </div></td> </tr> </table></td> </tr> </table></form></body></html>---------------------------------------------------------Inserir.asp--------------------<%@LANGUAGE="vb script:history.go(-1)'>Voltar</a>"response.End()end ifi = "insert into links(nick,homepage) values('"&nick&"','"&home&"')"cn.Execute(i)response.write "Link cadastrado com sucesso!<p>"Response.Redirect ("listar.asp")cn.Closeend if%></body></html>-----------------------------------conn.asp-----------------<%Set cn = server.CreateObject("adodb.connection")' DSNless connection to DatabaseDim DSNtempDSNtemp="Provider=MSDASQL;"'DSNtemp=DSNtemp & "DRIVER={Microsoft Access Driver (*.mdb)}; "DSNtemp=DSNtemp & "DBQ=D:\Hps\links\asp\maincom.mdb;"Cn.open DSNtemp%>

Compartilhar este post

Link para o post
Compartilhar em outros sites

brunofilhorj    0

brunofilhorj
Postado

Veja se isso ajuda...

 

-------Cad.asp--------

 

<!--#include file="conn.asp"-->

 

<%

 

if Request.QueryString("area")="links" then

 

nick = request.form("nick")

home = request.form("home")

 

 

if nick = "" AND home = "" then

response.write "<p><a href='java script:history.go(-1)'>Voltar</a>"

response.End()

end if

 

i = "insert into links(nick,homepage) values('"&nick&"','"&home&"')"

cn.Execute(i)

response.write "Link cadastrado com sucesso!<p>"

Response.Redirect ("listar.asp")

cn.Close

end if

 

%>

 

<html>

<head>

<title>Untitled Document</title>

</head>

 

<body>

 

<form method="post" action="cad.asp?area=links">

 

<table width="215" border="1" align="center" cellpadding="1" cellspacing="0" bordercolor="#000000">

<tr>

<td colspan="2" bgcolor="#000000" height="29" valign="top">

<div align="center">

<p class="comentcad"><font color="#FFFFFF" face="Verdana, Arial, Helvetica, sans-serif"><strong>Cadastro

de Links<br>

<font size="1">Cadastrar Links</font></strong></font></p>

</div>

</td>

</tr>

<tr>

<td colspan="2">

<table border="0" cellspacing="3" cellpadding="0" width="207">

<tr>

<td class="comenttext"><font face="Verdana, Arial, Helvetica, sans-serif">Nick:</font></td>

<td> <input name="nick" type="text" id="nick" size="20"> </td>

</tr>

<tr>

<td class="comenttext"><font face="Verdana, Arial, Helvetica, sans-serif">HomePage:</font></td>

<td> <input name="home" type="text" id="home" size="20"> </td>

</tr>

<tr>

<td colspan="2"><font face="Verdana, Arial, Helvetica, sans-serif"> 

</font></td>

</tr>

<tr>

<td colspan="2"><div align="center">

<INPUT Type="submit" Value="Adicionar" name="Submit">

 

<INPUT Type="reset" Value="Limpar" name="B2">

</div></td>

</tr>

</table></td>

</tr>

</table>

</form>

</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