
Sistema De Cadastro
#1
Miranda
Posted 01/02/2004, 14:17
Nome:
Nick:
Idade:
Foto:
Ai a pessoa se cadastra e aparece lah
Usuarios do Canal
Nick
Nick
Nick
Nick
..
ai qdo vc clica no nick ve o info... Nome.. Idade.. foto e talz..
a Foto seria a URL e nao um UPLOAD!
#2
Posted 02/02/2004, 01:11
Por exemplo, não sei se é isso que estás perguntando:
EX CANAIS: Jogos, Lazer, Arte
No cadastro dos usuários ponha uma lista para ele escolher, e o no banco de dados crie na tabela do cadastro uma coluna com o nome canal
Daí, é só filtrar os usuários pelo canal.
Por exemplo, entro na seção de Lazer.
Vc poe uma conecção com o BD, e ordena por id descendentemente quantos vc quer e etc (todos que tenham escolhido o lazer).
Não sei se é isso que vc quer saber ou se vc entendeu.
Minhas intensões foram as melhores possíveis, abraços!
#3
Miranda
Posted 02/02/2004, 09:55
po vc falando assim eu nao entendo.. tem como passar o codigo?
#4
Posted 02/02/2004, 13:05
Ninguem vai te passar codigo algum, aki funciona assim: Vai a luta!
hheheheeheheheh
mas eh o seguinte
1° vc tem que criar um BANCO DE DADOS (pode ser access mesmo) e fazer uma tabela com os dados q vc qr
ex:
Nome:
Nick:
Idade:
Foto:
depois vc faz um codigo .asp onde ele envia essas informações para o banco de dados
e por ultimo faz mais um codigo .asp ond ele busca os nicks do banco de dados
eh soh isso!
Eh o seguinte, no momento eu to meio sem tempo, mas se vc puder esperar um pouco, entre em contato comigo q eu faço isso pra vc
pode ser?
se quiser eh soh falar comigo q eu te ajudo na boa!
$nome = "Flávio Rodrigues";
$site = "http://www.expresso.com.br";
$idade = "21";
?>
nada é uma palavra esperando tradução...
#5
Posted 03/02/2004, 13:23
eu demorei pra fazer pois estava na praia, dae soh deu tempo de fazer agora a tarde!
Eh o seguinte
eu fiz uma pasta assim:
C:\Inetpub\wwwroot\wmonline
e todos os arquivos estao dentro deste diretorio!
portanto, se vc usar IIS ou PWS, eh soh colocar os arquivos dentro deste caminho q eles vao funcionar certinho!
mas se vc nao usar e quiser colocar direto na web eh o seguinte!
vc vai ter q alterar esta linha dentro dos arquivos .asp
BANCO.open "Driver={microsoft access driver (*.mdb)};dbq=C:\Inetpub\wwwroot\wmonline\banco.mdb"
note q o caminho C:\Inetpub\wwwroot\wmonline\banco.mdb é o mesmo da pasta q falei lah em cima
dae eh soh vc descobrir o caminho da pasta onde estao os arquivos e pronto
altere apenas o caminho!
Falow!
Attached Files
$nome = "Flávio Rodrigues";
$site = "http://www.expresso.com.br";
$idade = "21";
?>
nada é uma palavra esperando tradução...
#6
Miranda
Posted 03/02/2004, 14:19
BANCO.open "Driver={microsoft access driver (*.mdb)};dbq=www.libihost.net/chamex/cadastro/banco.mdb"
???
#7
Posted 03/02/2004, 14:28
faz assim!
BANCO.open ="DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("banco.mdb")
ou
BANCO.open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("banco.mdb")
$nome = "Flávio Rodrigues";
$site = "http://www.expresso.com.br";
$idade = "21";
?>
nada é uma palavra esperando tradução...
#8
Posted 04/02/2004, 09:55
jah conseguiu fazer funcionar?
$nome = "Flávio Rodrigues";
$site = "http://www.expresso.com.br";
$idade = "21";
?>
nada é uma palavra esperando tradução...
#9
Miranda
Posted 04/02/2004, 18:28
Que devo fazer.. deve ter algo errado.. ou esse comando q vc mando eu por no lugar ta me complicando =/
#10
Posted 04/02/2004, 18:29
Um abraço,
t+
#11
Miranda
Posted 04/02/2004, 18:47
cadastra.asp
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
SET BANCO = SERVER.CREATEOBJECT("ADODB.CONNECTION")
BANCO.open ="DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("banco.mdb")
vnome=Request.Form("nome")
vnick=Request.Form("nick")
vidade=Request.Form("idade")
vfoto=Request.Form("foto")
set rs = BANCO.execute("insert into cadastro(nome,nick,idade,foto)values('"&vnome&"','"&vnick&"','"&vidade&"','"&vfoto&"')")
%>
<html>
<head>
<title>Cadastro</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><div align="center"><a href="cadastrar.asp">Cadastrar</a></div></td>
<td><div align="center"></div></td>
<td><div align="center"><a href="listar.asp">Listar</a></div></td>
</tr>
<tr>
<td width="36%"><div align="center"></div></td>
<td width="29%"><div align="center">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><strong>Nome:</strong> <%=(vnome)%></td>
<td> </td>
</tr>
<tr>
<td><strong>Nick:</strong> <%=(vnick)%></td>
<td> </td>
</tr>
<tr>
<td><strong>Data Nascimento:</strong> <%=(vidade)%></td>
<td> </td>
</tr>
<tr>
<td><strong>Foto:</strong> <img src="<%=(vfoto)%>"></td>
<td> </td>
</tr>
<tr>
<td><div align="right"> </div>
</td>
<td> </td>
</tr>
</table>
<br>
<strong>Os dados acima foram cadastrados com sucesso!</strong><br>
<br>
<br>
</div></td>
<td width="35%"><div align="center"></div></td>
</tr>
</table>
</body>
</html>
cadastrar.asp
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<html>
<head>
<title>Cadastro</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><div align="center"><a href="cadastrar.asp">Cadastrar</a></div></td>
<td><div align="center"></div></td>
<td><div align="center"><a href="listar.asp">Listar</a></div></td>
</tr>
<tr>
<td width="36%"><div align="center"></div></td>
<td width="29%"><div align="center">
<table width="100%" border="0" cellspacing="0" cellpadding="0"><br>
<form action="cadastra.asp" method="post">
<tr>
<td>Nome:</td>
<td><input name="nome" type="text" id="nome" size="50" maxlength="120">
</td>
</tr>
<tr>
<td>Nick:</td>
<td><input name="nick" type="text" id="nick" maxlength="50"> </td>
</tr>
<tr>
<td>Data Nascimento:</td>
<td><input name="idade" type="text" id="idade" size="12" maxlength="10">
</td>
</tr>
<tr>
<td>Foto: </td>
<td><input name="foto" type="text" id="foto" size="50" maxlength="220"></td>
</tr>
<tr>
<td><div align="right">
<input type="reset" name="Submit" value="Limpar">
</div>
</td>
<td><input type="submit" name="Submit2" value="Enviar">
</td>
</tr>
</form>
</table>
<br>
<br>
<br>
<br>
</div></td>
<td width="35%"><div align="center"></div></td>
</tr>
</table>
</body>
</html>
listar.asp
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
SET BANCO = SERVER.CREATEOBJECT("ADODB.CONNECTION")
BANCO.open ="DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("banco.mdb")
%>
<html>
<head>
<title>Cadastro</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><div align="center"><a href="cadastrar.asp">Cadastrar</a></div></td>
<td><div align="center"></div></td>
<td><div align="center"><a href="listar.asp">Listar</a></div></td>
</tr>
<tr>
<td width="36%"><div align="center"></div></td>
<td width="29%"><div align="center">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><div align="center">Usuários do Canal</div></td>
</tr>
</table>
<%
SET TAB=server.createobject("adodb.recordset")
TAB.open "Select * from Cadastro order by nick", BANCO,3,2
if tab.recordcount=0 then
Response.write "Desculpe, mas não existem nicks cadastrados."
else
%>
<table border="0">
<% Tab.movefirst
do while not tab.eof %>
<!--excute enquanto náo for final de arquivo-->
<tr>
<td><B><a href=user.asp?id=<%=tab("id")%>><%=tab("nick")%></a></B><br> </td>
</tr>
<% Tab.movenext
Loop %>
</Table>
<%
End if
%>
<br>
<br>
<br>
</div></td>
<td width="35%"><div align="center"></div></td>
</tr>
</table>
</body>
</html>
user.asp
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
SET BANCO = SERVER.CREATEOBJECT("ADODB.CONNECTION")
BANCO.open ="DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("banco.mdb")
SET TAB=server.createobject("adodb.recordset")
TAB.open "Select * from Cadastro WHERE id ="&Request.QueryString("id")&"", BANCO,3,2
if tab.recordcount=0 then
Response.write "Desculpe, mas este usuário nao existe."
else
%>
<html>
<head>
<title>Cadastro</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><div align="center"><a href="cadastrar.asp">Cadastrar</a></div></td>
<td><div align="center"></div></td>
<td><div align="center"><a href="listar.asp">Listar</a></div></td>
</tr>
<tr>
<td width="36%"><div align="center"></div></td>
<td width="29%"><div align="center">
<table width="100%" border="0" cellspacing="0" cellpadding="0"><br>
<tr>
<td><strong>Nome:</strong> <%=TAB("nome")%></td>
<td> </td>
</tr>
<tr>
<td><strong>Nick:</strong> <%=TAB("nick")%></td>
<td> </td>
</tr>
<tr>
<td><strong>Data Nascimento:</strong> <%=TAB("idade")%></td>
<td> </td>
</tr>
<tr>
<td><strong>Foto:</strong> <img src="<%=TAB("foto")%>"></td>
<td> </td>
</tr>
<tr>
<td><div align="right"> </div>
</td>
<td> </td>
</tr>
<%
end if
%>
</table>
<br>
<br>
<br>
<br>
</div></td>
<td width="35%"><div align="center"></div></td>
</tr>
</table>
</body>
</html>
#12
Posted 05/02/2004, 08:23
eu passei esses codigos pra vc e aki funcionou certinho!
veja o tipo de erro e poste aki, pois na minha maquina nao deu erro algum!
Falow!
$nome = "Flávio Rodrigues";
$site = "http://www.expresso.com.br";
$idade = "21";
?>
nada é uma palavra esperando tradução...
#13
Miranda
Posted 05/02/2004, 11:56
www.libihost.net/chamex/cadastro/cadastrar.asp
Edição feita por: Miranda, 05/02/2004, 11:56.
#14
Posted 05/02/2004, 12:20
na 4 linha do seu codigo em listar.asp esta escrito:
BANCO.open ="DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("banco.mdb")
note q o & nao deve se colocado ai.. isso soh funciona no html...
se vc subistituir pelo & vai funcionar..
ficando assim:
BANCO.open ="DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("banco.mdb")
Um abraço,
t+
#15
Miranda
Posted 05/02/2004, 14:21
1 user(s) are reading this topic
0 membro(s), 1 visitante(s) e 0 membros anônimo(s)