Ir para conteúdo

POWERED BY:

Arquivado

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

Bhordloock

Ccomo criar um

Por , em ASP Clássico

Recommended Posts

Bhordloock    0

Bhordloock
Postado

Olá Pessoal!

Eu criei uma um página default.asp e dentro dessa pág. criei duas tabelas a primeira tabela coloquei o menu e na segunda tabela é onde recebera a página após clicar no link do menu. MAs eu não sei onde entra o código de conexao com o banco de dados microsoft access driver! Eu criei uma tabela dentro do banco de dados access com as seguintes informações: "Código: 1, Nome da Categoria: link". no na tabela menu eu inseri o segiuinte link: <a href=default.asp?link=01>link1</a> e na página default.asp eu inseri o código de conexao como bando de dados antes da tag <HTML>

 

<%
Sub abre_conexao
  Set Conect = Server.CreateObject ("ADODB.Connection")
  Conect.Open "DBQ=C:\Inetpub\wwwroot\teste_asp\testeasp.mdb; Driver={Microsoft Access Driver (*.mdb)}"
End Sub

Sub fecha_conexao
  Conect.Close
  Set Conect = Nothing
End Sub
%>

E mesmo inserindo este código do banco de dados antes da tag HTML o link não abre a página dentro da segunda tabela!

Alguém sabe me explicar como eu faço isso, em que código e em que parte eu estou errando?

Muito obrigado!

flws pessoal

Compartilhar este post

Link para o post
Compartilhar em outros sites

Bhordloock    0

Bhordloock
Postado

Cara se eu não me engano você precisa para abrir dentro da mesma pagina outra pagina, utilizar Iframe.

 

(É o que eu faço em PHP )

 

mas eu já tentei usar Iframe e nao ajustava na página. A página ficava desorganizada! Por isso, eu fiz curso de asp, para fazer páginas usando códigos com conexoes a banco de dados que abra na tabela na mesma página sem sair dela!

mais eu não sei se estou usando o código de conexao com o banco de dados corretamente na página default.asp.

 

E preciso saber se eu coloco o código de conexao com o banco na página default.asp ou se tbm coloco este código dentro da tabela onde receberá a página ao clicar no link!?

 

E se para toda a página que usar o link através do access precisa ter o código de conexao0 com o banco. entende?

 

Você sabe como fazer?

 

Muito obrigado!

Flws

Compartilhar este post

Link para o post
Compartilhar em outros sites

webmind    5

webmind
Postado

como você esta a usar subs pode colocar esse codigo ate no fim de html tanto faz

 

depois por exemplo no body que e onde você vai preencher as tabelas você faz

 

 

<%
abre_conexao 'isto abre a conexao

sql = "Select * from tabela"
set rs=Server.CreateObject("ADODB.Recordset")
rs.Open sql, objConn

if Rs.Eof then
response.write("Sem registos")

else

while not rs.eof
response.write(rs("campo"))
rs.movenext
wend

end if

fecha_conexao ' fecha a conexao
%>

no sub de fecha_conexao deve acrescentar o seguinte

 

rs.close
set rs=nothing

 

Ja nao tenho a certeza se e assim, rss ja nao estou mto dentro de asp

Compartilhar este post

Link para o post
Compartilhar em outros sites

webmind    5

webmind
Postado

esqueci-me de referir isso era so um exemplo, se nao entendeu eu explico

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

salva este código em uma pagina chamada, conexao.asp, imagine k esse arquivo esta dentro da pasta conn, dentro de wwwroot.

 

<%
Sub abre_conexao
  Set Conect = Server.CreateObject ("ADODB.Connection")
  Conect.Open "DBQ=C:\Inetpub\wwwroot\teste_asp\testeasp.mdb; Driver={Microsoft Access Driver (*.mdb)}"
End Sub

Sub fecha_conexao
  Conect.Close
  Set Conect = Nothing
End Sub
%>

e na default ,inclui um include:

 

<!--#include file="conn/conexao.asp"-->
   <% 'abrir a conexao
   call abreconexao
   'crio o rsselect para verificar se os dados jah estaun cadastrados
   set rsselect=server.createobject("ADODB.Recordset")
   'crio o SQLselect
   SQLselect="SELECT login FROM login WHERE login='"&varlogin&"'"
   rsselect.open SQLselect,conexao,1,3
   if not rsselect.eof then
		   response.redirect("incluir_form_treina.asp?msgeof=1")
		set rsselect=nothing
   else	
....
....

Compartilhar este post

Link para o post
Compartilhar em outros sites

Bhordloock    0

Bhordloock
Postado

Olá!

Eu fiz a página conexao igual ao que você falou e inclui apenas o include <!--#include file="conexao.asp"--> na página default e a página default fucniono mais sem os links. Depois inseri logo abaixo desse include os seguintes códigos abaixo que você falou e aparece a mensagem: "Não é possível exibir a página". O que eu tenho que fazer com esses códigos?

 

<% 'abrir a conexao
   call abreconexao
   'crio o rsselect para verificar se os dados jah estaun cadastrados
   set rsselect=server.createobject("ADODB.Recordset")
   'crio o SQLselect
   SQLselect="SELECT login FROM login WHERE login='"&varlogin&"'"
   rsselect.open SQLselect,conexao,1,3
   if not rsselect.eof then
		   response.redirect("incluir_form_treina.asp?msgeof=1")
		set rsselect=nothing
   else	
....
....

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

não, os códigos é um exemplo , de como você pode utilizar o método de conexao, você deve adaptar seu código nele..

entendeu

Compartilhar este post

Link para o post
Compartilhar em outros sites

Bhordloock    0

Bhordloock
Postado

não, os códigos é um exemplo , de como você pode utilizar o método de conexao, você deve adaptar seu código nele..

entendeu

 

A parte de criar uma página cahamada conexao e cinserir o iclude para a pág. conexao dentro da pág. default eu entendi!

mais eu não sei como incluir os meus códigos que dão acesso ao banco testeasp.mdb. Entende?

 

É nesta parte que preciso de ajuda!

 

Eu fiz uma um site de teste criei os seguintes arquivos: default.asp, conexao.asp, link1.asp e testeasp.mdb! dentro do arquivo testeasp.mdb eu criei uma tabela com os seguintes campos: Codigo = 1 e Nome da categoria = link1.

 

Ai eu criei um link assim: <a herf="defaul.asp?link1=1">Link1</a>, salvei a pág. e visualizei no navegador e quando cliquei no link o link não funcionou!

 

você sabe por que? Esta faltando algum código para funcionar o link?

 

 

 

Agradeço muito pela ajuda de todos!

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

olha o exemplo de uma pgina :

 

<% 
	Option explicit
	'declaro as var
	dim conexao, conDBQ, constring, rs, SQL, varcodigo
	'recupero a var
	varcodigo=request.querystring("codigo")
	
	'crio a conexao 
	' pasta conn dentro de wwwroot
	%>
<!--#include file="conn/conexao1.asp"-->
	<%call abreconexao
	'crio o recordset
	set rs=Server.CreateObject("ADODB.Recordset")
	SQL="SELECT * FROM login WHERE codigo="&varcodigo&""
	rs.open SQL,conexao,1,3
	'crio o form para jogar os rs'z no value %>	
<html>
<head>
<title>Atualização de Usuários</title>

</head>

<body bgcolor="#FFFFFF" text="#000000" link="#FFFFFF" vlink="#0000FF" alink="#FF0000">
<table width="75%" border="0" cellpadding="0" cellspacing="0" align="center"> 
<tr> <td width="2%" bgcolor="#666666"> <div align="center"><b><img src="file:///A|/asp/imgs/curva.gif" width="10" height="19"></b></div></td><td width="98%" bgcolor="#336699"> 
<div align="center"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="3" color="#FFFFFF">:: 
</font><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#FFFFFF">Atualizar 
Dados do Usuário</font></b></div></td></tr> <tr bgcolor="#336699"> <td colspan="2" height="19"> </td></tr> 
<tr bgcolor="#336699"> <td height="72" colspan="2">
 <form name="form1" method="post" action="atualizar_action_treina.asp"> 
<p><b><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#e6e6e6">Login:</font></b> 
<input type="text" name="login" size="12" maxlength="12" value="<%=rs("login")%>"> 
<input type="hidden" name="codigo" value="<%=rs("codigo")%>"> </p><p><b><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#e6e6e6">Email:</font><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#000000"> 
<input type="text" name="email" size="48" maxlength="48" value="<%=rs("email")%>"> 
</font></b></p><p><b><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#e6e6e6">Senha:</font><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#000000"> 
<input type="password" name="senha" size="8" maxlength="8" value="<%=rs("senha")%>"> 
</font></b></p><p align="center"> 
		  <input type="image" border="0" name="imageField" src="imgs/enviar.gif" width="87" height="22"> 
</p></form></td></tr>
 <% 'FECHO O RS
	set rs=nothing
	'fecha a conexao
	call fechaconexao%> </table>
</body>
</html>

Compartilhar este post

Link para o post
Compartilhar em outros sites

Bhordloock    0

Bhordloock
Postado

olha o exemplo de uma pgina :

 

<% 
	Option explicit
	'declaro as var
	dim conexao, conDBQ, constring, rs, SQL, varcodigo
	'recupero a var
	varcodigo=request.querystring("codigo")
	
	'crio a conexao 
	' pasta conn dentro de wwwroot
	%>
<!--#include file="conn/conexao1.asp"-->
	<%call abreconexao
	'crio o recordset
	set rs=Server.CreateObject("ADODB.Recordset")
	SQL="SELECT * FROM login WHERE codigo="&varcodigo&""
	rs.open SQL,conexao,1,3
	'crio o form para jogar os rs'z no value %>	
<html>
<head>
<title>Atualização de Usuários</title>

</head>

<body bgcolor="#FFFFFF" text="#000000" link="#FFFFFF" vlink="#0000FF" alink="#FF0000">
<table width="75%" border="0" cellpadding="0" cellspacing="0" align="center"> 
<tr> <td width="2%" bgcolor="#666666"> <div align="center"><b><img src="file:///A|/asp/imgs/curva.gif" width="10" height="19"></b></div></td><td width="98%" bgcolor="#336699"> 
<div align="center"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="3" color="#FFFFFF">:: 
</font><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#FFFFFF">Atualizar 
Dados do Usuário</font></b></div></td></tr> <tr bgcolor="#336699"> <td colspan="2" height="19"> </td></tr> 
<tr bgcolor="#336699"> <td height="72" colspan="2">
 <form name="form1" method="post" action="atualizar_action_treina.asp"> 
<p><b><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#e6e6e6">Login:</font></b> 
<input type="text" name="login" size="12" maxlength="12" value="<%=rs("login")%>"> 
<input type="hidden" name="codigo" value="<%=rs("codigo")%>"> </p><p><b><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#e6e6e6">Email:</font><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#000000"> 
<input type="text" name="email" size="48" maxlength="48" value="<%=rs("email")%>"> 
</font></b></p><p><b><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#e6e6e6">Senha:</font><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#000000"> 
<input type="password" name="senha" size="8" maxlength="8" value="<%=rs("senha")%>"> 
</font></b></p><p align="center"> 
		  <input type="image" border="0" name="imageField" src="imgs/enviar.gif" width="87" height="22"> 
</p></form></td></tr>
 <% 'FECHO O RS
	set rs=nothing
	'fecha a conexao
	call fechaconexao%> </table>
</body>
</html>

 

Eu já adaptei esse código aos meus códigos e não fuinciona!

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

é gerado algum erro ????

Compartilhar este post

Link para o post
Compartilhar em outros sites

Bhordloock    0

Bhordloock
Postado

é gerado algum erro ????

eu criei a pág. conexao.asp, dela eu inseri os seguintes códigos:

 

<%
Sub abre_conexao
  Set Conect = Server.CreateObject ("ADODB.Connection")
  Conect.Open "DBQ=C:\Inetpub\wwwroot\teste_asp\testeasp.mdb; Driver={Microsoft Access Driver (*.mdb)}"
End Sub

Sub fecha_conexao
  Conect.Close
  Set Conect = Nothing
End Sub
%>

<%
Dim Conect, stringSQL, rsTabela

Call abre_conexao

stringSQL = "Select * from Tabela"
set rsTabela = Conect.Execute (stringSQL)

While not rsTabela.eof
  response.write "Codigo:"
  response.write rsTabela("Codigo")
  response.write "<br>"
  response.write "NomeCategoria:"
  response.write  rsTabela("NomeCategoria")
  response.write "<br><br>"
  rsTabela.MoveNext
Wend

rsTabela.Close
set rsTabela = Nothing

Call fecha_conexao

response.write "Ok!!!!!!!!!!!!"
%>

E visualizei essa pág. conexao.asp e fuincionou: Apareceu este resultado:

 

Codigo:1

NomeCategoria:link1

 

Ok!!!!!!!!!!!!

 

Mas quando inseri umo <!--#include file="conexao.asp"--> na pág. default.asp antes da tag html e vísualizei o link não funcionou!

 

Pra ser sincero, eu não sei e não estou entendendo como fazer estes códigos que permitirão ao clicar no link a pág. conexao.asp ir buscar os registros de código=1 e nomecategoria=link1 e assim abrir a pág. do link na tabela.

Essa é a minha dificuldade!

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

faz assim:

 

<%  
	
	Option explicit
	'declaro as var
	Dim Conect, stringSQL, rsTabela
		'crio a conexao 
	%>
<!--#include file="conn/conexao1.asp"-->
<%
Call abre_conexao

stringSQL = "Select * from Tabela"
set rsTabela = Conect.Execute (stringSQL)

While not rsTabela.eof
  response.write "Codigo:"
  response.write rsTabela("Codigo")
  response.write "<br>"
  response.write "NomeCategoria:"
  response.write  rsTabela("NomeCategoria")
  response.write "<br><br>"
  rsTabela.MoveNext
Wend

rsTabela.Close
set rsTabela = Nothing

Call fecha_conexao

response.write "Ok!!!!!!!!!!!!"
%>

Compartilhar este post

Link para o post
Compartilhar em outros sites

Bhordloock    0

Bhordloock
Postado

faz assim:

 

<%  
	
	Option explicit
	'declaro as var
	Dim Conect, stringSQL, rsTabela
		'crio a conexao 
	%>
<!--#include file="conn/conexao1.asp"-->
<%
Call abre_conexao

stringSQL = "Select * from Tabela"
set rsTabela = Conect.Execute (stringSQL)

While not rsTabela.eof
  response.write "Codigo:"
  response.write rsTabela("Codigo")
  response.write "<br>"
  response.write "NomeCategoria:"
  response.write  rsTabela("NomeCategoria")
  response.write "<br><br>"
  rsTabela.MoveNext
Wend

rsTabela.Close
set rsTabela = Nothing

Call fecha_conexao

response.write "Ok!!!!!!!!!!!!"
%>

 

Este código só está testadno se os registros do banco estão cadastrados. Mas o link ainda não fuinciona!

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