ai gente, discupa ae, mas nun sei nada....de bd..
qual e o objeto utilizado para buscar informação no banco..
é resquet response session
já vi tudo nada funciona abri conexao fechei, a estrutura já está pronta mas náo funciona...blz....
nelson
Buscando No Bd
Started By nelson, 15/06/2004, 21:04
3 replies to this topic
#2
Jhonathas.net
-
- Usuários
-
- 181 posts
12 Horas
- Sexo:Não informado
Posted 16/06/2004, 00:01
oq vc já tem pronto ?
ja criou a conexao do banco ?
ja criou a conexao do banco ?
Não ajunteis tesouros na terra, onde a traça e a ferrugem tudo consomem e aonde os ladrões minam e roubam;
Mas ajuntai tesouros no céu, onde nem a traça nem a ferrugem consomem, e aonde os ladrões não minam nem roubam.
MT 6 . 19
Jhonathas da Silveira de Matos (UIN: 57422166 / MSN: jhon_asp)
Mas ajuntai tesouros no céu, onde nem a traça nem a ferrugem consomem, e aonde os ladrões não minam nem roubam.
MT 6 . 19
Jhonathas da Silveira de Matos (UIN: 57422166 / MSN: jhon_asp)
#3
vrsbueno
-
- Usuários
-
- 351 posts
Ativo
- Sexo:Não informado
- Localidade:Taubaté-SP
Posted 16/06/2004, 18:22
xiii... assim fica dificil... posta o codigo e a estrutura do bd. 
#4
nelson
-
- Usuários
-
- 403 posts
www.opsbrasil.com.br
- Sexo:Masculino
Posted 16/06/2004, 19:59
defult.asp
<%
Dim SrtMsg, erro
SrtMsg = cstr(Request.QueryString("erro"))
Select Case SrtMsg
Case "1"
erro = "Digite usuário"
Case "2"
erro = "Digite senha"
Case "3"
erro = "Nome de usuário não encontrado."
Case "4"
erro = "Senha incorreta."
Case "5"
erro = "Você não está logado."
end select
%>
<html><head><title>Teste em ASP com DB</title></head>
<table width="97%">
<tr>
<td width="17%" rowspan="4"> </td>
<td colspan="2"><div align="center"></div></td>
</tr>
<tr>
<td colspan="2"><div align="center"><strong><font size="2">Digite abaixo nome
do aluno e senha para acessar a área restrita.</font></strong></div></td>
</tr>
<tr>
<td width="37%"> </td>
<td width="46%"> </td>
</tr>
<tr>
<td colspan="2"><div align="center"><font size="2" face="Arial, Helvetica, sans-serif"><b>
<script language="JavaScript">
CN_Now = new Date();
localtime = CN_Now.toString();
CN_Hours = CN_Now.getHours();
if (CN_Hours < 12) {
document.write("Bom Dia");
} else {
if (CN_Hours >= 12 && CN_Hours < 17) {
document.write("Boa Tarde");
} else {
if (CN_Hours >= 17) {
document.write("Boa Noite");
} else {
document.write("Bom dia");
}
}
}
</script>
</b></font></div></td>
</tr>
</table>
<hr size="1" color="black">
<%if len(SrtMsg) <> 0 then%>
<br>
<font color="red"><%=erro%></font><br><%end if%>
<form action="verificar_usuario.asp" method="POST">
<div align="center">
<table>
<tr>
<td>Aluno::</td>
<td align="right"><input type="text" name="usuario"></td>
</tr>
<tr>
<td>Senha:</td>
<td align="right"><input type="password" name="senha"></td>
</tr>
<tr>
<td align="center" colspan="2"><input type="submit" value="login"></td>
</tr>
</table>
</div>
<hr align="center" size="1" color="black">
</form></body></html>
no banco esta com nome, senha, aluno, matricula etc....como seu recupero essa informação...
conexao com o bd..
<%
Dim ConnDB
Sub AbrirDB()
Set ConnDB = Server.CreateObject("ADODB.Connection")
conexao = "DBQ=" & Server.MapPath("usuarios.mdb")
ConnDB.Open "DRIVER={Microsoft Access Driver (*.mdb)};" & conexao
end sub
Sub FecharDB()
if ConnDB.state = 1 then
ConnDB.Close
Set ConnDB = Nothing
end if
end sub
%>
blz valeww...cara num sei nada...blz:)
<%
Dim SrtMsg, erro
SrtMsg = cstr(Request.QueryString("erro"))
Select Case SrtMsg
Case "1"
erro = "Digite usuário"
Case "2"
erro = "Digite senha"
Case "3"
erro = "Nome de usuário não encontrado."
Case "4"
erro = "Senha incorreta."
Case "5"
erro = "Você não está logado."
end select
%>
<html><head><title>Teste em ASP com DB</title></head>
<table width="97%">
<tr>
<td width="17%" rowspan="4"> </td>
<td colspan="2"><div align="center"></div></td>
</tr>
<tr>
<td colspan="2"><div align="center"><strong><font size="2">Digite abaixo nome
do aluno e senha para acessar a área restrita.</font></strong></div></td>
</tr>
<tr>
<td width="37%"> </td>
<td width="46%"> </td>
</tr>
<tr>
<td colspan="2"><div align="center"><font size="2" face="Arial, Helvetica, sans-serif"><b>
<script language="JavaScript">
CN_Now = new Date();
localtime = CN_Now.toString();
CN_Hours = CN_Now.getHours();
if (CN_Hours < 12) {
document.write("Bom Dia");
} else {
if (CN_Hours >= 12 && CN_Hours < 17) {
document.write("Boa Tarde");
} else {
if (CN_Hours >= 17) {
document.write("Boa Noite");
} else {
document.write("Bom dia");
}
}
}
</script>
</b></font></div></td>
</tr>
</table>
<hr size="1" color="black">
<%if len(SrtMsg) <> 0 then%>
<br>
<font color="red"><%=erro%></font><br><%end if%>
<form action="verificar_usuario.asp" method="POST">
<div align="center">
<table>
<tr>
<td>Aluno::</td>
<td align="right"><input type="text" name="usuario"></td>
</tr>
<tr>
<td>Senha:</td>
<td align="right"><input type="password" name="senha"></td>
</tr>
<tr>
<td align="center" colspan="2"><input type="submit" value="login"></td>
</tr>
</table>
</div>
<hr align="center" size="1" color="black">
</form></body></html>
no banco esta com nome, senha, aluno, matricula etc....como seu recupero essa informação...
conexao com o bd..
<%
Dim ConnDB
Sub AbrirDB()
Set ConnDB = Server.CreateObject("ADODB.Connection")
conexao = "DBQ=" & Server.MapPath("usuarios.mdb")
ConnDB.Open "DRIVER={Microsoft Access Driver (*.mdb)};" & conexao
end sub
Sub FecharDB()
if ConnDB.state = 1 then
ConnDB.Close
Set ConnDB = Nothing
end if
end sub
%>
blz valeww...cara num sei nada...blz:)
0 user(s) are reading this topic
0 membro(s), 0 visitante(s) e 0 membros anônimo(s)
