Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
tenho um campo senha no meu formulário e gostaria de saber que código eu uso para não aparecer a senha quando o administrador do site digita-la..
<!-- #include file="Config.asp"-->
<!-- #include file="abrirconexao.asp"-->
<%
'-------------------------------------------------------------
'Arquivo: default.asp
'Descrição: Tela Principal com o sistema de login
'Criado dia 14/06/02 - por Flavio Cardoso
'http://www.codigolivre.com.br
'-------------------------------------------------------------
modo=request("modo")
if (modo="") then
modo="acessar"
End if
if (modo="acessar") then
Session.Abandon
%><!-- #include file="topogeral.inc"--><%
Response.write "<br><br><br><br><br><br>"
Response.write "<form method=""POST"" action=""default.asp?modo=validar"">"
Response.write "<div align=""center""><center>"
Response.write "<table border=""0"" width=""227"" cellspacing=""0"" cellpadding=""0"">"
Response.write "<tr>"
Response.write "<td width=""105""><font face=""Arial"" size=""2""> Administrador:</font></td>"
Response.write "<td width=""118""><font face=""Arial"" size=""2""><input type=""text"" size=""15"" name=""administrador""></font></td>"
Response.write "</tr><tr>"
Response.write "<td width=""105""><font face=""Arial"" size=""2""> Senha:</font></td>"
Response.write "<td width=""118""><font face=""Arial"" size=""2""><input type=""text"" size=""15"" name=""senha""></font></td>"
Response.write "</tr><tr>"
Response.write "<td colspan=""2"" width=""225""><font face=""Arial"" size=""2""> </font></td>"
Response.write "</tr><tr>"
Response.write "<td colspan=""2"" width=""225"">"
Response.write "<p align=""center""><font face=""Arial"" size=""2""><input type=""submit"" value="" Acessar ""></font></td>"
Response.write "</tr></table></center></div></form>"
Response.write "<center><br>Versão 1.0<br> Sistema Desenvolvido por: <a href=""[http://www.itz.com"">Itz.com"](http://www.itz.com)
%><!-- #include file="undergeral.inc"--><%nsenha=request("senha")
nsenha = Replace(nsenha," ","")
nsenha = Replace(nsenha,"'","")
ncod=request("administrador")
ncod = Replace(ncod," ","")
ncod = Replace(ncod,"'","")
sSQL="SELECT * FROM masters"
Set RsPortal=ConPortal.Execute(sSQL)
Codigo=RsPortal("administrador")
Senha=RsPortal("senha")
if (nsenha=Senha) and (ncod=Codigo) then
Session("ncod")=ncod
Session("nsenha")=nsenha
Response.redirect "default.asp?modo=acessado"
else
Session("ncod")=""
Session("nsenha")=""
Response.redirect "default.asp?modo=erro"
End if
elseif (modo="acessado") then
if (Session("ncod")<>"") and (Session("nsenha")<>"") then
%><!-- #include file="topogeral.inc"--><%
Response.write "<center><b><font face=""Arial"" size=""4"">"
Response.write "<br><br>Seja Bem Vindo, <font color=""red"">" & Session("ncod") & "</font></font></b></center>"
%><!-- #include file="undergeral.inc"--><%
else
Response.redirect "default.asp?modo=erro"
End if
elseif (modo="erro") then
%><!-- #include file="topogeral.inc"--><%
Response.write "<br><br><br><br><center>Código ou Senha Invalida.<br>"
Response.write "<B><A HREF=""default.asp?modo=acessar"">Voltar</A></B></center>"
%><!-- #include file="undergeral.inc"--><%Carregando comentários...