Ir para conteúdo

POWERED BY:

Arquivado

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

AlexCT

para achar o erro

Por , em ASP Clássico

Recommended Posts

AlexCT    0

AlexCT
Postado

Eu nao sei qual o erro. Pois é umapagina paraexibir os dados de uma tabela do bd

com alternativas para adicionar, alterar e deletar

 

mas nenhuma dela esta funcionando.

 

 

Gostaria de ajuda!

 

password.asp

<%

Set DB = Server.CreateObject("ADODB.Connection")

cnpath="DBQ=" & server.mappath("login.mdb")

DB.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & cnpath

 

listar = "SELECT * FROM users ORDER BY id DESC"

Set lista = DB.Execute(listar)

%>

 

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">

<html>

<head>

<title>Documento sem título</title>

<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">

</head>

 

<body>

<p>Área administrativa</p>

<p>Senhas para Acesso</p>

<p> </p>

<form name="form1" method="post" action="adiciona.asp">

<table width="500" border="0" align="center">

  <tr bgcolor="#DD6F00">

    <td colspan="3"><div align="center"><strong><font color="#FFFFFF">Novas Senhas</font></strong></div>

    </td>

  </tr>

  <tr bgcolor="#FF9900">

    <td width="34%"><div align="center"><strong>Username</strong></div>

    </td>

    <td width="34%"><div align="center"><strong>Password</strong></div>

    </td>

    <td width="32%"><div align="center"></div>

    </td>

  </tr>

  <tr>

    <td><div align="center">

      <input name="uid" type="text" id="uid" size="20">

    </div></td>

    <td><div align="center">

      <input name="pwd" type="text" id="pwd" size="20">

    </div></td>

    <td><div align="center">

        <input name="Adicionar" type="submit" id="Adicionar" value="Adicionar">

          <input name="Desfazer" type="reset" id="Desfazer" value="Desfazer">

      </div></td>

  </tr>

</table>

</form>

<p> </p>

<b>Relação dos Usuários:</b>

<%if lista.EOF then%>

<hr>

Não há senha cadastrados

<%else%>

<%do while NOT lista.EOF%>

<hr>

<form action="altera.asp" method="post">

  <table border="0" cellpadding="0" cellspacing="0" align="left">

    <tr>

      <td> </td>

      <td>

        <div align="right"><strong><font face="arial" size="2">Username: </font></strong></div>

      </td>

      <td> <font face="arial" size="2">

        <input type="text" name="nome" value="<%= lista("uid")%>">

      </font></td>

    </tr>

    <tr>

      <td>  </td>

      <td>

        <div align="right"><strong><font face="arial" size="2">Password: </font></strong></div>

      </td>

      <td> <font face="arial" size="2">

        <input type="text" name="senha" value="<%= lista("pwd")%>">

      </font></td>

    </tr>

    <tr>

      <td> </td>

      <td> </td>

      <td> <font face="arial" size="2">

        <input type="hidden" name="numero" value="<%= lista("id")%>">

      </font></td>

    </tr>

  </table>

  <input name="submit" type="submit" value="Alterar">

  <input type="reset" value="Desfazer" name="reset">

</form>

<form method="post" action="deletar.asp">

  <input type="hidden" name="numero" value="<%= lista("id")%>">

  <input name="submit" type="submit" value="        Deletar        ">

</form>

<p><%lista.MoveNext%> <%loop%> <%end if%><hr>

</body>

</html>

adiciona.asp

<%

Dim uid,pwd,id

uid = replace(request.form("uid"), "'", "''")

pwd = replace(request.form("pwd"), "'", "''")

id = replace(request.form("id"), "'", "''")

 

inserir = "INSERT INTO users (uid,pwd) " & _

"VALUES ('" & uid & "','" & pwd & "')"

DB.Execute(inserir)

response.redirect "password.asp"

%>

altera.asp

<%

Dim uid,pwd,id

uid = replace(request.form("uid"), "'", "''")

pwd = replace(request.form("pwd"), "'", "''")

id = replace(request.form("id"), "'", "''")

 

Set DB = Server.CreateObject("ADODB.Connection")

cnpath="DBQ=" & server.mappath("login.mdb")

DB.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & cnpat

 

alterar = "UPDATE DISTINCTROW users SET uid = '" & uid & "', pwd = '" & pwd & "' WHERE id = '" & (id) & "'"

DB.Execute(alterar)

response.redirect "password.asp"

%>

deletar.asp

<%

Dim uid,pwd,id

Dim uid,pwd,id

uid = replace(request.form("uid"), "'", "''")

pwd = replace(request.form("pwd"), "'", "''")

id = replace(request.form("id"), "'", "''")

 

deletar = "DELETE DISTINCTROW uid, pwd, FROM users WHERE id = " & (id) & ""

DB.Execute(deletar)

response.redirect "password.asp"

%>

Compartilhar este post

Link para o post
Compartilhar em outros sites

wallace20    0

wallace20
Postado

PARA AJUDÁ-LO A ENCONTRAR O ERRO VEJA SE VOCÊ ESTÁ UTILIZANDO O COMANDO OPTION EXPLICIT NO ALTO DA PÁGINA E REPASSE O ERRO PARA NOSOTROS.<%@ Language=VBScript %><% Option Explicit %>

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