Ir para conteúdo

POWERED BY:

Arquivado

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

Marcelo Pescador

[Resolvido] Código Mysql

Por , em ASP Clássico

Recommended Posts

Dee    0

Dee
Postado

Achei, aqui:


<%

sub abreconexao
set conn = Server.CreateObject("ADODB.Connection") ' você nao setou o objeto como de conexao
 
conn.Open("DRIVER={MySQL ODBC 3.51 Driver};SERVER=200.234.214.67;PORT=3306;DATABASE=teste;USER=teste;PASSWORD=teste;OPTION=3;")
conexao.open constring
end sub

sub fechaconexao
set conexao=nothing
end sub
%>

teste agora, rapido que eu to saindo

Compartilhar este post

Link para o post
Compartilhar em outros sites

Marcelo Pescador    0

Marcelo Pescador
Postado

deu erro na linha 6:

Object required: 'conexao'

/controle_new/conexao.asp, line 6

a linha 6 é essa:

conexao.open constring

e agora ?!

 

conexao.asp

<% 
sub abreconexao
set conn = Server.CreateObject("ADODB.Connection")
conn.Open("DRIVER={MySQL ODBC 3.51 Driver};SERVER=200.234.214.66;PORT=3306;DATABASE=arterz1;USER=arterz1;PASSWORD=rz310366;OPTION=3;")
conexao.open constring
end sub

sub fechaconexao
set conexao=nothing
end sub
%>

login.asp

<!--#include file="conexao.asp"-->
<%
call abreconexao() ' você chama a conexao aqui, a sub

strsql = "select * from usuario where login = '" & Request("login") & "' and senha = '" & Request("senha") & "'"

set rs = Conn.execute(strsql)
If Not Rs.EOF Then
Session("cod_usuario") = rs("codigo")
Session("login") = rs("login")
Session("senha") = rs("senha")
Response.Redirect "orcamentos_novos.asp"

call fechaconexao() 
%>

o que esta errado hein :( ?!

 

vou inserir o código inteiro do login.asp

 

o conexao.asp

<% 
sub abreconexao
set conn = Server.CreateObject("ADODB.Connection")
conn.Open("DRIVER={MySQL ODBC 3.51 Driver};SERVER=200.234.214.67;PORT=3306;DATABASE=teste;USER=teste;PASSWORD=teste;OPTION=3;")
conexao.open constring
end sub

sub fechaconexao
set conexao=nothing
end sub
%>

o login.asp

<!--#include file="conexao.asp"-->
<%
call abreconexao() ' você chama a conexao aqui, a sub

strsql = "select * from usuario where login = '" & Request("login") & "' and senha = '" & Request("senha") & "'"

response.write(strsql)
response.end()

set rs = Conn.execute(strsql)
If Not Rs.EOF Then
Session("cod_usuario") = rs("codigo")
Session("login") = rs("login")
Session("senha") = rs("senha")
Response.Redirect "orcamentos_novos.asp"

call fechaconexao() 
%>

<HTML>
<STYLE type=text/css>
@import url("style.css");
</STYLE>
<HEAD>
<TITLE>Painel de Controle</TITLE>

</script>
<style media="print">
.oculta
{
visibility: hidden
}
</style>
</script>

<%
Session.LCID = 1046
Session.TimeOut = 600
%>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"></HEAD>
<BODY>
<div align="center"><img src="../base_rsvp/images/banner_painel.jpg" width="754" height="100"></div>
<table width="775" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr> 
    <td width="816"> <table width="750" border="0" align="center" cellpadding="0" cellspacing="0">
        <tr> 
          <td width="100%" valign="top">
            <form method="post" action="login.asp">

<table width="217" border="0" align="center" cellpadding="0" cellspacing="0">
              <tr> 
                    <td width="105" class="style4"><div align="right">Usuário: </div></td>
                    <td width="112" valign="center"> <input name="login" type="text" class="fct1" size="18" maxlength="12"></td>
                  </tr>
                  <tr> 
                    <td class="style4"><div align="right">Senha: </div></td>
                    <td width="112" valign="center"> <input name="senha" type="password" class="fct1" size="18" maxlength="12"></td>
                  </tr>
                  <tr>
                    <td colspan="2"> </td>
                  </tr>
                  <tr> 
                    <td colspan="2">
                        <div align="right">
                          <input name="submit" type="submit" class="fct2" value="Entrar no Sistema">                  
                        </div></td>
                  </tr>
                  <tr>
                    <td colspan="2"><table width="100%" border="0" cellspacing="0" cellpadding="0">
                      <tr>
                        <td width="16%"><div align="center"><img src="../base_rsvp/images/alerta.gif" width="16" height="16"></div></td>
                        <td width="84%"><div align="center" class="style7">Usuário ou senha incorretos ! </div></td>
                      </tr>
                    </table></td>
                  </tr>
              </table>
              <br>
              <br>
              <br>
              <br>
              <br>
              <br>
            </form></td>
        </tr>
      </table></td>
  </tr>
  <tr> 
    <td> </td>
  </tr>
  <tr>
    </table>
</BODY>
</HTML>

<%End If%>

vê se podem me ajudar ai galera !! :)

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

kal erro ele gera ???

ao inves de usar o metodo execute do obj connection use o recordset, olha um exemplo de login

formulario:

 

<% Option Explicit 
'declara as var
dim varmsgeof, bc, data
'recupera a msgeof do erro no login_action
varmsgeof=request.querystring("msgeof")%>

<script language="javascript">
function novajan(){
window.open ("erro_treina.asp","Erro","width=240,height=240,scrollbar=no,status=yes,resize=no")
}
</script>
<script language="JavaScript">
function novajan1(){
window.open("terminar_treina.asp","Encerrar", "width=260,height=240,status=yes,scroolbars=no,toolbar=no")}
</script>
<script language="JavaScript">
function novajan2(){
window.open("efetuarlog_treina.asp","Encerrar", "width=150,height=240,status=yes,scroolbars=no,toolbar=no")}
</script>
<%
Select case varmsgeof
case 1 'login vazio
response.write("<script>novajan();</script>")
case 2 'senha vazia
response.write("<script>novajan();</script>")
case 3 'login inválido
response.write("<script>novajan();</script>")
case 4 'senha incorreta
response.write("<script>novajan();</script>")
case 5'se user jah logado
response.write("<script>novajan();</script>")
case 6   ' user naun está logado,por isso naun tem permissaun para entrar em atualizacaun/suporte
response.write("<script>novajan2();</script>")
end select %>

<HTML>
<HEAD>
<TITLE>Login Clientes</TITLE>
<script src="Scripts/AC_RunActiveContent.js" type="text/javascript"></script>
<BODY bgColor=#ffffff leftMargin=18 topMargin=12>
<table width="100%" border="0" height="445">
  <tr> 
    <td height="378"> <p><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#666666"><b><font color="#336699">:: 
        Senhores Clientes para sua maior <br>
        segurança solicitamos sua identificação <br>
        para poder ter acesso a área restrita a você.</font></b></font><font face="Arial, Helvetica, sans-serif" size="1" color="#666666"><b> 
        </b></font></p>
      <p> </p>
      <form name="form1" method="post" action="logincli_action_treina.asp">
        <table width="85%" border="0" cellspacing="0" cellpadding="0" bgcolor="#336699">
          <tr bgcolor="#666666"> 
            <td width="4%" bgcolor="#666699"><img src="imgs/curva.gif" width="10" height="19"></td>
            <td width="96%" bgcolor="#336699"> <div align="center"><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#FFFFFF"><b><font size="3">:: 
                </font>Porfavor efetue seu login</b></font></div></td>
          </tr>
          <tr bgcolor="#666666"> 
            <td width="4%" bgcolor="#336699"> </td>
            <td width="96%" bgcolor="#336699"> </td>
          </tr>
        </table>
        <table width="85%" border="0" cellspacing="0">
          <tr bgcolor="#336699"> 
            <td colspan="3"><font color="#e6e6e6" face="Verdana, Arial, Helvetica, sans-serif" size="2"><b> Login: 
                
              <input name=login size="12" maxlength="12">
              </b></font></td>
          </tr>
          <tr bgcolor="#336699"> 
            <td colspan="3"><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#e6e6e6"><b> Senha: 
              <input type=password name=senha size="12" maxlength="12">
                 <span class="preto"> 
              <input type="image" border="0" name="imageField" src="imgs/enviar.gif" width="87" height="22">
              </span></b></font></td>
          </tr>
          <tr bgcolor="#336699"> 
            <td height="2" width="41%"> <div align="right"><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#e6e6e6"><strong>Esqueceu 
                a senha clike <a href="esqsenha_form_treina.asp">Aqui</a></strong></font></div></td>
            <td width="42%"><div align="right"><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#e6e6e6"><b>Para 
                efetuar Logo-off clique</b></font></div></td>
            <td height="2" width="17%"><script type="text/javascript">
AC_FL_RunContent( 'codebase','http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=4,0,2,0','width','35','height','19','src','logoff','quality','high','pluginspage','http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash','scale','exactfit','bgcolor','#336699','movie','logoff' ); //end AC code
            </script>
              <noscript>
              <object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=4,0,2,0" width="35" height="19">
                <param name=movie value="logoff.swf">
                <param name=quality value=high>
                <param name="BGCOLOR" value="#336699">
                <param name="SCALE" value="exactfit">
                <embed src="logoff.swf" quality=high pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash" type="application/x-shockwave-flash" scale="exactfit" width="35" height="19" bgcolor="#336699"> </embed>
              </object>
              </noscript>            </td>
          </tr>
        </table>
    
      </form>
      </td>
  </tr>
</table>
</BODY></HTML>

action

<% Option Explicit
'declara as var
dim varsenha, varlogin, conexao ,rs, SQL, conDBQ, constring, rsselect, sqlselect, rsinsert, sqlinsert, rsupdate, sqlupdate,data
'recupera as var
varlogin=Trim(request.form("login"))
varsenha=Trim(request.form("senha"))
varlogin=Replace(varlogin,"'","")
varsenha=Replace(varsenha,"'","")
if varlogin="" then
response.redirect("logincli_form_treina.asp?msgeof=1")
end if
if varsenha="" then
response.redirect("logincli_form_treina.asp?msgeof=2")
end if
if Session("logado")=True then
response.redirect("logincli_form_treina.asp?msgeof=5")
end if 
%>
<!--#include file="conn/conexao1.asp"-->
<%
 call abreconexao
'cria o recordset
Set rs=Server.CreateObject("ADODB.Recordset")
SQL="SELECT * FROM login WHERE login='"&varlogin&"'"
rs.open SQL,conexao,1,3
	if rs.eof then
	   response.redirect("logincli_form_treina.asp?msgeof=3")
	else
		if Lcase (varsenha) <> Lcase(rs("senha")) then
			response.redirect("logincli_form_treina.asp?msgeof=4")
			session("logado")=False
		else
			session("logado")=True
			session("senha")=varsenha
			session("login")=varlogin
			response.Redirect("administracao_treina.asp")
		end if
	end if
set rs=nothing
call fechaconexao%>

Compartilhar este post

Link para o post
Compartilhar em outros sites

Dee    0

Dee
Postado

conexao.asp

<% 
set conn = Server.CreateObject("ADODB.Connection")
conn.Open("DRIVER={MySQL ODBC 3.51 Driver};SERVER=200.234.214.67;PORT=3306;DATABASE=teste;USER=teste;PASSWORD=teste;OPTION=3;")
%>

login.asp

<!--#include file="conexao.asp"-->
<%
strsql = "select * from usuario where login = '" & Request("login") & "' and senha = '" & Request("senha") & "'"
set rs = Conn.execute(strsql)
If Not Rs.EOF Then
Session("cod_usuario") = rs("codigo")
Session("login") = rs("login")
Session("senha") = rs("senha")
Response.Redirect "orcamentos_novos.asp"
%>

Compartilhar este post

Link para o post
Compartilhar em outros sites

Marcelo Pescador    0

Marcelo Pescador
Postado

bom dia irmão, acho que estamos evoluindo, mas apareceu outro erro agora:

Item cannot be found in the collection corresponding to the requested name or ordinal.

 

/controle_new/login.asp, line 7

ou seja: "O artigo não pode ser encontrado na coleção que corresponde ao nome ou ao ordinal pedido."

 

acabei de ver o banco e esta lançado, segue abaixo:

 

Textos completos cod_usuario login senha

 

Editar Remover 1 marcelo teste

 

o que será agora hein ??

 

aqui esta o começo do código da página "orcamentos_novos.asp".

<!--#include file="conexao.asp"-->
<!--#INCLUDE FILE = "config.inc" -->

<%
dim sessao
sessao = Request.QueryString("sessao") 
Session("sessao") = sessao
strsql1="select * from usuario where codigo=" & Session("cod_usuario")
set rs1=Conn.execute(strsql1)
%>

Compartilhar este post

Link para o post
Compartilhar em outros sites

Dee    0

Dee
Postado

O erro está aqui

/controle_new/login.asp, line 7

 

Linha 7 do login.asp

 

---------------- Editando!!

Tenta isso aqui:

 

<!--#include file="conexao.asp"-->
<%
StrSql = "select * from usuario where login = '" & Request("login") & "' and senha = '" & Request("senha") & "'"
Set Rs = Server.CreateObject("ADODB.RecordSet")
Rs.Open StrSql, conn, 3, 3

If Rs.RecordCount > 0 Then
Session("cod_usuario") = Rs("codigo")
Session("login") = Rs("login")
Session("senha") = Rs("senha")
Response.Redirect "orcamentos_novos.asp"
%>

Compartilhar este post

Link para o post
Compartilhar em outros sites

Marcelo Pescador    0

Marcelo Pescador
Postado

este é todo o código do login.asp:

<!--#include file="conexao.asp"-->
<%

StrSql = "select * from usuario where login = '" & Request("login") & "' and senha = '" & Request("senha") & "'"
Set Rs = Server.CreateObject("ADODB.RecordSet")
Rs.Open StrSql, conn, 3, 3

If Rs.RecordCount > 0 Then
Session("cod_usuario") 	= Rs("codigo")
Session("login") 		= Rs("login")
Session("senha") 		= Rs("senha")
Response.Redirect "orcamentos_novos.asp"

%>

<HTML>
<STYLE type=text/css>
@import url("style.css");
</STYLE>
<HEAD>
<TITLE>Painel de Controle</TITLE>

</script>
<style media="print">
.oculta
{
visibility: hidden
}
</style>
</script>

<%
Session.LCID = 1046
Session.TimeOut = 600
%>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"></HEAD>
<BODY>
<div align="center"><img src="../base_rsvp/images/banner_painel.jpg" width="754" height="100"></div>
<table width="775" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr> 
    <td width="816"> <table width="750" border="0" align="center" cellpadding="0" cellspacing="0">
        <tr> 
          <td width="100%" valign="top">
            <form method="post" action="login.asp">
<br>
<br>
<br>
<br>
<br>
<br>
<table width="217" border="0" align="center" cellpadding="0" cellspacing="0">
              <tr> 
                    <td width="105" class="style4"><div align="right">Usuário: </div></td>
                    <td width="112" valign="center"> <input name="login" type="text" class="fct1" size="18" maxlength="12"></td>
                  </tr>
                  <tr> 
                    <td class="style4"><div align="right">Senha: </div></td>
                    <td width="112" valign="center"> <input name="senha" type="password" class="fct1" size="18" maxlength="12"></td>
                  </tr>
                  <tr>
                    <td colspan="2"> </td>
                  </tr>
                  <tr> 
                    <td colspan="2">
                        <div align="right">
                          <input name="submit" type="submit" class="fct2" value="Entrar no Sistema">                  
                        </div></td>
                  </tr>
                  <tr>
                    <td colspan="2"><table width="100%" border="0" cellspacing="0" cellpadding="0">
                      <tr>
                        <td width="16%"><div align="center"><img src="../base_rsvp/images/alerta.gif" width="16" height="16"></div></td>
                        <td width="84%"><div align="center" class="style7">Usuário ou senha incorretos ! </div></td>
                      </tr>
                    </table></td>
                  </tr>
              </table>
              <br>
              <br>
              <br>
              <br>
              <br>
              <br>
            </form></td>
        </tr>
      </table></td>
  </tr>
  <tr> 
    <td> </td>
  </tr>
  <tr>
    <td valign="top" class="style7"><div align="center">----------------------------------------------------------------------------------------------------------------------------------------------------------</div></td>
  </tr>
  <tr>
    <td valign="top" class="style5"><div align="center" class="style5">.| SP | ©Copyright |.</div></td>
  </tr>
  <tr>
    <td valign="top" class="style7"><div align="center">----------------------------------------------------------------------------------------------------------------------------------------------------------</div></td>
  </tr>
</table>
</BODY>
</HTML>

<%End If%>

Compartilhar este post

Link para o post
Compartilhar em outros sites

Dee    0

Dee
Postado

você ta rodando tudo na mesma página neh.

Dae quando ele roda a primeira vez ele vai dar erro mesmo, pq as variaveis vao estar vazias. Dae vai dar erro no Select.

Faça assim, aqui na tag do form, poe assim:

 

<form method="post" action="login.asp?acao=login">

Agora antes do select faça isso:

 

<!--#include file="conexao.asp"-->
<%

If(Request.QueryString("acao")) = "login" then
   StrSql = "select * from usuario where login = '" & Request.Form("login") & "' and senha = '" & Request.Form("senha") & "'"
   Set Rs = Server.CreateObject("ADODB.RecordSet")
   Rs.Open StrSql, conn, 3, 3

   If Rs.RecordCount > 0 Then
      Session("cod_usuario")  = Rs("codigo")
      Session("login")                = Rs("login")
      Session("senha")                = Rs("senha")
      Response.Redirect "orcamentos_novos.asp"
   Else
      Response.Write "Login ou Senha Inválidos"
   End If
End If

%>

DETALHE: Tira aquele END IF do final do seu código!

 

Editei meu Post várias vezes! Agora está certo.

Compartilhar este post

Link para o post
Compartilhar em outros sites

Marcelo Pescador    0

Marcelo Pescador
Postado

agodeu outro erro na próxima página: orcamentos_novos.asp.

erro:

ADODB.Recordset error '800a0cb3'

 

Current Recordset does not support bookmarks. This may be a limitation of the provider or of the selected cursortype.

 

/controle_new/orcamentos_novos.asp, line 80

código desta página:

<!--#include file="conexao.asp"-->
<!--#INCLUDE FILE = "config.inc" -->

<%
dim sessao
sessao = Request.QueryString("sessao") 
Session("sessao") = sessao
strsql1="select * from usuario where codigo=" & Session("cod_usuario")
set rs1=Conn.execute(strsql1)
%>

<HTML>
<STYLE type=text/css>
@import url("style.css");
</STYLE>
<HEAD>
<TITLE>Orçamentos Novos</TITLE>

</script>
<style media="print">
.oculta
{
visibility: hidden
}
</style>
</script>

<%
Session.LCID = 1046
Session.TimeOut = 600
%>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</HEAD>
<BODY>
<div align="left"><img src="../base_rsvp/images/banner_painel.jpg" width="754" height="100"><br>
  <br>
  <br>
</div>
<table width="755" border="0" cellpadding="0" cellspacing="0">
  <tr>
    <td width="140" valign="top">
      <!--#INCLUDE FILE = "menu.asp" -->    </td>
    <td width="614" align="center" valign="top"><table width="605" border="1" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFCC66">
        <tr> 
          <td colspan="5" class="style4"><div align="center">..:: Orçamentos Novos ::..</div></td>
        </tr>
        <tr> 
          <td width="36" height="16" class="style4"><div align="center">Orç.</div></td>
          <td width="321" class="style4"><div align="center">Cliente</div></td>
          <td width="84" class="style4"><div align="center">Tipo</div></td>
          <td width="76" class="style4"><div align="center">Data</div></td>
          <td width="76" class="style4"><div align="center">Editar</div></td>
        </tr>
      </table>
      <br> 
      <% 
'----------------- Define o número de registros por página ----------------------------

Const TamanhoPagina = 30 
set rsQuery = Server.CreateObject( "ADODB.RecordSet" ) 

rsQuery.PageSize   = TamanhoPagina 
rsQuery.CacheSize  = TamanhoPagina 
rsQuery.CursorType = 3 
rsQuery.Open"select * from orcamentos order by cod_contrato desc", Conn 

if Session("PaginaAtual") = "" then Session("PaginaAtual") = 1 
select case Request.QueryString( "modo" ) 
       case "proxima" 
            Session("PaginaAtual") = min( Session("PaginaAtual") + 1, rsQuery.PageCount ) 
       case "anterior" 
            Session("PaginaAtual") = max( Session("PaginaAtual") - 1, 1 ) 
       case "pagina" 
            if isNumeric( request.QueryString("numero") ) then 
               Session("PaginaAtual") = cint( request.QueryString("numero") ) 
               Session("PaginaAtual") = max( min( Session("PaginaAtual"), rsQuery.PageCount ), 1 ) 
            end if 
end select 

rsQuery.AbsolutePage = Session("PaginaAtual") 'aqui é a linha 80
cod_contrato=rsQuery("cod_contrato") 
%>
      <table width="605" border="1" align="center" cellpadding="1" cellspacing="0" bordercolor="#666666" bordercolorlight="<%= mainborderlight%>" bordercolordark="<%= mainborderdark%>">
        <tr bordercolor="000000"> 
          <% 
   item  = 1 
   do while item <= TamanhoPagina and not rsQuery.eof 
   cod_contrato=rsQuery("cod_contrato")
	%>
          <% 
      For n = 0 To limite %>
          <%
		Dim n
		n = 0 
		do while n < colNum and NOT rsQuery.eof
		cod_contrato=rsQuery("cod_contrato")
		%>

 

podem me ajudar ??

Compartilhar este post

Link para o post
Compartilhar em outros sites

Dee    0

Dee
Postado

Agora cria outro tópico. owieowieowiew

Só com esse erro. E posta o código e somente a linha 80 Depois. OK ?

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