Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

oldenny

Senha do Access

Por , em ASP Clássico

Recommended Posts

oldenny    0

oldenny
Postado

Se alguém mais tinha esta dúvida, segue o código:

 

<%response.buffer = trueDim oOptado, oSenha, oBanco, cn, oSenhaA, oNovaoOptado = request("Checa")oSenha = request("iSenha")oSenhaA = request("iSenhaA")oNova = request("iNova")oBanco = Server.MapPath("lote.mdb")Set cn = CreateObject("ADODB.Connection")select case oOptado	case 1  DizLocal = "Provider=Microsoft.Jet.OLEDB.4.0;Mode=12;Data Source=" & oBanco  cn.Open DizLocal  cn.Execute "ALTER Database Password " & oSenha & "``"  cn.close		case 2  DizLocal = "Provider=Microsoft.Jet.OLEDB.4.0;Mode=12;Data Source=" & oBanco & ";Jet OLEDB:Database Password=" & oSenhaA  cn.Open DizLocal  cn.Execute "ALTER Database Password " & oNova & " " & oSenhaA  cn.close		case 3  DizLocal = "Provider=Microsoft.Jet.OLEDB.4.0;Mode=12;Data Source=" & oBanco & ";Jet OLEDB:Database Password="  & oSenha  cn.Open DizLocal  cn.Execute "ALTER Database Password " & "``" & oSenha  cn.close	end selectset cn = nothing%><html><head><title>Proteção do banco de dados</title><script language=jscript><!--function Mostre(oque) {	document.getElementById("dSenha").style.display="none";	document.getElementById("dSenhaA").style.display="none";	document.getElementById("dSenhaN").style.display="none";	switch (oque) {	case 1:  document.getElementById("dSenha").style.display="block";  document.getElementById("iSenha").focus();  break;	case 2:  document.getElementById("dSenhaA").style.display="block";  document.getElementById("dSenhaN").style.display="block";  document.getElementById("iSenhaA").focus();  break;	case 3:  document.getElementById("dSenha").style.display="block";  document.getElementById("iSenha").focus();  break;	}}--></script></head><body style="font-family:Verdana;background:#eee"><form id="fTroca" name="fTroca" method="Post" action="alterasenhabd.asp"><br><input type="Radio" id="checa" name="checa" value="1" onClick="Mostre(1);">Proteger com senha<br><input type="Radio" id="checa" name="checa" value="2" onClick="Mostre(2);">Alterar Senha<br><input type="Radio" id="checa" name="checa" value="3" onClick="Mostre(3);">Desproteger<div id="dSenha" name="dSenha" style="display:none">	Digite a senha:<input id="iSenha" name="iSenha" value="<%=oSenha%>"></div><div id="dSenhaA" name="dSenhaA" style="display:none">	Digite a senha antiga:<input id="iSenhaA" name="iSenhaA" value="<%=oSenhaA%>"></div><div id="dSenhaN" name="dSenhaN" style="display:none">	Digite a senha nova:<input id="iNova" name="iNova" value="<%=oNova%>"></div><br><br><input type="submit" id="bSenha" name="bSenha" value="Mude"><br></form><%if oOptado = 1 then	response.write("Banco de dados protegido com senha.")elseif oOptado = 2 then	response.write("Senha do banco de dados alterada.")elseif oOptado = 3 then	response.write("Banco de dados desprotegido.")end if%></body></html>

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito