zanelati2002's Content
There have been 101 items by zanelati2002 (Search limited from 29/04/2023)
#95694 Sistema De Autenticação
Posted by
on 10/05/2003, 15:49
in
ASP
Onde posso achar um codigo em asp que autentique o usuario e mostre seu login tipo no momento você está lodago como: e o nome do user
#104875 Como Fazer Isto
Posted by
on 24/05/2003, 15:26
in
ASP
alguem conhece algum codigo em asp que eu possa fazer um sitema simples de cadastro depois o user se loga e aparece o nome dele logado como nos vemos nos mais belos sites
#105938 Tirem A Minha Duvida
Posted by
on 25/05/2003, 16:42
in
ASP
Consegui um codigo de login e cadastro mais como que eu faço para tirar os icon não colocar pois a pagina passa por um filtro
nome do codigo phils_login a pagina de cadastro se chama signupform a pagina do filtro para saber se esta faltando algo isto que eu queria mudar pois já tentei mudar e não dá certo a pagina chama signupprocess não sei se deu para entender este codigo na pagina de cadastro ele tem um icons meu feio gostaria de tirar mais para isto a pagina do filtro tem que ser mudado como faço isto
nome do codigo phils_login a pagina de cadastro se chama signupform a pagina do filtro para saber se esta faltando algo isto que eu queria mudar pois já tentei mudar e não dá certo a pagina chama signupprocess não sei se deu para entender este codigo na pagina de cadastro ele tem um icons meu feio gostaria de tirar mais para isto a pagina do filtro tem que ser mudado como faço isto
#88054 Login + Cadastro
Posted by
on 30/04/2003, 00:32
in
ASP
Gostaria de fazer em asp, um sistema de cadastro +login mais gostaria de usar meus formularios alguem me ajude a fazer esta transformação
o login o formulario é este
e o cadastro o formulario é este
Não sei fazer as modificações em asp se alguem for perito nesta programção me ajude
o login o formulario é este
</head> <body link="#696969" vlink="#696969" alink="#696969" background="images/fundo3.gif"> <center> <form name="login"> <div align="center"> <center> <table border="0" width="104%" cellspacing="0" cellpadding="0" bgcolor="#000000" height="24"> <tr> <td width="9%" height="24"><img border="0" src="login/modoseguro.gif" width="140" height="25"></td> <td width="4%" height="24"><font color="#FFFFFF" face="verdana" size="1"><b>Login:</b></font></td> <td width="14%" height="24"><font size="1" face="Verdana" color="#000000"> <input name="username" size="10"></font></td> <td width="9%" height="24"> </td> <td width="8%" height="24"><font color="#FFFFFF" face="verdana" size="1"><b>Senha:</b></font></td> </center> <td width="14%" height="24"><font size="1" face="Verdana" color="#000000"> <input name="password" type="password" value size="10"></font></td> <td width="10%" height="24"> <p align="center"> </p> </td> <center> <td width="44%" height="24"><font size="1" face="Verdana" color="#000000"><input onclick="Login()" type="button" value="Login" style="font-family: Verdana"> <a href="logado.asp" target="x"><img border="0" src="login/cadastro.gif" width="93" height="17"></a></font></td> </tr> </table> </center> </div> </form> </center> </body> </html>
e o cadastro o formulario é este
<!-- INICIO do cadastro -->
<script>
function Verificar()
{
if (!document.email.Icq.value)
{
alert("Por favor digite o Numero do seu ICQ");
email.Icq.focus();
return(false)
}
if (!document.email.Nome.value)
{
alert("Por favor digite o seu nome");
email.Nome.focus();
return(false)
}
if (!document.email.Email.value)
{
alert("Por favor digite o seu email");
email.Email.focus();
return(false)
}
if (!document.email.sexo.value)
{
alert("Por favor digite o seu sexo");
email.sexo.focus();
return(false)
}
if (!document.email.Idade.value)
{
alert("Por favor digite a sua idade");
email.Idade.focus();
return(false)
}
if (!document.email.Nascimento.value)
{
alert("Por favor digite a sua data de Nascimento DD/MM/AAAA");
email.Nascimento.focus();
return(false)
}
if (!document.email.Cidade.value)
{
alert("Por favor digite a sua Cidade");
email.Cidade.focus();
return(false)
}
if (!document.email.Estado.value)
{
alert("Por favor digite o seu Estado");
email.Estado.focus();
return(false)
}
if (!document.email.Profissao.value)
{
alert("Por favor digite a sua Profissão");
email.Profissao.focus();
return(false)
}
if (!document.email.SitePessoal.value)
{
alert("Por favor digite o seu Site");
email.SitePessoal.focus();
return(false)
}
if (!document.email.Figura.value)
{
alert("Por favor escolha uma figura! Caso não queira coloque 99.gif");
email.Figura.focus();
return(false)
}
}
</SCRIPT>
<script language=JavaScript>
function dolls() {
window.open('dolls.asp','DOLLS', 'width=300, height=,300, top=01, left=01, toolbar=no, location=no, directories=no, status=no, menubar=no, scrollbars=yes, resizable=no, fullscreen=no');
{document.email.Figura.value="";}}
</SCRIPT>
<CENTER>
<TABLE borderColor=#111111 cellPadding=0 cellSpacing=0
style="BORDER-COLLAPSE: collapse" width="100%">
<TBODY>
<TR>
<TD height=0
style="FONT-FAMILY: Tahoma, Verdana; FONT-SIZE: 8pt"
width="100%">
<FORM action=http://unix.wmonline.com.br/formmail/formmail.php id=form1 method=post name=email
onsubmit="return Verificar();" target="_blank">
<DIV align=center>
<TABLE borderColor=#111111 cellPadding=2
height=69 style="BORDER-COLLAPSE: collapse" width="100%">
<TBODY>
<TR>
<TD height=15
style="FONT-FAMILY: Tahoma, Verdana; FONT-SIZE: 8pt"
width="50%"><FONT face=Verdana size="1"> </FONT></TD>
<TD height=15
style="FONT-FAMILY: Tahoma, Verdana; FONT-SIZE: 8pt"
width="50%"><font face="Verdana" size="1"> </font></TD></TR>
<TR>
<TD colSpan=2 height=15
style="FONT-FAMILY: Tahoma, Verdana; FONT-SIZE: 8pt"
width="100%">
<P align=center><B><FONT face=Verdana size="1">INFORMAÇÕES SOBRE
O USUÁRIO</FONT></B></P></TD></TR>
<TR>
<TD align=right height=10
style="FONT-FAMILY: Tahoma, Verdana; FONT-SIZE: 8pt"
width="50%"></TD>
<TD height=10
style="FONT-FAMILY: Tahoma, Verdana; FONT-SIZE: 8pt"
width="50%"></TD></TR>
<TR>
<TD align=right height=26
style="FONT-FAMILY: Tahoma, Verdana; FONT-SIZE: 8pt"
width="50%"><font face="Verdana" size="1">ICQ<B><FONT
color=#ff0000>*</FONT></B> </font></TD>
<TD height=26
style="FONT-FAMILY: Tahoma, Verdana; FONT-SIZE: 8pt"
width="50%"><font face="Verdana" size="1"><!--webbot bot="Validation" S-Data-Type="Number" S-Number-Separators=",." B-Value-Required="TRUE" I-Minimum-Length="9" I-Maximum-Length="12" --><INPUT class=campo maxLength=12
name=Icq size="20"></font></TD></TR>
<TR>
<TD align=right height=26
style="FONT-FAMILY: Tahoma, Verdana; FONT-SIZE: 8pt"
width="50%"><font face="Verdana" size="1">Nome
Completo:<FONT color=#ff0000
face=Verdana>*</FONT></font></TD>
<TD height=26
style="FONT-FAMILY: Tahoma, Verdana; FONT-SIZE: 8pt"
width="50%"><font face="Verdana" size="1"><INPUT class=campo maxLength=50
name=Nome></font></TD></TR>
<TR>
<TD align=right height=26
style="FONT-FAMILY: Tahoma, Verdana; FONT-SIZE: 8pt"
width="50%"><font face="Verdana" size="1">E-mail:<FONT
color=#ff0000 face=Verdana>*</FONT></font></TD>
<TD height=26
style="FONT-FAMILY: Tahoma, Verdana; FONT-SIZE: 8pt"
width="50%"><font face="Verdana" size="1"><INPUT class=campo maxLength=100
name=Email></font></TD></TR>
<TR>
<TD align=right height=26
style="FONT-FAMILY: Tahoma, Verdana; FONT-SIZE: 8pt"
width="50%"><font face="Verdana" size="1">Sexo:<FONT
color=#ff0000 face=Verdana>*</FONT></font></TD>
<TD height=26
style="FONT-FAMILY: Tahoma, Verdana; FONT-SIZE: 8pt"
width="50%"><font face="Verdana" size="1"><SELECT class=campo name=sexo size=1>
<OPTION selected value=M>Masculino</OPTION> <OPTION
value=F>Feminino</OPTION></SELECT></font></TD></TR>
<TR>
<TD align=right height=26
style="FONT-FAMILY: Tahoma, Verdana; FONT-SIZE: 8pt"
width="50%"><font face="Verdana" size="1">Idade:<FONT
color=#ff0000 face=Verdana>*</FONT></font></TD>
<TD height=26
style="FONT-FAMILY: Tahoma, Verdana; FONT-SIZE: 8pt"
width="50%"><font face="Verdana" size="1"><INPUT class=campo maxLength=2 name=Idade
size=5></font></TD></TR>
<TR>
<TD align=right height=26
style="FONT-FAMILY: Tahoma, Verdana; FONT-SIZE: 8pt"
width="50%"><font face="Verdana" size="1">Data de
Nascimento:<FONT color=#ff0000
face=Verdana>*</FONT></font></TD>
<TD height=26
style="FONT-FAMILY: Tahoma, Verdana; FONT-SIZE: 8pt"
width="50%"><font face="Verdana" size="1"><INPUT class=campo maxLength=100
name=Nascimento size=15> DD/MM/AAAA</font></TD></TR>
<TR>
<TD align=right height=26
style="FONT-FAMILY: Tahoma, Verdana; FONT-SIZE: 8pt"
width="50%"><font face="Verdana" size="1">Estado:<FONT
color=#ff0000 face=Verdana>*</FONT></font></TD>
<TD height=26
style="FONT-FAMILY: Tahoma, Verdana; FONT-SIZE: 8pt"
width="50%"><FONT color=#999900 face="Verdana" size="1"><SELECT class=campo
name=Estado size=1> <OPTION value=AC>Acre</OPTION>
<OPTION value=AL>Alagoas</OPTION> <OPTION
value=AP>Amapa</OPTION> <OPTION
value=AM>Amazonas</OPTION> <OPTION
value=BA>Bahia</OPTION> <OPTION
value=CE>Ceará</OPTION> <OPTION value=DF>Distrito
Federal</OPTION> <OPTION value=ES>Espírito
Santo</OPTION> <OPTION value=GO>Goias</OPTION> <OPTION
value=MA>Maranhão</OPTION> <OPTION value=MT>Mato
Grosso</OPTION> <OPTION value=MS>Mato G. do
Sul</OPTION> <OPTION value=MG>Minas Gerais</OPTION>
<OPTION value=PA>Pará</OPTION> <OPTION
value=PB>Paraíba</OPTION> <OPTION
value=PR>Paraná</OPTION> <OPTION
value=PE>Pernambuco</OPTION> <OPTION
value=PI>Piauí</OPTION> <OPTION value=RJ>Rio de
Janeiro</OPTION> <OPTION value=RN>Rio G. do
Norte</OPTION> <OPTION value=RS>Rio G. do Sul</OPTION>
<OPTION value=RO>Rondônia</OPTION> <OPTION
value=RR>Roraima</OPTION> <OPTION value=SC>Santa
Catarina</OPTION> <OPTION value=SP>São Paulo</OPTION>
<OPTION value=SE>Sergipe</OPTION> <OPTION
value=TO>Tocantins</OPTION> <OPTION
value=EX>Exterior</OPTION> <OPTION selected>Click
Aqui</OPTION></SELECT></FONT></TD></TR>
<TR>
<TD align=right height=26
style="FONT-FAMILY: Tahoma, Verdana; FONT-SIZE: 8pt"
width="50%"><font face="Verdana" size="1">Cidade:<FONT
color=#ff0000 face=Verdana>*</FONT></font></TD>
<TD height=26
style="FONT-FAMILY: Tahoma, Verdana; FONT-SIZE: 8pt"
width="50%"><font face="Verdana" size="1"><INPUT class=campo maxLength=50
name=Cidade></font></TD></TR>
<TR>
<TD align=right height=26
style="FONT-FAMILY: Tahoma, Verdana; FONT-SIZE: 8pt"
width="50%"><font face="Verdana" size="1">Profissão:<FONT
color=#ff0000 face=Verdana>*</FONT></font></TD>
<TD height=26
style="FONT-FAMILY: Tahoma, Verdana; FONT-SIZE: 8pt"
width="50%"><font face="Verdana" size="1"><INPUT class=campo maxLength=50
name=Profissao></font></TD></TR>
<TR>
<TD align=right height=26
style="FONT-FAMILY: Tahoma, Verdana; FONT-SIZE: 8pt"
width="50%"><font face="Verdana" size="1">Site Pessoal:<FONT
color=#ff0000 face=Verdana>*</FONT></font></TD>
<TD height=26
style="FONT-FAMILY: Tahoma, Verdana; FONT-SIZE: 8pt"
width="50%"><font face="Verdana" size="1"><INPUT class=campo maxLength=50
name=SitePessoal value=http://></font></TD></TR>
<tr>
<TD align=right height=26
style="FONT-FAMILY: Tahoma, Verdana; FONT-SIZE: 8pt"
width="50%"><FONT face=Verdana size="1">Figura pessoal:
</FONT></TD>
<TD height=26
style="FONT-FAMILY: Tahoma, Verdana; FONT-SIZE: 8pt"
width="50%"><font face="Verdana" size="1"><INPUT class=campo maxLength=6 name=Figura
size=7> <A href="javascript:dolls('dolls.asp');"><FONT
color=#84a2c4>Clique Aqui e veja as
opções</FONT></A></font></TD>
</tr>
</CENTER>
<TR>
<TD height=14
style="FONT-FAMILY: Tahoma, Verdana; FONT-SIZE: 8pt"
width="50%">
<p align="right">Desejo publicar meu cadastro junto aos
outros membros:<font color="#FF0000">*</font></TD>
<CENTER>
<TD height=14
style="FONT-FAMILY: Tahoma, Verdana; FONT-SIZE: 8pt"
width="50%"><FONT color=#000000 face=verdana
size=1><INPUT CHECKED
name=Aceito type=radio value=1>Sim <INPUT
name=N_Aceito type=radio value=0>Não</FONT></TD></TR>
<TR>
<TD colSpan=2 height=1
style="FONT-FAMILY: Tahoma, Verdana; FONT-SIZE: 8pt"
width="100%">
</TD></TR>
<TR>
<TD colSpan=2 height=1
style="FONT-FAMILY: Tahoma, Verdana; FONT-SIZE: 8pt"
width="100%">
<P align=center><FONT face=Verdana size="1"> <B><FONT
color=#ff0000>*</FONT></B> <B>Campos obrigatórios
</B></FONT></P></TD></TR>
</CENTER>
<TR>
<TD height=31
style="FONT-FAMILY: Tahoma, Verdana; FONT-SIZE: 8pt"
width="50%">
<P align=right><font face="Verdana" size="1"><INPUT class=campo name=submit type=submit value=" Cadastrar "></font></P></TD>
<TD height=31
style="FONT-FAMILY: Tahoma, Verdana; FONT-SIZE: 8pt"
width="50%">
<p align="left"><font face="Verdana" size="1"><INPUT class=campo type=reset value="limpar"></font></TD></TR></TBODY></TABLE></DIV>
<CENTER>
<input type="hidden" name="recipient" value="sitedozanelati@ig.com.br"><input type="hidden" name="redirect" value="http://www.sitedozanelati.kit.net/comfirma.asp"></FORM></center></TD></TR></TBODY></TABLE><!-- FIM do cadastro -->
Não sei fazer as modificações em asp se alguem for perito nesta programção me ajude
#114828 Forum Snitz Em Portugues
Posted by
on 08/06/2003, 14:01
in
ASP
alguem sabe
#105602 Cadastro De Icq Em Asp
Posted by
on 25/05/2003, 09:09
in
ASP
Me desculpem amigos do forum a pergunta certa é Ip um codigo que mostras os ips dos user
#105558 Cadastro De Icq Em Asp
Posted by
on 25/05/2003, 05:59
in
ASP
Alguem conhece algum site ou algum codigo que tenha um simples mais legal codigo asp de cadastro de icq
#109251 Cadastro E Login
Posted by
on 31/05/2003, 15:41
in
ASP
amigos não consegui anexar o banco de dados ele se encontra em http://www.sitedozan...t.net/users.mdb é só fazer a copia me ajudem
#109244 Cadastro E Login
Posted by
on 31/05/2003, 15:37
in
ASP
Bom tenho um pagina de cadastro e gostaria de fazer um sitema de autenticação asp, sei que estou pedindo de mais mais é aqui que estou fazendo minha pagina asp com ajude e força de vocês.
E espero que vocês podem me ajudar mais está
o cadastro.asp está embaixo
Sei que é um pouco grande mais me ajudem como faço para fazer com este form uma autenticação de usuarios para meu site o banco de dados está anexo não dei se esta correto mais preciso de ajuda
E espero que vocês podem me ajudar mais está
o cadastro.asp está embaixo
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>Cadastro</title>
<STYLE>A:link {
COLOR: #000000; TEXT-DECORATION: none
}
A:visited {
TEXT-DECORATION: none
}
A:hover {
TEXT-DECORATION: none
}
.menu:link {
COLOR: #ffffff; TEXT-DECORATION: none
}
.menu:visited {
COLOR: #ffffff; TEXT-DECORATION: none
}
.menu:hover {
TEXT-DECORATION: none
}
.smenu:link {
COLOR: #ffffff; TEXT-DECORATION: none
}
.smenu:visited {
COLOR: #ffffff; TEXT-DECORATION: none
}
.smenu:hover {
COLOR: #808080; FONT-WEIGHT: bold; TEXT-DECORATION: none
}
BODY {
FONT-FAMILY: Tahoma, Verdana; FONT-SIZE: 8pt
}
BODY {
SCROLLBAR-FACE-COLOR: #efefef
}
BODY {
SCROLLBAR-SHADOW-COLOR: #efefef
}
BODY {
SCROLLBAR-HIGHLIGHT-COLOR: #efefef
}
BODY {
SCROLLBAR-3DLIGHT-COLOR: #efefef
}
BODY {
SCROLLBAR-DARKSHADOW-COLOR: #000000
}
BODY {
SCROLLBAR-TRACK-COLOR: #ffffff
}
BODY {
SCROLLBAR-ARROW-COLOR: #000000
}
TD {
FONT-FAMILY: Tahoma, Verdana; FONT-SIZE: 8pt
}
.campo {
BACKGROUND-COLOR: #f7f7f7; BORDER-BOTTOM-WIDTH: 1px; BORDER-LEFT-WIDTH: 1px; BORDER-RIGHT-WIDTH: 1px; BORDER-TOP-WIDTH: 1px; COLOR: black; FONT-FAMILY: Tahoma, Verdana; FONT-SIZE: 8pt
}
.botao {
BACKGROUND-COLOR: #e8e8e8; BORDER-BOTTOM-COLOR: #ffffff; BORDER-BOTTOM-WIDTH: 1px; BORDER-LEFT-COLOR: #ffffff; BORDER-LEFT-WIDTH: 1px; BORDER-RIGHT-COLOR: #ffffff; BORDER-RIGHT-WIDTH: 1px; BORDER-TOP-COLOR: #ffffff; BORDER-TOP-WIDTH: 1px; COLOR: black; FONT-FAMILY: Tahoma, Verdana; FONT-SIZE: 8pt
}
.texto {
COLOR: black; FONT-FAMILY: Verdana, arial; FONT-SIZE: 8pt
}
.input1 {
BACKGROUND-COLOR: #e8e8e8; BORDER-BOTTOM-WIDTH: 1px; BORDER-LEFT-WIDTH: 1px; BORDER-RIGHT-WIDTH: 1px; BORDER-TOP-WIDTH: 1px; COLOR: black; FONT-FAMILY: Tahoma, Verdana; FONT-SIZE: 8pt
}
.input2 {
BACKGROUND-COLOR: #ffffff; BORDER-BOTTOM-WIDTH: 1px; BORDER-LEFT-WIDTH: 1px; BORDER-RIGHT-WIDTH: 1px; BORDER-TOP-WIDTH: 1px; COLOR: black; FONT-FAMILY: Tahoma, Verdana; FONT-SIZE: 8pt
}
.textarea1 {
BACKGROUND-COLOR: #ffffff; BORDER-BOTTOM-WIDTH: 1px; BORDER-LEFT-WIDTH: 1px; BORDER-RIGHT-WIDTH: 1px; BORDER-TOP-WIDTH: 1px; COLOR: black; FONT-FAMILY: Tahoma, Verdana; FONT-SIZE: 8pt
}
.textarea2 {
BACKGROUND-COLOR: #e8e8e8; BORDER-BOTTOM-WIDTH: 1px; BORDER-LEFT-WIDTH: 1px; BORDER-RIGHT-WIDTH: 1px; BORDER-TOP-WIDTH: 1px; COLOR: black; FONT-FAMILY: Tahoma, Verdana; FONT-SIZE: 8pt
}
</STYLE>
</head>
<body>
<p><!-- INICIO do cadastro -->
<script>
function Verificar()
{
if (!document.email.icq.value)
{
alert("Por favor insire o numero de seu ICQ");
email.icq.focus();
return(false)
}
if (!document.email.usuario.value)
{
alert("Por favor insire o seu NickName");
email.NickName.focus();
return(false)
}
if (!document.email.Senha.value)
{
alert("Por favor insire a sua Senha");
email.Senha.focus();
return(false)
}
if (!document.email.Senha2.value)
{
alert("Por favor re-digite a sua senha");
email.Senha2.focus();
return(false)
}
if (!document.email.Nome.value)
{
alert("Por favor digite o seu nome");
email.Nome.focus();
return(false)
}
if (!document.email.Email.value)
{
alert("Por favor digite o seu email");
email.Email.focus();
return(false)
}
if (!document.email.sexo.value)
{
alert("Por favor digite o seu sexo");
email.sexo.focus();
return(false)
}
if (!document.email.Idade.value)
{
alert("Por favor digite a sua idade");
email.Idade.focus();
return(false)
}
if (!document.email.Nascimento.value)
{
alert("Por favor digite a sua data de Nascimento DD/MM/AAAA");
email.Nascimento.focus();
return(false)
}
if (!document.email.Cidade.value)
{
alert("Por favor digite a sua Cidade");
email.Cidade.focus();
return(false)
}
if (!document.email.Estado.value)
{
alert("Por favor digite o seu Estado");
email.Estado.focus();
return(false)
}
if (!document.email.Profissao.value)
{
alert("Por favor digite a sua Profissão");
email.Profissao.focus();
return(false)
}
if (!document.email.SitePessoal.value)
{
alert("Por favor digite o seu Site");
email.SitePessoal.focus();
return(false)
}
}
</SCRIPT>
<CENTER>
<TABLE borderColor=#111111 cellPadding=0 cellSpacing=0
style="BORDER-COLLAPSE: collapse" width="100%">
<TBODY>
<TR>
<TD height=0
style="FONT-FAMILY: Tahoma, Verdana; FONT-SIZE: 8pt"
width="100%">
<FORM action=novo_cadastro.asp method=post name=login
onsubmit="return Verificar();">
<DIV align=center>
<CENTER>
<TABLE borderColor=#111111 cellPadding=0 cellSpacing=0
height=665 style="BORDER-COLLAPSE: collapse" width="55%">
<TBODY>
<TR>
<TD colSpan=2 height=30
style="FONT-FAMILY: Tahoma, Verdana; FONT-SIZE: 8pt"
width="100%">
<p align="center"><b><font color="#84a2c4" face="Verdana" size="2">Fique
Membro do Site...</font></b>
</TD></TR>
<TR>
<TD height=15
style="FONT-FAMILY: Tahoma, Verdana; FONT-SIZE: 8pt"
width="50%"></TD>
<TD height=15
style="FONT-FAMILY: Tahoma, Verdana; FONT-SIZE: 8pt"
width="50%"></TD></TR>
<TR>
<TD colSpan=2 height=15
style="FONT-FAMILY: Tahoma, Verdana; FONT-SIZE: 8pt"
width="100%">
<P align=center><B><FONT face=Verdana>INFORMAÇÕES DO
LOGIN</FONT></B></P></TD></TR>
<TR>
<TD align=right height=13
style="FONT-FAMILY: Tahoma, Verdana; FONT-SIZE: 8pt"
width="50%"></TD>
<TD height=13
style="FONT-FAMILY: Tahoma, Verdana; FONT-SIZE: 8pt"
width="50%"></TD></TR>
<TR>
<TD align=right height=26
style="FONT-FAMILY: Tahoma, Verdana; FONT-SIZE: 8pt"
width="50%"><FONT face=Verdana>ICQ:</FONT><FONT
color=#ff0000 face=Verdana>*</FONT></TD>
<TD height=26
style="FONT-FAMILY: Tahoma, Verdana; FONT-SIZE: 8pt"
width="50%"><INPUT class=campo maxLength=10 name=icq
onblur="this.className='input1';"
onfocus="this.className='input2';" size=10> </TD></TR>
<TR>
<TD align=right height=26
style="FONT-FAMILY: Tahoma, Verdana; FONT-SIZE: 8pt"
width="50%"><FONT face=Verdana>Nome de
Usuário:</FONT><FONT color=#ff0000
face=Verdana>*</FONT></TD>
<TD height=26
style="FONT-FAMILY: Tahoma, Verdana; FONT-SIZE: 8pt"
width="50%"><INPUT class=campo maxLength=25 name=usuario
onblur="this.className='input1';"
onfocus="this.className='input2';"></TD></TR>
<TR>
<TD align=right height=26
style="FONT-FAMILY: Tahoma, Verdana; FONT-SIZE: 8pt"
width="50%"><FONT face=Verdana>Senha:</FONT><FONT
color=#ff0000 face=Verdana>*</FONT></TD>
<TD height=26
style="FONT-FAMILY: Tahoma, Verdana; FONT-SIZE: 8pt"
width="50%"><INPUT class=campo maxLength=8 name=Senha
onblur="this.className='input1';"
onfocus="this.className='input2';" size=10
type=password></TD></TR>
<TR>
<TD align=right height=26
style="FONT-FAMILY: Tahoma, Verdana; FONT-SIZE: 8pt"
width="50%"><FONT face=Verdana>Confirme
Senha:</FONT><FONT color=#ff0000
face=Verdana>*</FONT></TD>
<TD height=26
style="FONT-FAMILY: Tahoma, Verdana; FONT-SIZE: 8pt"
width="50%"><INPUT class=campo maxLength=8 name=Senha2
onblur="this.className='input1';"
onfocus="this.className='input2';" size=10
type=password></TD></TR>
<TR>
<TD height=15
style="FONT-FAMILY: Tahoma, Verdana; FONT-SIZE: 8pt"
width="50%"></TD>
<TD height=15
style="FONT-FAMILY: Tahoma, Verdana; FONT-SIZE: 8pt"
width="50%"></TD></TR>
<TR>
<TD height=15
style="FONT-FAMILY: Tahoma, Verdana; FONT-SIZE: 8pt"
width="50%"><FONT face=Verdana> </FONT></TD>
<TD height=15
style="FONT-FAMILY: Tahoma, Verdana; FONT-SIZE: 8pt"
width="50%"> </TD></TR>
<TR>
<TD colSpan=2 height=15
style="FONT-FAMILY: Tahoma, Verdana; FONT-SIZE: 8pt"
width="100%">
<P align=center><B><FONT face=Verdana>INFORMAÇÕES SOBRE
O USUÁRIO</FONT></B></P></TD></TR>
<TR>
<TD align=right height=10
style="FONT-FAMILY: Tahoma, Verdana; FONT-SIZE: 8pt"
width="50%"></TD>
<TD height=10
style="FONT-FAMILY: Tahoma, Verdana; FONT-SIZE: 8pt"
width="50%"></TD></TR>
<TR>
<TD align=right height=26
style="FONT-FAMILY: Tahoma, Verdana; FONT-SIZE: 8pt"
width="50%"><FONT face=Verdana>Nome
Completo:</FONT><FONT color=#ff0000
face=Verdana>*</FONT></TD>
<TD height=26
style="FONT-FAMILY: Tahoma, Verdana; FONT-SIZE: 8pt"
width="50%"><INPUT class=campo maxLength=50 name=Nome
onblur="this.className='input1';"
onfocus="this.className='input2';"></TD></TR>
<TR>
<TD align=right height=26
style="FONT-FAMILY: Tahoma, Verdana; FONT-SIZE: 8pt"
width="50%"><FONT face=Verdana>E-mail:</FONT><FONT
color=#ff0000 face=Verdana>*</FONT></TD>
<TD height=26
style="FONT-FAMILY: Tahoma, Verdana; FONT-SIZE: 8pt"
width="50%"><INPUT class=campo maxLength=100 name=Email
onblur="this.className='input1';"
onfocus="this.className='input2';"></TD></TR>
<TR>
<TD align=right height=26
style="FONT-FAMILY: Tahoma, Verdana; FONT-SIZE: 8pt"
width="50%"><FONT face=Verdana>Sexo:</FONT><FONT
color=#ff0000 face=Verdana>*</FONT></TD>
<TD height=26
style="FONT-FAMILY: Tahoma, Verdana; FONT-SIZE: 8pt"
width="50%"><SELECT class=campo name=sexo
onblur="this.className='input1';"
onfocus="this.className='input2';" size=1> <OPTION
selected value=M>Masculino</OPTION> <OPTION
value=F>Feminino</OPTION></SELECT></TD></TR>
<TR>
<TD align=right height=26
style="FONT-FAMILY: Tahoma, Verdana; FONT-SIZE: 8pt"
width="50%"><FONT face=Verdana>Idade:</FONT><FONT
color=#ff0000 face=Verdana>*</FONT></TD>
<TD height=26
style="FONT-FAMILY: Tahoma, Verdana; FONT-SIZE: 8pt"
width="50%"><INPUT class=campo maxLength=2 name=Idade
onblur="this.className='input1';"
onfocus="this.className='input2';" size=5></TD></TR>
<TR>
<TD align=right height=26
style="FONT-FAMILY: Tahoma, Verdana; FONT-SIZE: 8pt"
width="50%"><FONT face=Verdana>Data de
Nascimento:</FONT><FONT color=#ff0000
face=Verdana>*</FONT></TD>
<TD height=26
style="FONT-FAMILY: Tahoma, Verdana; FONT-SIZE: 8pt"
width="50%"><INPUT class=campo maxLength=100
name=Nascimento onblur="this.className='input1';"
onfocus="this.className='input2';" size=15>
DD/MM/AAAA</TD></TR>
<TR>
<TD align=right height=26
style="FONT-FAMILY: Tahoma, Verdana; FONT-SIZE: 8pt"
width="50%"><FONT face=Verdana>Estado:</FONT><FONT
color=#ff0000 face=Verdana>*</FONT></TD>
<TD height=26
style="FONT-FAMILY: Tahoma, Verdana; FONT-SIZE: 8pt"
width="50%"><FONT color=#999900><SELECT class=campo
name=Estado onblur="this.className='input1';"
onfocus="this.className='input2';" size=1> <OPTION
value=AC>Acre</OPTION> <OPTION
value=AL>Alagoas</OPTION> <OPTION
value=AP>Amapa</OPTION> <OPTION
value=AM>Amazonas</OPTION> <OPTION
value=BA>Bahia</OPTION> <OPTION
value=CE>Ceará</OPTION> <OPTION value=DF>Distrito
Federal</OPTION> <OPTION value=ES>Espírito
Santo</OPTION> <OPTION value=GO>Goias</OPTION> <OPTION
value=MA>Maranhão</OPTION> <OPTION value=MT>Mato
Grosso</OPTION> <OPTION value=MS>Mato G. do
Sul</OPTION> <OPTION value=MG>Minas Gerais</OPTION>
<OPTION value=PA>Pará</OPTION> <OPTION
value=PB>Paraíba</OPTION> <OPTION
value=PR>Paraná</OPTION> <OPTION
value=PE>Pernambuco</OPTION> <OPTION
value=PI>Piauí</OPTION> <OPTION value=RJ>Rio de
Janeiro</OPTION> <OPTION value=RN>Rio G. do
Norte</OPTION> <OPTION value=RS>Rio G. do Sul</OPTION>
<OPTION value=RO>Rondônia</OPTION> <OPTION
value=RR>Roraima</OPTION> <OPTION value=SC>Santa
Catarina</OPTION> <OPTION value=SP>São Paulo</OPTION>
<OPTION value=SE>Sergipe</OPTION> <OPTION
value=TO>Tocantins</OPTION> <OPTION
value=EX>Exterior</OPTION> <OPTION selected>Click
Aqui</OPTION></SELECT></FONT></TD></TR>
<TR>
<TD align=right height=26
style="FONT-FAMILY: Tahoma, Verdana; FONT-SIZE: 8pt"
width="50%"><FONT face=Verdana>Cidade:</FONT><FONT
color=#ff0000 face=Verdana>*</FONT></TD>
<TD height=26
style="FONT-FAMILY: Tahoma, Verdana; FONT-SIZE: 8pt"
width="50%"><INPUT class=campo maxLength=50 name=Cidade
onblur="this.className='input1';"
onfocus="this.className='input2';"></TD></TR>
<TR>
<TD align=right height=26
style="FONT-FAMILY: Tahoma, Verdana; FONT-SIZE: 8pt"
width="50%"><FONT face=Verdana>Profissão:</FONT><FONT
color=#ff0000 face=Verdana>*</FONT></TD>
<TD height=26
style="FONT-FAMILY: Tahoma, Verdana; FONT-SIZE: 8pt"
width="50%"><INPUT class=campo maxLength=50
name=Profissao onblur="this.className='input1';"
onfocus="this.className='input2';"></TD></TR>
<TR>
<TD align=right height=26
style="FONT-FAMILY: Tahoma, Verdana; FONT-SIZE: 8pt"
width="50%"><FONT face=Verdana>Site Pessoal:</FONT><FONT
color=#ff0000 face=Verdana>*</FONT></TD>
<TD height=26
style="FONT-FAMILY: Tahoma, Verdana; FONT-SIZE: 8pt"
width="50%"><INPUT class=campo maxLength=50
name=SitePessoal onblur="this.className='input1';"
onfocus="this.className='input2';" value=http://></TD></TR>
<TR>
<TD height=1
style="FONT-FAMILY: Tahoma, Verdana; FONT-SIZE: 8pt"
vAlign=top width="50%">
<P align=right><B><FONT face=Verdana>Fale um pouco sobre
você:</FONT><FONT color=#ff0000
face=Verdana>*</FONT></B></P></TD>
<TD height=1
style="FONT-FAMILY: Tahoma, Verdana; FONT-SIZE: 8pt"
width="50%"><TEXTAREA class=campo cols=28 name=Sua_Descricao onblur="this.className='textarea1';" onfocus="this.className='textarea2';" rows=4></TEXTAREA></TD></TR>
<TR>
<TD height=14
style="FONT-FAMILY: Tahoma, Verdana; FONT-SIZE: 8pt"
width="50%"></TD>
<TD height=14
style="FONT-FAMILY: Tahoma, Verdana; FONT-SIZE: 8pt"
width="50%"></TD></TR>
<TR>
<TD height=14
style="FONT-FAMILY: Tahoma, Verdana; FONT-SIZE: 8pt"
width="50%"><FONT face=Verdana> </FONT></TD>
<TD height=14
style="FONT-FAMILY: Tahoma, Verdana; FONT-SIZE: 8pt"
width="50%"> </TD></TR>
<TR>
<TD height=1
style="FONT-FAMILY: Tahoma, Verdana; FONT-SIZE: 8pt"
width="50%"></TD>
<TD height=1
style="FONT-FAMILY: Tahoma, Verdana; FONT-SIZE: 8pt"
width="50%"></TD></TR>
<TR>
<TD colSpan=2 height=14
style="FONT-FAMILY: Tahoma, Verdana; FONT-SIZE: 8pt"
width="100%">
<P align=center><FONT face=Verdana> <B><FONT
color=#ff0000>*</FONT></B> <B>Campos obrigatórios
</B></FONT></P></TD></TR>
<TR>
<TD colSpan=2 height=31
style="FONT-FAMILY: Tahoma, Verdana; FONT-SIZE: 8pt"
width="100%">
<P align=center><INPUT class=campo name=submit type=submit value=" Cadastrar "></P></TD></TR></TBODY></TABLE></CENTER></DIV></FORM></TD></TR></TBODY></TABLE></CENTER><!-- FIM do cadastro -->
</body>
</html>
Sei que é um pouco grande mais me ajudem como faço para fazer com este form uma autenticação de usuarios para meu site o banco de dados está anexo não dei se esta correto mais preciso de ajuda
#95468 Top Sites
Posted by
on 10/05/2003, 01:31
in
ASP
Estou tentando usr um codigo no top sites do meu site mais está dando erro alguem que conhece este codigo o que tenho que mudar mais já mudei o config
a http://www.libihost....otar/defaut.asp
todos os arquivos estão nesta pasta mais esta dando errado
também está em anexo o sitema top sites o arquivo se encontra em
http://www.sitedozan...net/arquivo.zip
a http://www.libihost....otar/defaut.asp
todos os arquivos estão nesta pasta mais esta dando errado
também está em anexo o sitema top sites o arquivo se encontra em
http://www.sitedozan...net/arquivo.zip
#95470 Top Sites
Posted by
on 10/05/2003, 01:34
in
ASP
a url esta errda a correta é http://www.libihost....otar/defaut.asp
#95475 Top Sites
Posted by
on 10/05/2003, 01:39
in
ASP
me desculpe a url correta http://www.libihost....tar/default.asp agora está correta
#114971 Vou Tentar De Novo
Posted by
on 08/06/2003, 15:52
in
ASP
vou testar o codigo mais so mais uma coisa sera que da para mostrar em um quadro os numeros de cadstros j´´a feitos
#114869 Vou Tentar De Novo
Posted by
on 08/06/2003, 14:41
in
ASP
Consegui um codigo de autenticacao de usuarios mais esta dando erro nao consegui arrumar o codigo esta neste link quem souber teste para mim conto mais uma vez com quem manja de asp
http://www.sitedozan...t.net/login.zip
me ajudem
preciso que alguem celebro em asp teste o codigo pois o erro nao estou coseguindo arrumar e no d: alguma coisa no caminho do banco de dados em todos as paginas
http://www.sitedozan...t.net/login.zip
me ajudem
preciso que alguem celebro em asp teste o codigo pois o erro nao estou coseguindo arrumar e no d: alguma coisa no caminho do banco de dados em todos as paginas
#120562 News Letter
Posted by
on 15/06/2003, 17:31
in
ASP
voce ja tentou a do http://www.chacalscripts.rg3.net
#131072 Ratio De Banner
Posted by
on 28/06/2003, 16:58
in
ASP
hospedei minha pagina na brinkster.com so que estou enfrentando problemas de configuracao peguei um sistema de ratio de banner x-changer
temos o seguinte problema
'Atenção não deixar os dois componentes ativos, somente um !
Smtp = "smtp.ig.com.br" 'Servidor SMTP
Cdonts = "on" 'Componente Cdonts caso desativado deixar em off caso ativado deixar em on
AspMail = "off" 'Componente ASPMAIL caso desativado deixar em off caso ativado deixar em on
congiguracoa de smtp sera que a brinkers tem isto ou tem alguma coisa que posso fazer para mudar esta configuracao alguem pode me ajudar
temos o seguinte problema
'Atenção não deixar os dois componentes ativos, somente um !
Smtp = "smtp.ig.com.br" 'Servidor SMTP
Cdonts = "on" 'Componente Cdonts caso desativado deixar em off caso ativado deixar em on
AspMail = "off" 'Componente ASPMAIL caso desativado deixar em off caso ativado deixar em on
congiguracoa de smtp sera que a brinkers tem isto ou tem alguma coisa que posso fazer para mudar esta configuracao alguem pode me ajudar
#64186 E Agora O Que Eu Faço
Posted by
on 23/03/2003, 16:13
in
PHP
Me desculpe em vez de eu responder no meu tropico já feito "como faço um chat em php" eu coloquei novo tropico.
minha pagina com o chat é este http://www.sitedozan...t.net/chat.html
é um chat em php com flash como faço para usar pois sou hospedado pelo kit.net e sei que não usa este tipo de hospedagem mais me passaram varios outros tipos de provedores gratis mais não são totamente gratuitos os que assim me ajudarem me informe também onde hospedar sem pagar nada nada..
Obrigado
minha pagina com o chat é este http://www.sitedozan...t.net/chat.html
é um chat em php com flash como faço para usar pois sou hospedado pelo kit.net e sei que não usa este tipo de hospedagem mais me passaram varios outros tipos de provedores gratis mais não são totamente gratuitos os que assim me ajudarem me informe também onde hospedar sem pagar nada nada..
Obrigado
#63765 E Agora O Que Eu Faço
Posted by
on 23/03/2003, 08:53
in
PHP
Depois que eu hospedar em um provedor gratis (eu posso só hospedar meu chat não posso) o que devo fazer para ele funcionar
#126236 Chat E Forum
Posted by
on 22/06/2003, 07:24
in
ASP
sera que ha possibilidades de mudar os nomes das salas ou com senha sera que existe
#124017 O Que Esta De Errado Neste Chat
Posted by
on 19/06/2003, 16:25
in
ASP
vou postar pagina por pagina
chat.asp
expire.asp
f_msg.asp
f_post.asp
f_proc.asp
frame.asp
sai.asp
este chat e o go chat so mudei um pouco o chat.asp que seria a inde.asp de uma olhada se algo foi postado errado http://www.vipcodigo...asp?codfonte=61 e o link do codigo
chat.asp
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD><TITLE>Bate Papo do Site do Zanelati</TITLE>
<META content="text/html; charset=windows-1252" http-equiv=Content-Type><LINK
href="chat.css" rel=stylesheet
type=text/css>
<script language="JavaScript">
function validate(form) {
if (form.elements[0].value=="") {
alert('Não vai colocar o apelido?')
form.elements[0].focus()
return false
}
return true
}
</script>
<META content="Microsoft FrontPage 4.0" name=GENERATOR></HEAD>
<BODY class=frontpage>
<TABLE border=0 cellPadding=0 cellSpacing=0
style="position: absolute; top: 90; left: 0" width="693" height="284">
<TBODY>
<TR>
<TD
style="COLOR: #333333; FONT-SIZE: 10px; FONT-WEIGHT: bold; PADDING-BOTTOM: 8px; PADDING-RIGHT: 8px; TEXT-ALIGN: right">Participe
do Bate Papo do Site do Zanelati</TD></TR>
<TR>
<TD align=middle
style="BACKGROUND-COLOR: #0099cc; BORDER-BOTTOM: #ffffff 1px dashed; BORDER-TOP: #ffffff 1px dashed"><BR>
<%
IF Request.QueryString("lotada") = "true" then
Response.Write "<b>Você tentou entrar em uma sala lotada!!!!</b><br><br>"
End If
%>
<form method="POST" action="frame.asp" onsubmit="return validate(this)">
<TABLE border=0 cellPadding=2 cellSpacing=0 width=240>
<TBODY>
<TR>
<TD> </TD>
<TD align=right style="FONT-SIZE: 10px">Apelido:</TD>
<TD width="100%"><INPUT class=editField maxLength=32 name=nome
size=28 tabIndex=1></TD>
<TD> </TD></TR>
<TR>
<TD> </TD>
<TD align=right colSpan=2><INPUT border=0 class=btn name=login tabIndex=2 title="Usuário no chat" type=submit value=entrar></TD>
<TD> </TD></TR><INPUT name=mode type=hidden value=userLogin>
</FORM>
<TR>
<TD> </TD>
<TD align=middle colSpan=2 style="COLOR: #999999"><BR><BR><BR></TD>
<TD> </TD></TR>
<TR>
<TD> </TD>
<TD colSpan=2>
<TABLE border=0 cellPadding=4 cellSpacing=0
style="BORDER-RIGHT: #003300 3px double" width="100%">
<TBODY>
<TR>
<TD class=uocap colSpan=3>Entre e Participe</TD></TR>
<TR>
<TD class=uo colSpan=3> marque encontros com amigos</TD></TR></TBODY></TABLE></TD>
<TD> </TD></TR></TBODY></TABLE>
</form>
<BR></TD></TR>
<TR>
<TD
style="COLOR: #666666; FONT-SIZE: 10px; FONT-WEIGHT: lighter; PADDING-BOTTOM: 8px; PADDING-LEFT: 8px; PADDING-RIGHT: 8px; PADDING-TOP: 8px; TEXT-ALIGN: justify">
<P style="TEXT-ALIGN: center">[Site do Zanelati - Todos os direitos
reservados]</P></TD></TR></TBODY></TABLE><!-- Copyright(c) 2002, The Theill Web Site --></BODY></HTML>
expire.asp
<html> <head> <LINK href="chat.css" rel=stylesheet type=text/css> </head> <body> <p><a href="chat.asp" target="_top">Sua sessão de chat expirou. Clique aqui para entrar novamente</a></p> </body> </html>
f_msg.asp
<html> <head> <LINK href="chat.css" rel=stylesheet type=text/css> </head> <body topmargin="0" leftmargin="0" bgcolor="#3171AD" text="#FFFFFF"> </body> </html>
f_post.asp
<html>
<head>
<title></title>
<LINK
href="chat.css" rel=stylesheet
type=text/css>
<script language=JavaScript>
function foco(){
var Form
Form = document.envia;
Form.msg.focus();
}
</SCRIPT>
</head>
<body topmargin="0" leftmargin="0" bgcolor="#3171AD" text="#FFFFFF"
style="border-top-style: solid; border-top-color: #FFFF00">
<%
If Session("logon") = false then
Response.Redirect("expire.asp")
End IF
%>
<%
Function mau(msg)
msg=lcase(msg)
mau=false
if instr(1, msg, "xxxxx que pariu") then mau=true
if instr(1, msg, "xxxxx") then mau=true
if instr(1, msg, "xxxxx") then mau=true
if instr(1, msg, "xxxxxx") then mau = true
if instr(1, msg, "xxxxxx") then mau = true
if instr(1, msg, "vai tomar no") then mau = true
if instr(1, msg, "xxxxx") then mau = true
if instr(1, msg, "xxxxx") then mau = true
if instr(1, msg, "xxxxxx") then mau = true
end function
Function image(pic, post)
if pic <> "none" then
post = post & ".........<img src='../s_gif/" & pic & "'><br>"
image = post
else
image = post
End If
End Function
'************************************************
dim origem, destino, reserv, msg, id, acao, varid1, varid2, p3, p4, p5, pic
reserv = Request.Form("Reservado")
msg = Request.Form("msg")
id = Request.Form("destinatario")
acao = Request.Form("action")
if id = "1234" then destino = "TODOS" & reserv
pic = Request.Form("imagem")
'Transforma msg para evitar erros no JavaScript
msg = Server.HTMLencode(msg)
If trim(msg) <> "" then 'Postou mensagem
a = Application("id01")
b = Application("nome01")
c = Application("msg01")
l = Application("last01")
For i = 0 to 29 'Procura usuario
if a(i) = Session.SessionID then
origem = b(i)
exit for
End if
next
If origem="" then
Session("logon") = false
session("last") = true
response.redirect("expire.asp")
End If
for i = 0 to 29 'Procura vitima
if a(i) = id then
destino = b(i)
exit for
end if
next
'personaliza as acoes
Select Case acao
Case "grita com"
msg = "<b>" & ucase(msg) & "</b>"
End Select
if reserv <> false then 'Prive
p1 = "<font color = cyan>(" & FormatDateTime(now, 3) & ")</font> "
p2 = "<font color = yellow><b>" & origem & "</b></font> "
p3 = "<font color = white>reservadamente " & acao & " </font>"
p4 = "<font color = yellow><b>" & destino & "</b></font>: "
p5 = "<font color = white><i>" & msg & "</i></font><br>"
post = p1 & p2 & p3 & p4 & p5
post = image(pic, post)
if mau(msg) then
post = post & "<b>BOT para " & origem & ": BOCA-SUJA!<b><br>"
end if
if id = "1234" then
post = "<b>BOT para " & origem & ": pra quê falar reservadamente com todos???</b><br>"
End If
for i = 0 to 29
if a(i) = id or a(i) = Session.SessionID then
c(i) = c(i) & post
end if
next
else 'todos veem a msg
p1 = "<font color = cyan>(" & FormatDateTime(now, 3) & ")</font> "
p2 = "<font color = yellow><b>" & origem & "</b></font> "
p3 = "<font color = white> " & acao & " </font>"
p4 = "<font color = yellow><b>" & destino & "</b></font>: "
p5 = "<font color = white>" & msg & "</font><br>"
post = p1 & p2 & p3 & p4 & p5
post = image(pic, post)
if mau(msg) then
post = post & "<b>BOT para " & origem & ": BOCA-SUJA!<b><br>"
end if
for i = 0 to 29
'if c(i) <> "" then
c(i) = c(i) & post
'end if
next
'Adiciona as 10 ultimas
for i = 1 to 8
l(i) = l(i+1)
next
l(9) = post
end if
Application.lock
Application("msg01") = c
Application("last01") = l
Application.unlock
else
a = Application("id01")
b = Application("nome01")
For i = 0 to 29 'Procura usuario
if a(i) = Session.SessionID then
origem = b(i)
exit for
End if
next
end if
chatn = Session("chatn")
%>
<form action="f_post.asp" method="post" name="envia">
<table border="0" cellpadding="2" cellspacing="2" width="100%">
<tbody>
<tr>
<td colspan="2"><b><% Response.write origem %></b><input
name="Reservado" type="checkbox" value="false"><font face="Arial"
size="2">reservadamente </font><select name="Action" size="1">
<option selected value="fala para">fala para</option>
<option value="pergunta para">pergunta para</option>
<option value="responde para">responde para</option>
<option value="concorda com">concorda com</option>
<option value="discorda de">discorda de</option>
<option value="desculpa-se com">desculpa-se com</option>
<option value="surpreende-se com">surpreende-se com</option>
<option value="murmura para">murmura para</option>
<option value="sorri para">sorri para</option>
<option value="suspira por">suspira por</option>
<option value="flerta com">flerta com</option>
<option value="não tá nem aí com">não tá nem aí com</option>
<option value="entusiasma-se com">entusiasma-se com</option>
<option value="ri de">ri de</option>
<option value="dá um fora em">dá um fora em</option>
<option value="briga com">briga com</option>
<option value="grita com">grita com</option>
<option value="xinga">xinga</option>
</select> <select name="destinatario" size="1">
<option selected value="1234">TODOS</option>
<%
varid1 = application("nome01")
varid2 = application("id01")
for i = 0 to 29
if varid2(i) <> Session.SessionID and varid2(i) <> "" then
response.write "<option value=" & varid2(i) & ">" & varid1(i) & "</option>" & vbcrlf
End If
next
%>
</select></td>
</tr>
<tr>
<td width="32"><a href="sai.asp" target="_top"><img alt="Sair"
border="0" src="../s_gif/sair.gif" width="32" height="32"></a></td>
<td> <select name="imagem" size="1">
<option selected value="none">Enviar imagem</option>
<option value="boia.gif">Bóia</option>
<option value="briga.gif">Briga</option>
<option value="cerveja.gif">Cerveja</option>
<option value="coco.gif">Cocô</option>
<option value="desculpa.gif">Desculpa</option>
<option value="drink.gif">Drink</option>
<option value="entusiasmo.gif">Entusiasmo</option>
<option value="flerta.gif">Tubarão</option>
<option value="naotanemai.gif">Não tô nem aí</option>
<option value="nuvem.gif">Nuvem</option>
<option value="presente.gif">Presente</option>
<option value="rosa.gif">Rosa</option>
<option value="sapo.gif">Sapo</option>
<option value="xixarrao.gif">Xixarrão</option>
<option value="pergunta.gif">Interrogação</option>
<option value="ride.gif">Riso</option>
<option value="sorri.gif">Sorriso</option>
</select> <input name="msg" size="50"> <input name="Submit"
type="submit" value="Enviar"> Sala: </td>
</tr>
</tbody>
</table>
</form>
<script language=JavaScript>
function foco(){
var Form
Form = document.envia;
Form.msg.focus();
}
</SCRIPT>
f_proc.asp
<html>
<head>
<%
If Session("logon") = false then
Response.Redirect("expire.asp")
End If
%>
<meta http-equiv="Refresh" content="3; url=f_proc.asp">
<title></title>
</head>
<body bgcolor="#000000" text="#FFFFFF">
<%
dim l, i, a, c, d, texto
Response.Write "<script language=javascript>" & vbcrlf
if Session("last") then 'mostra as 10 ultimas
l = application("last01")
for i = 0 to 9
If l(i) <> "" then
texto = l(i)
Response.Write "parent.msgpost(""" & texto & """)" & vbcrlf
End if
next
Session("last") = false
else
a = Application("id01")
c = Application("msg01")
For i = 0 to 29
if a(i) = Session.SessionID then
texto = c(i)
if len(texto) <> 0 then
Response.Write "parent.msgpost(""" & texto & """)" & vbcrlf
end if
c(i) = ""
Application.lock
Application("msg01") = c
Application.unlock
exit for
end if
next
end if
Response.Write "</script>" & vbcrlf
%>
</body>
</html> frame.asp
<%
Dim a, b, c, d, t, logon, u, i, nome, p1, p2
nome = Request.Form("nome")
if nome = "" then
Response.Redirect("../default.asp")
end if
If Application("chatn") = 30 then
Response.Redirect("../default.asp?lotada=true")
End If
If Session("logon") = false then 'Entrou agora
'Adiciona usuario
'Procura uma vaga
a = Application("id01")
For i = 0 to 29
If a(i) = "" then exit for
next
Session("vaga") = i
a = Application("id01")
b = Application("nome01")
a(i) = Session.SessionID
b(i) = nome
p1 = "<font color=cyan>(" & FormatDateTime(now, 3) & ")</font> "
p2 = "<font color=white>" & nome & " entrou na sala...</font><br>"
logon = p1 & p2
Application.Lock
Application("id01") = a
Application("nome01") = b
Application.unlock
'Adiciona logon as 10 ultimas
u = Application("last01")
for i = 0 to 8
u(i) = u(i+1)
next
u(9) = logon
Application.Lock
Application("last01") = u
chatn = Application("chatn") + 1
Application("chatn") = chatn
Application.unlock
Session("logon") = true
'Avisa o restante dos usuarios que alguem entrou...
c = Application("msg01")
for i = 0 to 29
if i <> Session("vaga") Then
c(i) = c(i) & logon
End If
next
Application.lock
Application("msg01") = c
Application.unlock
End If
%>
<html>
<script language="javascript">
var docflag = new String("C")
function msgpost(msg) {
var destino = parent.frames[0].document
var as = unescape("%34")
if (docflag == "C") {
destino.write("<html><link rel='stylesheet' href='../style.css' type='text/css'>")
destino.write("<body topmargin=4 leftmargin=4 bgcolor='#3171AD' text='#FFFFFF'><p>")
docflag="O" }
destino.write(msg)
parent.frames[1].scroll(0,900000000)
}
</script>
<head>
<% Response.Write "<title>" & nome & " no Chat</title>" %>
</head>
<frameset framespacing="0" border="0" frameborder="0" rows="100%,0,80">
<frame name="fmsg" scrolling="yes" src="f_msg.asp">
<frame name="fproc" scrolling="no" noresize src="f_proc.asp">
<frame name="fpost" src="f_post.asp" scrolling="no" noresize>
<noframes>
<body>
<p>Esta página usa quadros mas seu navegador não aceita quadros.</p>
</body>
</noframes>
</frameset>
</html>
sai.asp
<%
If Session("logon") = false then
Response.Redirect("expire.asp")
End IF
%>
<%
Dim sID, a, b, c, l, t, i, nome, p1, p2, post, a2, b2, c2, d2, chatn
sID = Session.SessionID
a = Application("id01")
b = Application("nome01")
c = Application("msg01")
l = Application("last01")
'Remove usuario da sala
i = Session("vaga")
nome = b(i)
Session("logon") = false
Session("last") = true
v = Session("vaga")
set Session("vaga") = nothing
p1 = "<font color=cyan>(" & FormatDateTime(now, 3) & ")</font> "
p2 = "<font color=white>" & nome & " saiu da sala...</font><br>"
post = p1 & p2
for i = 1 to 8
l(i) = l(i+1)
next
l(9) = post
'Avisa a turma
for i = 0 to 29
c(i) = c(i) & post
next
a(v) = ""
b(v) = ""
c(v) = ""
Application.lock
Application("id01") = a
Application("nome01") = b
Application("msg01") = c
Application("last01") = l
chatn = Application("chatn") - 1
Application("chatn") = chatn
Application.unlock
response.redirect("chat.asp")
este chat e o go chat so mudei um pouco o chat.asp que seria a inde.asp de uma olhada se algo foi postado errado http://www.vipcodigo...asp?codfonte=61 e o link do codigo
#90555 Estatistica De Usuario
Posted by
on 03/05/2003, 15:49
in
ASP
Olá amigos do forum meu site é http://www.sitedozanelati.kit.net gostaria de pedir, bom fiz um sistema de cadastro + login mais gostaria de fazer no mesmo sitema um jeito que desse para saber qual o ultimo usuario que se registrou, nem que for para mudar meu sistema por um outro me ajude a encontrar algo errado e mudar
#59755 Chat Em Php
Posted by
on 16/03/2003, 09:54
in
PHP
Não sei se esta é a seção correta de postar mais consegui um chat em php, mais gostaria que vocês dessem uma olhada pois gostaria de usar mais o que tenho que fazer para ele funcionar porfavor visitem está pagina e vejam o chat
http://www.sitedozan...t.net/chat.html
http://www.sitedozan...t.net/chat.html
#123539 Script De Afliados
Posted by
on 19/06/2003, 07:00
in
ASP
conheço um super legal e rodo em meu site a do chacal banner tente este depois voce poste aqui se nao te ajudar http://www.chacalscripts.rg3.net
#110107 Porque Não Esta Dando
Posted by
on 01/06/2003, 15:56
in
ASP
Ele não aceita somente diz que uma mensagem falando que não deu certo o envio talvez pode ser os ips ou algo assim pois um dia coloquem um codigo que tinha algo parecido, mais quem souber o que tem errado me fale
#110088 Porque Não Esta Dando
Posted by
on 01/06/2003, 15:38
in
ASP
tenho um site e fiz um sistema de login mais não estou conseguindo colocar está pagina sera que tem algum codigo errado me ajudem
Ela não está aceitando mais a brinker aceita
<!-- Inicio do codigo fonte !-->
<%
Response.Buffer = True
Set DB = Server.CreateObject("ADODB.Connection")
cnpath="DBQ=D:\webpoint\rev\balmer-link\linksdovale.com\dados\usuarios.mdb"
DB.Open "DRIVER={Driver do Microsoft Access (*.mdb)}; " & cnpath
Executar = "SELECT * FROM tabela_de_usuarios"
Set RecSet = DB.Execute(Executar)
do while not recset.eof
vnome = RecSet("nome")
vsenha = RecSet("senha")
vpaginainicial = RecSet("paginainicial")
If Request.form("nome") = (vnome) then
If Request.form("senha") = (vsenha) then
response.cookies("autenticacao")("anome") = request.form("nome")
response.cookies("autenticacao")("asenha") = request.form("senha")
response.clear
response.redirect(vpaginainicial)
end if
end if
recset.movenext
loop
Public Function DoLog(arquivo,nome,senha)
Dim ObjFSO, ObjFile, ObjStream, Dia, Mes, Ano, Hora, IpNum
Const forReading = 1, forWriting = 2, forAppending = 8
Const TriDef = -2, TriTrue = -1, TriFalse = 0
Set ObjFSO = CreateObject("Scripting.FileSystemObject")
If ObjFSO.FileExists(arquivo) = False then
objFSO.CreateTextFile(arquivo)
End If
Set ObjFile = objFSO.GetFile(arquivo)
Set objStream = ObjFile.OpenAsTextStream(forAppending,TriDef)
Dia = Day(Date())
Mes = Month(Date())
Ano = Year(Date())
Hora = Time()
IpNum = Request.ServerVariables("REMOTE_ADDR")
ObjStream.WriteLine Dia & "-" & Mes & "-" & Ano & " | " & Hora & " | " & IpNum & " --> " & " Nome: " & nome & " / Senha: " & senha
ObjStream.close
End Function
path = Server.MapPath("log.txt")
nome = Request.form("nome")
senha = Request.form("senha")
DoLog (path),(nome),(senha)
%>
<head>
<META HTTP-EQUIV="Refresh" CONTENT="1;URL=logon.asp">
</head>
<b>
<p> </p>
<p> </p>
<p> </p>
<p> </p>
<p align="center"><font face="Verdana" size="1" color="#FF0000">
LOGIN OU SENHA INVÁLIDOS TENTE NOVAMENTE
</font>
</b>
</p>
<!-- Fim do codigo donte !-->
Ela não está aceitando mais a brinker aceita
