- Fórum WMO
- → zanelati2002's Content
zanelati2002's Content
There have been 101 items by zanelati2002 (Search limited from 28/04/2023)
#263438 Sistema Criado Por Crazy
Posted by zanelati2002 on 25/12/2003, 09:18 in ASP
#264876 Alguem Pode Me Dar Uma Dica
Posted by zanelati2002 on 27/12/2003, 16:22 in ASP
#264739 Alguem Pode Me Dar Uma Dica
Posted by zanelati2002 on 27/12/2003, 14:02 in ASP
<% set conn = createobject("AdoDb.connection") constr = "Driver={Microsoft Access Driver (*.mdb)};DBQ="& server.MapPath("db/guest.mdb") conn.open constr set rs = conn.execute("select top 10 * from assinar order by site desc") do while not rs.eof response.write("<a href='"&rs("site")&"'>"&rs("site")&"<br>") rs.movenext loop %>
#27155 Formulario e Login ao Mesmo Tempo
Posted by zanelati2002 on 19/01/2003, 08:26 in ASP
Entrei na paguina cuja este site tem as informações mais é tudo ingles e não intendo muito, sei que é http://www.brinkster.com/ me cadastrei mais os codigos ASP não sei como conseguir, mais uma vez me ajude
Até logo mais..
Ricardo Zanelati Bauru/SP
#263449 Sou Aprendiz...
Posted by zanelati2002 on 25/12/2003, 09:48 in ASP
http://www.libihost....elati/index.asp
#38881 Formulario
Posted by zanelati2002 on 07/02/2003, 12:39 in HTML, CSS e Metodologias
O formulario esta ai
<B><font face="Matisse ITC" color="#808080">C A D A S T R O
>>>>>>>>>>>>>></font>
</B>
<DIV align=center> </DIV>
<FORM action=http://unix.wmonline.com.br/formmail/formmail.php method=post name="CadastramentoUsuario" target="_self">
<TABLE align=center border=0 cellPadding=1 cellSpacing=1
width="80%">
<TBODY>
<tr>
<TD colSpan=2 valign="middle"><B><FONT
face="Verdana, Arial, Helvetica, sans-serif" size=2 color="#808080">D
a d o s d o U s u á r i
o</FONT></B></TD>
</tr>
<tr>
<TD bgColor=#385996 colSpan=2></TD>
</tr>
<tr>
<TD colSpan=2 valign="middle"><font color="#808080"> </font></TD>
</tr>
<tr>
<TD valign="middle"><B><FONT face="Verdana, Arial, Helvetica, sans-serif"
size=2 color="#808080">Login:</FONT></B></TD>
<TD valign="middle"><font color="#808080"><INPUT maxLength=15 name=logindomembro
style="BORDER-BOTTOM: #000000 1px solid; BORDER-LEFT: #000000 1px solid; BORDER-RIGHT: #000000 1px solid; BORDER-TOP: #000000 1px solid" size="20">
</font>
<DIV id=l009
</DIV>
</div>
</TD>
</tr>
<tr>
<TD valign="middle"><B><FONT face="Verdana, Arial, Helvetica, sans-serif"
size=2 color="#808080">Senha:</FONT></B></TD>
<TD valign="middle"><font color="#808080"><INPUT maxLength=15 name=senha1domembro
style="BORDER-BOTTOM: #000000 1px solid; BORDER-LEFT: #000000 1px solid; BORDER-RIGHT: #000000 1px solid; BORDER-TOP: #000000 1px solid"
type=password size="20"> </font>
<DIV id=l010
</DIV>
</div>
</TD>
</tr>
<tr>
<TD valign="middle"><B><FONT face="Verdana, Arial, Helvetica, sans-serif"
size=2 color="#808080">Confirmar Senha:</FONT></B></TD>
<TD valign="middle"><font color="#808080"><INPUT maxLength=15 name=senha2domembro
style="BORDER-BOTTOM: #000000 1px solid; BORDER-LEFT: #000000 1px solid; BORDER-RIGHT: #000000 1px solid; BORDER-TOP: #000000 1px solid"
type=password size="20"> </font>
<DIV id=l011
</DIV>
</div>
</TD>
</tr>
<TR>
<TD colSpan=2></TD></TR>
<TR>
<TD colSpan=2><B><FONT
face="Verdana, Arial, Helvetica, sans-serif" size=2 color="#808080">D
a d o s P e s s o a i s</FONT></B></TD></TR>
<tr>
<TD bgColor=#385996 colSpan=2 valign="middle"></TD>
</tr>
<TR>
<TD width="15%" valign="middle"></TD>
<TD width="85%" valign="middle">
</TD></TR>
<TR>
<TD width="15%" valign="middle"><B><FONT
face="Verdana, Arial, Helvetica, sans-serif"
size=2 color="#808080">Nome:</FONT></B></TD>
<TD width="85%" valign="middle"><font color="#808080"><INPUT maxLength=50 name=nomedomenbro size=20
style="BORDER-BOTTOM: #000000 1px solid; BORDER-LEFT: #000000 1px solid; BORDER-RIGHT: #000000 1px solid; BORDER-TOP: #000000 1px solid">
</font>
<DIV id=l001
</DIV>
</div>
</TD></TR>
<TR>
<TD valign="middle"><B><FONT face="Verdana, Arial, Helvetica, sans-serif"
size=2 color="#808080">E-Mail:</FONT></B></TD>
<TD valign="middle"><FONT face="Verdana, Arial, Helvetica, sans-serif"
size=2 color="#808080"><INPUT maxLength=30 name=emaildomembro size=20
style="BORDER-BOTTOM: #000000 1px solid; BORDER-LEFT: #000000 1px solid; BORDER-RIGHT: #000000 1px solid; BORDER-TOP: #000000 1px solid">
</FONT>
<DIV id=l002
</DIV>
</div>
</TD></TR>
<TR>
<TD valign="middle"><B><FONT face="Verdana, Arial, Helvetica, sans-serif"
size=2 color="#808080">Endereço:</FONT>
</B></TD>
<TD valign="middle"><FONT face="Verdana, Arial, Helvetica, sans-serif"
size=2 color="#808080"><INPUT maxLength=50 name=enderecodomembro size=20
style="BORDER-BOTTOM: #000000 1px solid; BORDER-LEFT: #000000 1px solid; BORDER-RIGHT: #000000 1px solid; BORDER-TOP: #000000 1px solid">
</FONT>
<DIV id=l003
style="left: 61; position: absolute; top: 220; visibility: hidden; width: 18; height: 3">
</DIV></TD></TR>
<TR>
<TD valign="middle"><B><FONT face="Verdana, Arial, Helvetica, sans-serif"
size=2 color="#808080">Bairro:</FONT>
</B></TD>
<TD valign="middle"><font color="#808080"><FONT face="Verdana, Arial, Helvetica, sans-serif"
size=2><INPUT maxLength=30 name=bairro size=20
style="BORDER-BOTTOM: #000000 1px solid; BORDER-LEFT: #000000 1px solid; BORDER-RIGHT: #000000 1px solid; BORDER-TOP: #000000 1px solid"></FONT>
<FONT
face="Verdana, Arial, Helvetica, sans-serif"
size=2> </FONT></font>
<DIV id=l004
</DIV>
</div>
</TD></TR>
<TR>
<TD valign="middle"><B><FONT face="Verdana, Arial, Helvetica, sans-serif"
size=2 color="#808080">Cidade, UF:</FONT></B></TD>
<TD valign="middle"><font color="#808080"><FONT
face="Verdana, Arial, Helvetica, sans-serif"><INPUT
maxLength=30 name=cidade size=20
style="BORDER-BOTTOM: #000000 1px solid; BORDER-LEFT: #000000 1px solid; BORDER-RIGHT: #000000 1px solid; BORDER-TOP: #000000 1px solid">, </FONT>
<FONT face="Verdana, Arial, Helvetica, sans-serif"
size=2> </FONT></font>
<DIV id=l005
</DIV><FONT
face="Verdana, Arial, Helvetica, sans-serif">
<SELECT name=estado
style="BORDER-BOTTOM: #000000 1px solid; BORDER-LEFT: #000000 1px solid; BORDER-RIGHT: #000000 1px solid; BORDER-TOP: #000000 1px solid" size="1" tabindex="20">
<OPTION selected value="">Selecione
...<OPTION>AC<OPTION>AL<OPTION>AM<OPTION>AP<OPTION>BA<OPTION>CE<OPTION>DF<OPTION>ES<OPTION>GO<OPTION>MA<OPTION>MG<OPTION>MS<OPTION>MT<OPTION>PA<OPTION>PB<OPTION>PE<OPTION>PI<OPTION>PR<OPTION>RJ<OPTION>RN<OPTION>RO<OPTION>RR<OPTION>RS<OPTION>SC<OPTION>SE<OPTION>SP<OPTION>TO<OPTION
value=EXTERIOR>Fora do Brasil</OPTION></SELECT></FONT>
</div>
</TD></TR>
<TR>
<TD valign="middle"><B><FONT face="Verdana, Arial, Helvetica, sans-serif"
size=2 color="#808080">País:</FONT></B></TD>
<TD valign="middle"><font color="#808080"><FONT
face="Verdana, Arial, Helvetica, sans-serif"><SELECT
name=pais> <OPTION selected value="">Selecione ...<OPTION>Afeganistão<OPTION>África
do Sul<OPTION>Albânia<OPTION>Alemanha<OPTION>Andorra<OPTION>Angola<OPTION>Anguilla<OPTION>Antártida<OPTION>Antígua
e Barbuda<OPTION>Antilhas Holandesas<OPTION>Arábia
Saudita<OPTION>Argélia<OPTION>Argentina<OPTION>Armênia<OPTION>Aruba<OPTION>Austrália<OPTION>Áustria<OPTION>Azerbaijão<OPTION>Bahamas<OPTION>Bahrein<OPTION>Bangladesh<OPTION>Barbados<OPTION>Belarus<OPTION>Bélgica<OPTION>Belize<OPTION>Benin<OPTION>Bermuda<OPTION>Bolívia<OPTION>Bósnia
e Herzegovina<OPTION>Botsuana<OPTION>Brasil<OPTION>Brunei<OPTION>Bulgária<OPTION>Burkina<OPTION>Burundi<OPTION>Butão<OPTION>Cabo
Verde<OPTION>Camarões<OPTION>Camboja<OPTION>Canadá<OPTION>Catar<OPTION>Cazaquistão<OPTION>Chade<OPTION>Chile<OPTION>China<OPTION>China
(Hong Kong, RAE, R. P. da China )<OPTION>China (Macau,
RAE, R. P. da China )<OPTION>Chipre<OPTION>Cidade do
Vaticano (Santa Sé)<OPTION>Cingapura<OPTION>Colômbia<OPTION>Comores<OPTION>Congo<OPTION>Congo,
República Popular do Coréia<OPTION>Coréia do Norte<OPTION>Costa
do Marfim<OPTION>Costa Rica<OPTION>Croácia (Hrvatska)<OPTION>Cuba<OPTION>Dinamarca<OPTION>Djibuti<OPTION>Dominica<OPTION>Egito<OPTION>El
Salvador<OPTION>Emirados Árabes Unidos<OPTION>Equador<OPTION>Eritréia<OPTION>Eslováquia<OPTION>Eslovênia<OPTION>Espanha<OPTION>Estados
Unidos<OPTION>Estônia<OPTION>Etiópia<OPTION>Faso<OPTION>Fiji<OPTION>Filipinas<OPTION>Finlândia<OPTION>França<OPTION>Gabão<OPTION>Gâmbia<OPTION>Gana<OPTION>Geórgia<OPTION>Gibraltar<OPTION>Grécia<OPTION>Grenada<OPTION>Groenlândia<OPTION>Guadalupe<OPTION>Guam<OPTION>Guatemala<OPTION>Guiana<OPTION>Guiana
Francesa<OPTION>Guiné<OPTION>Guiné Equatorial<OPTION>Guiné-Bissau<OPTION>Haiti<OPTION>Holanda<OPTION>Honduras<OPTION>Hungria<OPTION>Iêmen<OPTION>Ilha
Bouvet<OPTION>Ilha Norfolk<OPTION>Ilhas Cayman<OPTION>Ilhas
Christmas<OPTION>Ilhas Cocos (Keeling)<OPTION>Ilhas
Cook<OPTION>Ilhas Faroés<OPTION>Ilhas Geórgia do Sul
e Sandwich do Sul<OPTION>Ilhas Heard e McDonald<OPTION>Ilhas
Malvinas<OPTION>Ilhas Marianas do Norte<OPTION>Ilhas
Marshall<OPTION>Ilhas Salomão<OPTION>Ilhas Svalbard e
Jan Mayen<OPTION>Ilhas Turks e Caicos<OPTION>Ilhas
Virgens Americanas<OPTION>Ilhas Virgens Britânicas<OPTION>Ilhas
Wallis e Futuna<OPTION>Índia<OPTION>Indonésia<OPTION>Irã<OPTION>Iraque<OPTION>Irlanda<OPTION>Islândia<OPTION>Israel<OPTION>Itália<OPTION>Iugoslávia<OPTION>Jamaica<OPTION>Japão<OPTION>Jordânia<OPTION>Kiribati<OPTION>Kuwait<OPTION>Laos<OPTION>Lesoto<OPTION>Letônia<OPTION>Líbano<OPTION>Libéria<OPTION>Líbia<OPTION>Liechtenstein<OPTION>Lituânia<OPTION>Luxemburgo<OPTION>Macedônia<OPTION>Madagascar<OPTION>Malásia<OPTION>Malaui<OPTION>Maldivas<OPTION>Mali<OPTION>Malta<OPTION>Marrocos<OPTION>Martinica<OPTION>Maurício<OPTION>Mauritânia<OPTION>Mayotte<OPTION>México<OPTION>Micronésia<OPTION>Moçambique<OPTION>Moldávia<OPTION>Mônaco<OPTION>Mongólia<OPTION>Montserrat<OPTION>Myanma<OPTION>Namíbia<OPTION>Nauru<OPTION>Nepal<OPTION>Nicarágua<OPTION>Níger<OPTION>Nigéria<OPTION>Niue<OPTION>Noruega<OPTION>Nova
Caledônia<OPTION>Nova Zelândia<OPTION>Omã<OPTION>Palau<OPTION>Panamá<OPTION>Papua-Nova
Guiné<OPTION>Paquistão<OPTION>Paraguai<OPTION>Peru<OPTION>Pitcairn<OPTION>Polinésia
Francesa<OPTION>Polônia<OPTION>Porto Rico<OPTION>Portugal<OPTION>Quênia<OPTION>Quirguistão<OPTION>Reino
Unido<OPTION>República Centro-Africana<OPTION>República
Dominicana<OPTION>República Tcheca<OPTION>Reunião<OPTION>Romênia<OPTION>Ruanda<OPTION>Rússia<OPTION>Saara
Ocidental<OPTION>Saint Kitts e Névis<OPTION>Samoa<OPTION>Samoa
Americana<OPTION>San Marino<OPTION>Santa Helena<OPTION>Santa
Lúcia<OPTION>São Tomé e Príncipe<OPTION>São
Vicente e Granadinas<OPTION>Senegal Serra Leoa<OPTION>Seychelles<OPTION>Síria
Somália<OPTION>Sri Lanka<OPTION>St. Pierre e Miquelon<OPTION>Suazilândia<OPTION>Sudão<OPTION>Suécia<OPTION>Suíça<OPTION>Suriname<OPTION>Tadjiquistão<OPTION>Tailândia<OPTION>Taiwan<OPTION>Tanzânia<OPTION>Território
Britânico do Oceano Índico<OPTION>Territórios
Franceses do Sul<OPTION>Territórios Insulares dos EUA<OPTION>Timor
Oriental<OPTION>Togo<OPTION>Tokelau<OPTION>Tonga<OPTION>Trinidad
e Tobago<OPTION>Tunísia<OPTION>Turcomenistão<OPTION>Turquia<OPTION>Tuvalu<OPTION>Ucrânia<OPTION>Uganda<OPTION>Uruguai<OPTION>Uzbequistão<OPTION>Vanuatu<OPTION>Venezuela<OPTION>Vietnã<OPTION>Zâmbia<OPTION>Zimbábue</OPTION></SELECT></FONT>
<FONT face="Verdana, Arial, Helvetica, sans-serif"
size=2> </FONT></font>
<DIV id=l006
</DIV>
</div>
</TD></TR>
<TR>
<TD colSpan=2 valign="middle"><font color="#808080"> </font></TD></TR>
<TR>
<TD bgColor=#385996 colSpan=2 valign="middle"></TD></TR>
<TR>
<TD colSpan=2 valign="middle">
<FONT face=Verdana size=1><INPUT
name=CONCORDO type=checkbox value=ON> Ao selecionar este
campo você estará concordando com os dados fornecidos
ao Portal do Zanelati</FONT></TD></TR>
<TR>
<TD colSpan=2 valign="middle">
<DIV align=center><font color="#808080"><FONT face=Verdana size=1> <BR></FONT><INPUT name=Reset type=reset value="Limpar Campos">
<INPUT name=submit type=submit value=Cadastrar></font></DIV></TD></TR></TBODY></TABLE><input type="hidden" name="recipient" value="zane.juli@ig.com.br"><input type="hidden" name="redirect" value="http://www.portaldoz...ro.html"><input type="hidden" name="Subject" value="CadastrodeUsuarios"></FORM></TD>
</tr>
</table>
</body>
</html>
A validação e esta que eu quero mais não consigo fazer com que os dados dão certo me ajudem
<script language=JavaScript>
<!--
function MM_openBrWindow(theURL,winName,features) { //v2.0
window.open(theURL,winName,features);
}function checkFields() {
missinginfo = "";
if (document.form.nome.value == "") {
missinginfo += "\n - Nome";
}
if(document.form.email.value == "") {
missinginfo += "\n - Email";
}
if (document.form.departamento.value == "") {
missinginfo += "\n - Departamento";
}
if(document.form.assunto.value == "") {
missinginfo += "\n - Assunto";
}
if(document.form.mensagem.value == "") {
missinginfo += "\n - Mensagem";
}
if (missinginfo != "") {
missinginfo ="_____________________________\n" +
"Você nao preencheu o(s) campo(s):\n" +
missinginfo + "\n_____________________________" +
"\nPor favor corrija sua mensagem!";
alert(missinginfo);
return false;
}
else return true;
}
// -->
</SCRIPT>
espero respotas
#39468 Formulario
Posted by zanelati2002 on 08/02/2003, 13:08 in HTML, CSS e Metodologias
Segue o codigo só do Formulario como solicitado.
C A D A S T R O
>>>>>>>>>>>>>></font>
</B>
<DIV align=center> </DIV>
<FORM action=http://unix.wmonline.com.br/formmail/formmail.php method=post name="CadastramentoUsuario" target="_self">
<TABLE align=center border=0 cellPadding=1 cellSpacing=1
width="80%">
<TBODY>
<tr>
<TD colSpan=2 valign="middle"><B><FONT
face="Verdana, Arial, Helvetica, sans-serif" size=2 color="#808080">D
a d o s d o U s u á r i
o</FONT></B></TD>
</tr>
<tr>
<TD bgColor=#385996 colSpan=2></TD>
</tr>
<tr>
<TD colSpan=2 valign="middle"><font color="#808080"> </font></TD>
</tr>
<tr>
<TD valign="middle"><B><FONT face="Verdana, Arial, Helvetica, sans-serif"
size=2 color="#808080">Login:</FONT></B></TD>
<TD valign="middle"><font color="#808080"><INPUT maxLength=15 name=logindomembro
style="BORDER-BOTTOM: #000000 1px solid; BORDER-LEFT: #000000 1px solid; BORDER-RIGHT: #000000 1px solid; BORDER-TOP: #000000 1px solid" size="20">
</font>
<DIV id=l009
</DIV>
</div>
</TD>
</tr>
<tr>
<TD valign="middle"><B><FONT face="Verdana, Arial, Helvetica, sans-serif"
size=2 color="#808080">Senha:</FONT></B></TD>
<TD valign="middle"><font color="#808080"><INPUT maxLength=15 name=senha1domembro
style="BORDER-BOTTOM: #000000 1px solid; BORDER-LEFT: #000000 1px solid; BORDER-RIGHT: #000000 1px solid; BORDER-TOP: #000000 1px solid"
type=password size="20"> </font>
<DIV id=l010
</DIV>
</div>
</TD>
</tr>
<tr>
<TD valign="middle"><B><FONT face="Verdana, Arial, Helvetica, sans-serif"
size=2 color="#808080">Confirmar Senha:</FONT></B></TD>
<TD valign="middle"><font color="#808080"><INPUT maxLength=15 name=senha2domembro
style="BORDER-BOTTOM: #000000 1px solid; BORDER-LEFT: #000000 1px solid; BORDER-RIGHT: #000000 1px solid; BORDER-TOP: #000000 1px solid"
type=password size="20"> </font>
<DIV id=l011
</DIV>
</div>
</TD>
</tr>
<TR>
<TD colSpan=2></TD></TR>
<TR>
<TD colSpan=2><B><FONT
face="Verdana, Arial, Helvetica, sans-serif" size=2 color="#808080">D
a d o s P e s s o a i s</FONT></B></TD></TR>
<tr>
<TD bgColor=#385996 colSpan=2 valign="middle"></TD>
</tr>
<TR>
<TD width="15%" valign="middle"></TD>
<TD width="85%" valign="middle">
</TD></TR>
<TR>
<TD width="15%" valign="middle"><B><FONT
face="Verdana, Arial, Helvetica, sans-serif"
size=2 color="#808080">Nome:</FONT></B></TD>
<TD width="85%" valign="middle"><font color="#808080"><INPUT maxLength=50 name=nomedomenbro size=20
style="BORDER-BOTTOM: #000000 1px solid; BORDER-LEFT: #000000 1px solid; BORDER-RIGHT: #000000 1px solid; BORDER-TOP: #000000 1px solid">
</font>
<DIV id=l001
</DIV>
</div>
</TD></TR>
<TR>
<TD valign="middle"><B><FONT face="Verdana, Arial, Helvetica, sans-serif"
size=2 color="#808080">E-Mail:</FONT></B></TD>
<TD valign="middle"><FONT face="Verdana, Arial, Helvetica, sans-serif"
size=2 color="#808080"><INPUT maxLength=30 name=emaildomembro size=20
style="BORDER-BOTTOM: #000000 1px solid; BORDER-LEFT: #000000 1px solid; BORDER-RIGHT: #000000 1px solid; BORDER-TOP: #000000 1px solid">
</FONT>
<DIV id=l002
</DIV>
</div>
</TD></TR>
<TR>
<TD valign="middle"><B><FONT face="Verdana, Arial, Helvetica, sans-serif"
size=2 color="#808080">Endereço:</FONT>
</B></TD>
<TD valign="middle"><FONT face="Verdana, Arial, Helvetica, sans-serif"
size=2 color="#808080"><INPUT maxLength=50 name=enderecodomembro size=20
style="BORDER-BOTTOM: #000000 1px solid; BORDER-LEFT: #000000 1px solid; BORDER-RIGHT: #000000 1px solid; BORDER-TOP: #000000 1px solid">
</FONT>
<DIV id=l003
style="left: 61; position: absolute; top: 220; visibility: hidden; width: 18; height: 3">
</DIV></TD></TR>
<TR>
<TD valign="middle"><B><FONT face="Verdana, Arial, Helvetica, sans-serif"
size=2 color="#808080">Bairro:</FONT>
</B></TD>
<TD valign="middle"><font color="#808080"><FONT face="Verdana, Arial, Helvetica, sans-serif"
size=2><INPUT maxLength=30 name=bairro size=20
style="BORDER-BOTTOM: #000000 1px solid; BORDER-LEFT: #000000 1px solid; BORDER-RIGHT: #000000 1px solid; BORDER-TOP: #000000 1px solid"></FONT>
<FONT
face="Verdana, Arial, Helvetica, sans-serif"
size=2> </FONT></font>
<DIV id=l004
</DIV>
</div>
</TD></TR>
<TR>
<TD valign="middle"><B><FONT face="Verdana, Arial, Helvetica, sans-serif"
size=2 color="#808080">Cidade, UF:</FONT></B></TD>
<TD valign="middle"><font color="#808080"><FONT
face="Verdana, Arial, Helvetica, sans-serif"><INPUT
maxLength=30 name=cidade size=20
style="BORDER-BOTTOM: #000000 1px solid; BORDER-LEFT: #000000 1px solid; BORDER-RIGHT: #000000 1px solid; BORDER-TOP: #000000 1px solid">, </FONT>
<FONT face="Verdana, Arial, Helvetica, sans-serif"
size=2> </FONT></font>
<DIV id=l005
</DIV><FONT
face="Verdana, Arial, Helvetica, sans-serif">
<SELECT name=estado
style="BORDER-BOTTOM: #000000 1px solid; BORDER-LEFT: #000000 1px solid; BORDER-RIGHT: #000000 1px solid; BORDER-TOP: #000000 1px solid" size="1" tabindex="20">
<OPTION selected value="">Selecione
...<OPTION>AC<OPTION>AL<OPTION>AM<OPTION>AP<OPTION>BA<OPTION>CE<OPTION>DF<OPTION>ES<OPTION>GO<OPTION>MA<OPTION>MG<OPTION>MS<OPTION>MT<OPTION>PA<OPTION>PB<OPTION>PE<OPTION>PI<OPTION>PR<OPTION>RJ<OPTION>RN<OPTION>RO<OPTION>RR<OPTION>RS<OPTION>SC<OPTION>SE<OPTION>SP<OPTION>TO<OPTION
value=EXTERIOR>Fora do Brasil</OPTION></SELECT></FONT>
</div>
</TD></TR>
<TR>
<TD valign="middle"><B><FONT face="Verdana, Arial, Helvetica, sans-serif"
size=2 color="#808080">País:</FONT></B></TD>
<TD valign="middle"><font color="#808080"><FONT
face="Verdana, Arial, Helvetica, sans-serif"><SELECT
name=pais> <OPTION selected value="">Selecione ...<OPTION>Afeganistão<OPTION>África
do Sul<OPTION>Albânia<OPTION>Alemanha<OPTION>Andorra<OPTION>Angola<OPTION>Anguilla<OPTION>Antártida<OPTION>Antígua
e Barbuda<OPTION>Antilhas Holandesas<OPTION>Arábia
Saudita<OPTION>Argélia<OPTION>Argentina<OPTION>Armênia<OPTION>Aruba<OPTION>Austrália<OPTION>Áustria<OPTION>Azerbaijão<OPTION>Bahamas<OPTION>Bahrein<OPTION>Bangladesh<OPTION>Barbados<OPTION>Belarus<OPTION>Bélgica<OPTION>Belize<OPTION>Benin<OPTION>Bermuda<OPTION>Bolívia<OPTION>Bósnia
e Herzegovina<OPTION>Botsuana<OPTION>Brasil<OPTION>Brunei<OPTION>Bulgária<OPTION>Burkina<OPTION>Burundi<OPTION>Butão<OPTION>Cabo
Verde<OPTION>Camarões<OPTION>Camboja<OPTION>Canadá<OPTION>Catar<OPTION>Cazaquistão<OPTION>Chade<OPTION>Chile<OPTION>China<OPTION>China
(Hong Kong, RAE, R. P. da China )<OPTION>China (Macau,
RAE, R. P. da China )<OPTION>Chipre<OPTION>Cidade do
Vaticano (Santa Sé)<OPTION>Cingapura<OPTION>Colômbia<OPTION>Comores<OPTION>Congo<OPTION>Congo,
República Popular do Coréia<OPTION>Coréia do Norte<OPTION>Costa
do Marfim<OPTION>Costa Rica<OPTION>Croácia (Hrvatska)<OPTION>Cuba<OPTION>Dinamarca<OPTION>Djibuti<OPTION>Dominica<OPTION>Egito<OPTION>El
Salvador<OPTION>Emirados Árabes Unidos<OPTION>Equador<OPTION>Eritréia<OPTION>Eslováquia<OPTION>Eslovênia<OPTION>Espanha<OPTION>Estados
Unidos<OPTION>Estônia<OPTION>Etiópia<OPTION>Faso<OPTION>Fiji<OPTION>Filipinas<OPTION>Finlândia<OPTION>França<OPTION>Gabão<OPTION>Gâmbia<OPTION>Gana<OPTION>Geórgia<OPTION>Gibraltar<OPTION>Grécia<OPTION>Grenada<OPTION>Groenlândia<OPTION>Guadalupe<OPTION>Guam<OPTION>Guatemala<OPTION>Guiana<OPTION>Guiana
Francesa<OPTION>Guiné<OPTION>Guiné Equatorial<OPTION>Guiné-Bissau<OPTION>Haiti<OPTION>Holanda<OPTION>Honduras<OPTION>Hungria<OPTION>Iêmen<OPTION>Ilha
Bouvet<OPTION>Ilha Norfolk<OPTION>Ilhas Cayman<OPTION>Ilhas
Christmas<OPTION>Ilhas Cocos (Keeling)<OPTION>Ilhas
Cook<OPTION>Ilhas Faroés<OPTION>Ilhas Geórgia do Sul
e Sandwich do Sul<OPTION>Ilhas Heard e McDonald<OPTION>Ilhas
Malvinas<OPTION>Ilhas Marianas do Norte<OPTION>Ilhas
Marshall<OPTION>Ilhas Salomão<OPTION>Ilhas Svalbard e
Jan Mayen<OPTION>Ilhas Turks e Caicos<OPTION>Ilhas
Virgens Americanas<OPTION>Ilhas Virgens Britânicas<OPTION>Ilhas
Wallis e Futuna<OPTION>Índia<OPTION>Indonésia<OPTION>Irã<OPTION>Iraque<OPTION>Irlanda<OPTION>Islândia<OPTION>Israel<OPTION>Itália<OPTION>Iugoslávia<OPTION>Jamaica<OPTION>Japão<OPTION>Jordânia<OPTION>Kiribati<OPTION>Kuwait<OPTION>Laos<OPTION>Lesoto<OPTION>Letônia<OPTION>Líbano<OPTION>Libéria<OPTION>Líbia<OPTION>Liechtenstein<OPTION>Lituânia<OPTION>Luxemburgo<OPTION>Macedônia<OPTION>Madagascar<OPTION>Malásia<OPTION>Malaui<OPTION>Maldivas<OPTION>Mali<OPTION>Malta<OPTION>Marrocos<OPTION>Martinica<OPTION>Maurício<OPTION>Mauritânia<OPTION>Mayotte<OPTION>México<OPTION>Micronésia<OPTION>Moçambique<OPTION>Moldávia<OPTION>Mônaco<OPTION>Mongólia<OPTION>Montserrat<OPTION>Myanma<OPTION>Namíbia<OPTION>Nauru<OPTION>Nepal<OPTION>Nicarágua<OPTION>Níger<OPTION>Nigéria<OPTION>Niue<OPTION>Noruega<OPTION>Nova
Caledônia<OPTION>Nova Zelândia<OPTION>Omã<OPTION>Palau<OPTION>Panamá<OPTION>Papua-Nova
Guiné<OPTION>Paquistão<OPTION>Paraguai<OPTION>Peru<OPTION>Pitcairn<OPTION>Polinésia
Francesa<OPTION>Polônia<OPTION>Porto Rico<OPTION>Portugal<OPTION>Quênia<OPTION>Quirguistão<OPTION>Reino
Unido<OPTION>República Centro-Africana<OPTION>República
Dominicana<OPTION>República Tcheca<OPTION>Reunião<OPTION>Romênia<OPTION>Ruanda<OPTION>Rússia<OPTION>Saara
Ocidental<OPTION>Saint Kitts e Névis<OPTION>Samoa<OPTION>Samoa
Americana<OPTION>San Marino<OPTION>Santa Helena<OPTION>Santa
Lúcia<OPTION>São Tomé e Príncipe<OPTION>São
Vicente e Granadinas<OPTION>Senegal Serra Leoa<OPTION>Seychelles<OPTION>Síria
Somália<OPTION>Sri Lanka<OPTION>St. Pierre e Miquelon<OPTION>Suazilândia<OPTION>Sudão<OPTION>Suécia<OPTION>Suíça<OPTION>Suriname<OPTION>Tadjiquistão<OPTION>Tailândia<OPTION>Taiwan<OPTION>Tanzânia<OPTION>Território
Britânico do Oceano Índico<OPTION>Territórios
Franceses do Sul<OPTION>Territórios Insulares dos EUA<OPTION>Timor
Oriental<OPTION>Togo<OPTION>Tokelau<OPTION>Tonga<OPTION>Trinidad
e Tobago<OPTION>Tunísia<OPTION>Turcomenistão<OPTION>Turquia<OPTION>Tuvalu<OPTION>Ucrânia<OPTION>Uganda<OPTION>Uruguai<OPTION>Uzbequistão<OPTION>Vanuatu<OPTION>Venezuela<OPTION>Vietnã<OPTION>Zâmbia<OPTION>Zimbábue</OPTION></SELECT></FONT>
<FONT face="Verdana, Arial, Helvetica, sans-serif"
size=2> </FONT></font>
<DIV id=l006
</DIV>
</div>
</TD></TR>
<TR>
<TD colSpan=2 valign="middle"><font color="#808080"> </font></TD></TR>
<TR>
<TD bgColor=#385996 colSpan=2 valign="middle"></TD></TR>
<TR>
<TD colSpan=2 valign="middle">
<FONT face=Verdana size=1><INPUT
name=CONCORDO type=checkbox value=ON> Ao selecionar este
campo você estará concordando com os dados fornecidos
ao Portal do Zanelati</FONT></TD></TR>
<TR>
<TD colSpan=2 valign="middle">
<DIV align=center><font color="#808080"><FONT face=Verdana size=1> <BR></FONT><INPUT name=Reset type=reset value="Limpar Campos">
<INPUT name=submit type=submit value=Cadastrar></font></DIV></TD></TR></TBODY></TABLE><input type="hidden" name="recipient" value="zane.juli@ig.com.br"><input type="hidden" name="redirect" value="http://www.portaldoz...ro.html"><input type="hidden" name="Subject" value="CadastrodeUsuarios"></FORM></TD>
</tr>
<tr>
<td width="468"></td>
</tr>
</table>
</body>
</html>
#114863 Qual ´e O Programa Que Se Usa
Posted by zanelati2002 on 08/06/2003, 14:35 in Teoria da arte e tipologia
http://www.clubemasters.com.br/ igual a desta pagina
#109214 Onde Conseguir Este Codigo
Posted by zanelati2002 on 31/05/2003, 15:13 in ASP
obrigado
#108455 Onde Conseguir Este Codigo
Posted by zanelati2002 on 30/05/2003, 00:39 in ASP
#263447 Sistema De Login
Posted by zanelati2002 on 25/12/2003, 09:46 in ASP
#263453 Sistema De Login
Posted by zanelati2002 on 25/12/2003, 10:10 in ASP
que é nesta linha line 226
exatamente em cima explica certinho leia mais uma vez e valeu por ter me ajudado naqueles codigos
#263416 Sistema De Login
Posted by zanelati2002 on 25/12/2003, 07:15 in ASP
'If' esperado
/sitedozanelati/login2/signupprocess3.asp, line 226
End Function
----^
a linha 226 é esta <%
rsUser.close
set rsUser = nothing
conn.close
set conn = nothing
%>
<%
end if
End Function%>
<%
Function getstarsign()
exatamente neste end if
End Function%>
o codigo inteiro é este
<% Option Explicit Dim sql, rsUser, username, password, passwordconfirm, firstname, surname, email, dob, sex, notfilled(7), badflag, count, passwordLength, calltype, icon, starsign, dobmonth, dobday, sendemail 'Assign form values to variables username = Request.Form("username") 'Make sure they've not put any quotation marks in their username If InStr(username,chr(34)) <> 0 or InStr(username,chr(39)) <> 0 then errorfunction("invalidchars") end if firstname = Request.Form("firstname") surname = Request.Form("surname") email = Request.Form("email") sex = Request.Form("sex") password = Request.Form("password") passwordconfirm = Request.Form("passwordconfirm") dob = Request.Form("birth_day") & "/" & Request.Form("birth_month") & "/" & Request.Form("birth_year") icon = Request.Form("icon") 'Only way to set a variable from a checkbox: if Request.Form("sendemail") = "on" then sendemail = True else sendemail = False end if 'Check everything's been filled in, badflag determines whether error function is called badflag = 0 'nofilled() is an array that will store the fields which are not filled in if firstname = "" then notfilled(0) = "First Name" badflag = 1 end if if surname = "" then notfilled(1) = "Surname" badflag = 1 end if if email = "" then notfilled(2) = "Email" badflag = 1 end if if username = "" then notfilled(3) = "Username" badflag = 1 end if if password = "" then notfilled(4) = "Password" badflag = 1 end if if sex = "" then notfilled(5) = "Sex" badflag = 1 end if if IsDate(dob) = "False" then notfilled(6) = "Date of Birth" badflag = 1 end if if icon = "" then notfilled(7) = "Your choice of icon" badflag = 1 end if if badflag = 1 then signuperror() end if 'Check password length is between 5 and 15 characters long passwordLength = Len(password) if passwordLength < 5 or passwordLength > 15 then errorfunction("length") end if 'Check password and confirmed password are the same if password <> passwordconfirm then errorfunction("confirm") end if 'Open connection and insert user details into the database %> <!--#include file="conn.asp"--> <% 'For a bit of profiling fun, get their star sign getstarsign() 'Then add it to the database. It's in a seperate function because we need to error trap to see if there's been a duplicate entry. It's not good form to have On Error Resume Next throughout your whole page UserUpdate() Function UserUpdate() On Error Resume Next Set rsUser = Server.CreateObject("ADODB.Recordset") rsUser.open "users", conn, 3, 3 rsUser.AddNew rsUser("username") = username rsUser("password") = password rsUser("firstname") = firstname rsUser("surname") = surname rsUser("email") = email rsUser("dob") = dob rsUser("starsign") = starsign rsUser("sex") = sex rsUser("icon") = icon rsUser("sendemail") = sendemail rsUser.Update if Err.Number = -2147217887 then Err.clear errorfunction("badusername") else 'Set username cookie to sign them in now Response.Cookies("username") = username %> <html> <head> <title>Site do Zanelati</title> </head> <font face="Verdana" size=1> <p align="center"><b>Obrigado por se cadastrar <%=firstname%> <%=surname%> </b></p> <p align="center"><b><%=username%> Agora você é um membro do Site do Zanelati e esta logado no Sistema </b></p> <p> <p> </font> <font face="Verdana" size=1> <p><b>Você esqueceu de preencher os seguintes Dados:</b></p> <%for count = 0 to 7%> <%if notfilled(count) <> "" then%> <b><%=notfilled(count)%></b><br> <%end if%> <%next%> <p><a href="javascript:self.history.go(-1)">Tente Novamente</a></p> </font> <font face="Verdana" size=1> <%if calltype = "confirm" then%> <p><b>Sua confirmação de Senha Tem que ser igual a sua Senha</b></p> <p><a href="javascript:self.history.go(-1)">Tente Novamente</a></p> </font> <font face="Verdana" size=1> <p><b>Sua senha deve ter entre 5 e 15 caracteres</b></p> <p><a href="javascript:self.history.go(-1)">Tente Novamente</a></p> <p><b>Já temos cadastrado <%=username%> em nosso sistema</b></p> <p><a href="javascript:self.history.go(-1)">Tente Novamente</a></p> <p><b>Seu username não pode conter caracteres especiais</b></p> <p><a href="javascript:self.history.go(-1)">Tente Novamente</a></p> </html> <% rsUser.close set rsUser = nothing conn.close set conn = nothing %> <% end if End Function%> <% Function getstarsign() dobmonth = Request.Form("birth_month") dobday = Request.Form("birth_day") Select Case dobmonth Case 1 if dobday < 21 then starsign = "Capricorn" else starsign = "Aquarius" end if Case 2 if dobday < 20 then starsign = "Aquarius" else starsign = "Pisces" end if Case 3 if dobday < 21 then starsign = "Pisces" else starsign = "Aries" end if Case 4 if dobday < 21 then starsign = "Aries" else starsign = "Taurus" end if Case 5 if dobday < 22 then starsign = "Taurus" else starsign = "Gemini" end if Case 6 if dobday < 22 then starsign = "Gemini" else starsign = "Cancer" end if Case 7 if dobday < 24 then starsign = "Cancer" else starsign = "Leo" end if Case 8 if dobday < 24 then starsign = "Leo" else starsign = "Virgo" end if Case 9 if dobday < 24 then starsign = "Virgo" else starsign = "Libra" end if Case 10 if dobday < 24 then starsign = "Libra" else starsign = "Scorpio" end if Case 11 if dobday < 23 then starsign = "Scorpio" else starsign = "Sagittarius" end if Case 12 if dobday < 22 then starsign = "Sagittarius" else starsign = "Capricorn" end if End Select End Function %> <%Function signuperror()%> <%Response.end End Function%> <%Function errorfunction(calltype)%> <%Response.end%> <%elseif calltype = "length" then%> <%Response.end%> <%elseif calltype = "badusername" then%> <% rsUser.close set rsUser = nothing conn.close set conn = nothing Response.end %> <%elseif calltype = "invalidchars" then%> <%Response.end%> <%end if End Function%>alguem pode me ajudar com isto
#109832 Envio De Fotos
Posted by zanelati2002 on 01/06/2003, 08:52 in ASP
#126239 Alguem Desifra Erros
Posted by zanelati2002 on 22/06/2003, 07:56 in ASP
Microsoft OLE DB Provider for ODBC Drivers error '80004005'
[Microsoft][ODBC Microsoft Access Driver] Cannot update. Database or object is read-only.
/sitedozanelati/forum/done.asp, line 101
#90536 Provedor Gratis
Posted by zanelati2002 on 03/05/2003, 14:28 in ASP
#126230 Como Fazer Sera Que E Facil Assim
Posted by zanelati2002 on 22/06/2003, 06:53 in ASP
vou tentar explicar melhor peguei o codigo http://www.vipcodigo...asp?codfonte=11 e um login com cadstro e autenticacao, gostaria de fazer um sistema que mostra os usuarios logados no site igual da amigosWm.com nao sei se ele abre um frame puchando esta pagina mais me ajude quem souber
#114033 Autenticacao E Login
Posted by zanelati2002 on 07/06/2003, 16:15 in ASP
#113971 Autenticacao E Login
Posted by zanelati2002 on 07/06/2003, 15:09 in ASP
1. adiciona.asp
<!-- Inicio do codigo fonte !--> <% Dim nome,senha,paginainicial,numero nome = replace(request.form("nome"), "'", "''") senha = replace(request.form("senha"), "'", "''") paginainicial = replace(request.form("paginainicial"), "'", "''") numero = replace(request.form("numero"), "'", "''") Set DB = Server.CreateObject("ADODB.Connection") DB.Open "DRIVER={Driver do Microsoft Access (*.mdb)}; DBQ=D:\webpoint\rev\balmer-link\linksdovale.com\dados\usuarios.mdb" inserir = "INSERT INTO tabela_de_usuarios (nome,senha,paginainicial) " & _ "VALUES ('" & nome & "','" & senha & "','" & paginainicial & "')" DB.Execute(inserir) response.redirect ".../senha/usuarios.asp" %> <!-- Fim do codigo donte !-->
2.altera.asp
<!-- Inicio do codigo fonte !--> <% Dim nome,senha,paginainicial,numero nome = replace(request.form("nome"), "'", "''") senha = replace(request.form("senha"), "'", "''") paginainicial = replace(request.form("paginainicial"), "'", "''") numero = replace(request.form("numero"), "'", "''") 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)};" alterar = "UPDATE DISTINCTROW tabela_de_usuarios SET nome = '" & nome & "', senha = '" & senha & "', paginainicial = '" & paginainicial & "' WHERE numero = " & (numero) & "" DB.Execute(alterar) response.redirect "usuarios.asp" %> <!-- Fim do codigo donte !-->
3. deleta.asp
<!-- Inicio do codigo fonte !--> <% Dim nome,senha,paginainicial,numero nome = replace(request.form("nome"), "'", "''") senha = replace(request.form("senha"), "'", "''") paginainicial = replace(request.form("paginainicial"), "'", "''") numero = replace(request.form("numero"), "'", "''") 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 deletar = "DELETE DISTINCTROW numero, nome, senha, paginainicial FROM tabela_de_usuarios WHERE numero = " & (numero) & "" DB.Execute(deletar) response.redirect "usuarios.asp" %> <!-- Fim do codigo donte !-->
4.usuario.asp
<!-- Inicio do codigo fonte !--> <% If Request.cookies("autenticacao")("anome") <> "usuario" or _ Request.cookies("autenticacao")("asenha") <> "123456" then response.redirect "logon.asp" end if %> <p> </p> <p> </p> <p> </p> <p> </p> <p> </p> <p align="center"><font face="Verdana" size="1" color="#FF0000"><b>USUÁRIO</b> </font> <font face="Verdana" size="1" color="#FF0000"> <b>LOGADO</b> </font> </p> <!-- Fim do codigo donte !-->
6. login.asp
</head> <body> <font face="Verdana" size="1"> <BR> </font> <form method="verificarsenha.asp" method="post" target="_self"> <TABLE cellPadding=0 cellSpacing=0 width="51"> <TBODY> <TR> <TD width="252"><font face="Verdana" size="1"><IMG alt="" border=0 src="../images/login_login.jpg"></font></TD> <TD width="83"><font face="Verdana" size="1"><INPUT class=campo maxLength=20 name=login size=15></font></TD></TR> <TR> <TD width="252"><font face="Verdana" size="1"><img border="0" src="../images/login_senha.jpg"></font></TD> <TD width="83"><font face="Verdana" size="1"><INPUT class=campo maxLength=20 name=senha size=15 type=password></font></TD> <TR> <TD width="252"><font face="Verdana" size="1"> </font></TD> <TD width="83"><font face="Verdana" size="1"><INPUT class=botao2 name=entrar type=submit value=entrar></font></TD></TR></FORM> <TR> <TD width="335" colspan="2"><font face="Verdana" size="1">Seu Ip: <%=request.servervariables("REMOTE_ADDR")%> </font></TD> </TR> </TBODY></TABLE> </form> </body> </html>
7. cadastro.asp
<!-- Inicio do codigo fonte !--> <% Set DB = Server.CreateObject("ADODB.Connection") cnpath="DBQ=" & server.mappath("Dados/usuarios.mdb") DB.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & cnpath listar = "SELECT * FROM tabela_de_usuarios ORDER BY numero DESC" Set lista = DB.Execute(listar) %> <script language=JavaScript1.2> function valida(){ var nome = document.cadform.nome.value; var home = document.cadform.home.value; var login = document.cadform.login.value; var senha = document.cadform.senha.value; var senha2 = document.cadform.senha2.value; var cidade = document.cadform.cidade.value; var email = document.cadform.email.value; if ( login == '' ){ alert('Campo login em branco.'); document.cadform.login.focus(); return false; } if ( senha == '' ){ alert('Campo senha em branco.'); document.cadform.senha.focus(); return false; } if ( senha2 == '' ){ alert('Campo confirmação de senha em branco.'); document.cadform.senha2.focus(); return false; } if ( nome == '' ){ alert('Campo nome em branco.'); document.cadform.nome.focus(); return false; } if ( home == '' ){ alert('Campo home em branco.'); document.cadform.home.focus(); return false; } if ( cidade == '' ){ alert('Campo cidade em branco.'); document.cadform.cidade.focus(); return false; } if ( email == '' ){ alert('Campo email em branco.'); document.cadform.email.focus(); return false; } cadform.cadastra.disabled=true; return true; } </SCRIPT> <head> <title>Novo membro</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> <STYLE type=text/css>.tabela { BACKGROUND: #f5f5f5; BORDER-BOTTOM: #808080 1px solid; BORDER-LEFT: #808080 1px solid; BORDER-RIGHT: #808080 1px solid; BORDER-TOP: #808080 1px solid; COLOR: #000000; FONT-FAMILY: Tahoma, Verdana, Geneva, Arial, Helvetica, sans-serif; FONT-SIZE: 11px } .link { COLOR: #000000; TEXT-DECORATION: none } .link:hover { COLOR: #ff8040; TEXT-DECORATION: none } .TD { COLOR: #000000; FONT-FAMILY: Tahoma, Verdana, Geneva, Arial, Helvetica, sans-serif; FONT-SIZE: 11px } .campo { BACKGROUND: #ffffff; BORDER-BOTTOM: #debc00 1px solid; BORDER-LEFT: #debc00 1px solid; BORDER-RIGHT: #debc00 1px solid; BORDER-TOP: #debc00 1px solid; COLOR: #000000; FONT-FAMILY: Tahoma, Verdana, Geneva, Arial, Helvetica, sans-serif; FONT-SIZE: 11px } .botao { BACKGROUND: #f3f3f3; BORDER-BOTTOM: #808080 1px solid; BORDER-LEFT: #bbbbbd 1px solid; BORDER-RIGHT: #808080 1px solid; BORDER-TOP: #bbbbbd 1px solid; COLOR: #000000; FONT-FAMILY: Tahoma, Verdana, Geneva, Arial, Helvetica, sans-serif; FONT-SIZE: 11px } .botao2 { 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 } .Menu:link { BACKGROUND-COLOR: #ffffff; COLOR: #000000; FONT-FAMILY: Tahoma, Verdana; FONT-SIZE: 11px; HEIGHT: 20px; PADDING-TOP: 2px; TEXT-DECORATION: none; WIDTH: 160px } .Menu:visited { BACKGROUND-COLOR: #ffffff; COLOR: #000000; FONT-FAMILY: Tahoma, Verdana; FONT-SIZE: 11px; HEIGHT: 20px; PADDING-TOP: 2px; TEXT-DECORATION: none; WIDTH: 160px } .Menu:unknown { BACKGROUND-COLOR: #ffffff; COLOR: #000000; FONT-FAMILY: Tahoma, Verdana; FONT-SIZE: 11px; HEIGHT: 20px; PADDING-TOP: 2px; TEXT-DECORATION: none; WIDTH: 160px } .Menu:hover { BACKGROUND-COLOR: #f5f5f5; COLOR: #000000; FONT-FAMILY: Tahoma, Verdana; FONT-SIZE: 11px; HEIGHT: 20px; PADDING-TOP: 2px; TEXT-DECORATION: none; WIDTH: 160px } </STYLE> </head> <body background="../images/fundo3.gif"> <div align="center"> <center> <TABLE cellPadding=0 cellSpacing=0 height="100%" width=409> <TBODY> <TR> <TD class=TD vAlign=top width=84> <div align="center"> <TABLE width="348"> <TBODY> <TR> <TD colSpan=2 height=10 width="340"></TD></TR> <TR> <TD class=TD colSpan=2 vAlign=center width="340"><font face="Verdana" size="1"><IMG alt="" border=0 src="../images/pontos_subtitulo.jpg" width="36" height="10"> Site do Zanelati - Cadastrar novo Membro - </font></TD></TR> <TR> <TD bgColor=#debc00 colSpan=2 height=1 width="340"></TD></TR> <TR> <TD align=middle class=TD colSpan=2 height=20 width="340"></TD></TR> <FORM action=adiciona.asp id=cadform method=post name=cadform onsubmit="return valida();"> <TR> <TD align=middle class=TD colSpan=2 width="340"><font face="Verdana" size="1"><b>Dados de Acesso</b></font></TD></TR> <TR> <TD bgColor=#f3f3f3 colSpan=2 height=1 width="340" background="../images/menu_pontilhado.gif"></TD></TR> <TR> <TD colSpan=2 height=10 width="340"></TD></TR> <TR> <TD align=right class=TD width="113"><font face="Verdana" size="1">login:</font></TD> <TD width="221"><font face="Verdana" size="1"><INPUT class=campo maxLength=30 name=login size=20></font></TD></TR> <TR> <TD align=right class=TD width="113"><font face="Verdana" size="1">senha:</font></TD> <TD width="221"><font face="Verdana" size="1"><INPUT class=campo maxLength=20 name=senha type=password></font></TD></TR> <TR> <TD align=right class=TD width="113"><font face="Verdana" size="1">confirme a senha:</font></TD> <TD width="221"><font face="Verdana" size="1"><INPUT class=campo maxLength=20 name=senha2 type=password></font></TD></TR> <TR> <TD colSpan=2 height=20 width="340"></TD></TR> <TR> <TD align=middle class=TD colSpan=2 width="340"><font face="Verdana" size="1"><b>Dados Pessoais</b></font></TD></TR> <TR> <TD bgColor=#f3f3f3 colSpan=2 height=1 width="340" background="../images/menu_pontilhado.gif"></TD></TR> <TR> <TD colSpan=2 height=10 width="340"></TD></TR> <TR> <TD align=right class=TD width="113"><font face="Verdana" size="1">Seu nome:</font></TD> <TD width="221"><font face="Verdana" size="1"><INPUT class=campo maxLength=30 name=nome size=20></font></TD></TR> <TR> <TD align=right class=TD width="113"><font face="Verdana" size="1"> Sua Home Page:</font></TD> <TD width="221"><font face="Verdana" size="1"><INPUT class=campo maxLength=30 name=home size=20></font> </TD></TR> <TR> <TD align=right class=TD width="113"><font face="Verdana" size="1">Seu nascimento:</font></TD> <TD width="221"><font face="Verdana" size="1"><SELECT class=campo name=dia size=1> <OPTION selected value=01>01</OPTION> <OPTION value=02>02</OPTION> <OPTION value=03>03</OPTION> <OPTION value=04>04</OPTION> <OPTION value=05>05</OPTION> <OPTION value=06>06</OPTION> <OPTION value=07>07</OPTION> <OPTION value=08>08</OPTION> <OPTION value=09>09</OPTION> <OPTION value=10>10</OPTION> <OPTION value=11>11</OPTION> <OPTION value=12>12</OPTION> <OPTION value=13>13</OPTION> <OPTION value=14>14</OPTION> <OPTION value=15>15</OPTION> <OPTION value=16>16</OPTION> <OPTION value=17>17</OPTION> <OPTION value=18>18</OPTION> <OPTION value=19>19</OPTION> <OPTION value=20>20</OPTION> <OPTION value=21>21</OPTION> <OPTION value=22>22</OPTION> <OPTION value=23>23</OPTION> <OPTION value=24>24</OPTION> <OPTION value=25>25</OPTION> <OPTION value=26>26</OPTION> <OPTION value=27>27</OPTION> <OPTION value=28>28</OPTION> <OPTION value=29>29</OPTION> <OPTION value=30>30</OPTION> <OPTION value=31>31</OPTION></SELECT> <SELECT class=campo name=mes size=1> <OPTION selected value=01>01</OPTION> <OPTION value=02>02</OPTION> <OPTION value=03>03</OPTION> <OPTION value=04>04</OPTION> <OPTION value=05>05</OPTION> <OPTION value=06>06</OPTION> <OPTION value=07>07</OPTION> <OPTION value=08>08</OPTION> <OPTION value=09>09</OPTION> <OPTION value=10>10</OPTION> <OPTION value=11>11</OPTION> <OPTION value=12>12</OPTION></SELECT> <SELECT class=campo name=ano size=1> <OPTION selected value=50>50</OPTION> <OPTION value=51>51</OPTION> <OPTION value=52>52</OPTION> <OPTION value=53>53</OPTION> <OPTION value=54>54</OPTION> <OPTION value=55>55</OPTION> <OPTION value=56>56</OPTION> <OPTION value=57>57</OPTION> <OPTION value=58>58</OPTION> <OPTION value=59>59</OPTION> <OPTION value=60>60</OPTION> <OPTION value=61>61</OPTION> <OPTION value=62>62</OPTION> <OPTION value=63>63</OPTION> <OPTION value=64>64</OPTION> <OPTION value=65>65</OPTION> <OPTION value=66>66</OPTION> <OPTION value=67>67</OPTION> <OPTION value=68>68</OPTION> <OPTION value=69>69</OPTION> <OPTION value=70>70</OPTION> <OPTION value=71>71</OPTION> <OPTION value=72>72</OPTION> <OPTION value=73>73</OPTION> <OPTION value=74>74</OPTION> <OPTION value=75>75</OPTION> <OPTION value=76>76</OPTION> <OPTION value=77>77</OPTION> <OPTION value=78>78</OPTION> <OPTION value=79>79</OPTION> <OPTION value=80>80</OPTION> <OPTION value=81>81</OPTION> <OPTION value=82>82</OPTION> <OPTION value=83>83</OPTION> <OPTION value=84>84</OPTION> <OPTION value=85>85</OPTION> <OPTION value=86>86</OPTION> <OPTION value=87>87</OPTION> <OPTION value=88>88</OPTION> <OPTION value=89>89</OPTION> <OPTION value=90>90</OPTION> <OPTION value=91>91</OPTION> <OPTION value=92>92</OPTION> <OPTION value=93>93</OPTION> <OPTION value=94>94</OPTION> <OPTION value=95>95</OPTION> <OPTION value=96>96</OPTION> <OPTION value=97>97</OPTION> <OPTION value=98>98</OPTION> <OPTION value=99>99</OPTION> <OPTION value=00>00</OPTION> <OPTION value=01>01</OPTION> <OPTION value=02>02</OPTION></SELECT> </font> </TD></TR> <TR> <TD align=right class=TD width="113"><font face="Verdana" size="1">Sua cidade:</font></TD> <TD width="221"><font face="Verdana" size="1"><INPUT class=campo maxLength=50 name=cidade size=20></font></TD></TR> <TR> <TD align=right class=TD width="113"><font face="Verdana" size="1">Seu estado:</font></TD> <TD width="221"><font face="Verdana" size="1"><SELECT class=campo name=estado size=1> <OPTION selected value=AC>Acre<OPTION value=AL>Alagoas<OPTION value=AP>Amapá<OPTION value=AM>Amazonas<OPTION value=BA>Bahia<OPTION value=CE>Ceará<OPTION value=DF>Distrito Federal<OPTION value=ES>Espírito Santo<OPTION value=GO>Goiás<OPTION value=MA>Maranhão<OPTION value=MT>Mato-Grosso<OPTION value=MS>Mato-Grosso do Sul<OPTION value=MG>Minas Gerais<OPTION value=PA>Pará<OPTION value=PB>Paraíba<OPTION value=PR>Paraná<OPTION value=PE>Pernanbuco<OPTION value=PI>Piauí<OPTION value=RJ>Rio de Janeiro<OPTION value=RN>Rio Grande do Norte<OPTION value=RS>Rio Grande do Sul<OPTION value=RO>Rondônia<OPTION value=RR>Roraima<OPTION value=SC>Santa Catarina<OPTION value=SP>São Paulo<OPTION value=SE>Sergipe<OPTION value=TO>Tocantins</OPTION></SELECT> </font> </TD></TR> <TR> <TD align=right class=TD width="113"><font face="Verdana" size="1">Seu e-mail:</font></TD> <TD width="221"><font face="Verdana" size="1"><INPUT class=campo maxLength=30 name=email size=20></font></TD></TR> <TR> <TD width="113"></TD> <TD width="221"><font face="Verdana" size="1"><INPUT class=botao2 name=cadastra type=submit value=Cadastrar></font></TD></TR></FORM></TBODY></TABLE> </div> </TD> </TR></TBODY></TABLE> </center> </div> <TABLE> <TBODY></TBODY></TABLE> [CODE] 8. verificarsenha.asp<!-- Inicio do codigo fonte !-->
<%
Response.Buffer = True
Set DB = Server.CreateObject("ADODB.Connection")
cnpath="DBQ=" & Server.MapPath("\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=login.asp">
</head>
<b>
<p align="left"><font face="Verdana" size="1" color="#00FF00">
LOGIN OU SENHA
</font>
</p>
<p align="left"><font face="Verdana" size="1" color="#00FF00">
INVÁLIDOS
</font>
</b>
</p>
<b>
<p> </p>
<p> </p>
<p> </p>
<p> </p>
</b>
<!-- Fim do codigo donte !-->
[CODE]
Me desculpem sei que o codigo e grande mais tem o banco de dados que esta na pasta Dados/nome.mdb
#113991 Autenticacao E Login
Posted by zanelati2002 on 07/06/2003, 15:30 in ASP
#114009 Autenticacao E Login
Posted by zanelati2002 on 07/06/2003, 15:46 in ASP
#114032 Autenticacao E Login
Posted by zanelati2002 on 07/06/2003, 16:13 in ASP
#126670 Como Faço Para Mudar Isto
Posted by zanelati2002 on 22/06/2003, 17:14 in ASP
'Caso você não sabia o caminho físico do banco de dados, mas sabe que ele está,
'No mesmo direitório que as páginas, habilite essa linha e trave a outra com '
CaminhoDB = Server.MapPath("/asp/xchanger/xchanger.mdb") 'Atenção sem o sistema tiver em um subdiretório, especificar o subdiretório, Ex: subdiretório asp, então /asp/xchanger.mdb
'CaminhoDB = "C:\sites\divulgue\www\xchanger.mdb"
'Caso o seu servidor não suporte o método abaixo de conexão libere o outro
'método e trave o que está liberado
StringDB = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="
'StringDB = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="
nao sei fazer a configuracao para meu banco de dados ele se chama xchanger.mdb e esta na pasta dados
#263443 So Mais Esta A Quem Souber
Posted by zanelati2002 on 25/12/2003, 09:34 in ASP
Site inclusão visitas visitar Site
Isto seria
nome do site data da inlcusão numero de visitas visitar
Como faço para mostrar nesta ordem para o usuario a conexão é
<% Set Conexao = CreateObject("ADODB.CONNECTION") conStr ="DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath(db) ConexaoAberta = FALSE Sub AbreConexao() if not ConexaoAberta then Conexao.Open ConStr ConexaoAberta = True end if end sub Sub FechaConexao() if ConexaoAberta then Conexao.close ConexaoAberta = False end if end sub %>
no banco de dados os nome das tabelas são
nome, dia, cliques, url como mostrar emcima
#76782 Como Faço Para Mudar Este Script
Posted by zanelati2002 on 13/04/2003, 07:43 in HTML, CSS e Metodologias
<html> <head> <script LANGUAGE="JavaScript"> <!-- function Login(){ var done=0; var username=document.login.username.value; username=username.toLowerCase(); var password=document.login.password.value; password=password.toLowerCase(); // PARA O USUARIO nomeum A SENHA É um e vai para página: paginadois.html // // PARA O USUARIO nomedois A SENHA É dois e vai para página: scriptvariado.html // // PARA O USUARIO nometres A SENHA É tres e vai para página: tutodicas.html // // para adicionar mais um usuários basta adicionar mais uma linha após o usuário nometres // if (username=="nomeum" && password=="um") { window.location="paginadois.html"; done=1; } if (username=="nomedois" && password=="dois") { window.location="scriptvariado.html"; done=1; } if (username=="nometres" && password=="tres") { window.location="tutodicas.html"; done=1; } if (done==0) { document.write("<font face=verdana size=2 color=black><b>Não Cadastrado</b><br><br><font face=verdana size=2 color=black>clique <a href=loginvoltar.html><font face=verdana size=2 color=1e90ff>aqui</a><font face=verdana size=2 color=black> para tentar novamente.</font><br>"); } } //--> </SCRIPT> </head> <body> <form name=login> <table width="80"> <tr> <td width="30"> <div align="right"> <font face="verdana" size="1"><b>usuário</b></font> </div> </td> <td width="80"><input name="username" size="7"></td> </tr> <tr> <td width="30"> <div align="right"> <font face="verdana" size="1"><b>senha</b></font> </div> </td> <td width="80"><input name=password size="7" type="password" value></td> </tr> <tr> <td colSpan="1" width="120"><center><input style="BORDER-BOTTOM: 1px solid; BORDER-LEFT: 1px solid; BORDER-RIGHT: 1px solid; BORDER-TOP: 1px solid" type=button value="Login!" onClick="Login()"></center></td> </tr> </table> <br> </body> </html> <!--webbot bot="HTMLMarkup" endspan --> </p> </body> </html>
- Fórum WMO
- → zanelati2002's Content
- Privacy Policy
- Regras ·