Problem med MD5 i loginedit.asp
Jeg har et problem med min loginedit.asp fil.Jeg er ved at lave en login system i asp og så har jeg gjort at man kan tilføje, rette eller slette bruger fra databasen.
Så jeg vil gør at hvis man tilføjer en ny bruger at den kryptere den om til md5.
Den vil gerne lave den om til md5 i tilføj, men hvis man vil ændre en bruger viser den ved koden den hele md5 kode og ikke den kode man selv har lavet.
Men hvis man ændre koden og trykker på udfør så vil den gerne lave en ny md5 kode.
Så nu kommer mit spørgsmål, hvordan kan jeg gør så at den viser den kode man selv har lavet når man vil rette så den ikke viser den lange md5 kode?
Det er min loginedit.asp fil:
<!--#include file="md5.asp"-->
<%
Response.addHeader "pragma", "no-cache"
Response.addHeader "cache-control", "private"
Response.CacheControl = "no-cache"
response.buffer = true
if session("status") <> "ok" then response.redirect "login.asp"
x_id = request.querystring("id")
a=request.form("a")
if a="" or isnull(a) then a="I"
set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.mappath("../db/db.mdb")
Select Case a
Case "I":
strsql = "SELECT * FROM [login] WHERE [Id]=" & x_id
set rs = Server.CreateObject("ADODB.Recordset")
rs.Open strsql, conn
x_Brugernavn = rs("Brugernavn")
x_Adgangskode = rs("password")
rs.Close
Set rs = Nothing
Case "U":
x_Brugernavn=Request.Form("y_Brugernavn")
x_adgangskode1 = MD5(Request.Form("y_Adgangskode1"))
x_adgangskode2 = MD5(Request.Form("y_Adgangskode2"))
Fejl=0
if x_brugernavn="" or x_adgangskode1="" or x_adgangskode2="" Then fejl=1
If x_adgangskode1<>x_adgangskode2 Then Fejl=2
If fejl=0 Then
strsql = "SELECT * FROM [login] WHERE [Id]=" & x_id
set rs = Server.CreateObject("ADODB.Recordset")
rs.Open strsql, conn, 1, 2
rs("brugernavn") = Request.Form("y_Brugernavn")
rs("password") = Request.Form("y_Adgangskode1")
rs.Update
rs.Close
Set rs = Nothing
conn.Close
Set conn = Nothing
Response.Clear
Response.Redirect "logindlist.asp"
End If
End Select
%>
<HTML>
<HEAD>
</HEAD>
<BODY bgcolor="#FFFFFF">
<span style="position: absolute; top:+10px;left: +10px;letter-spacing: +0px;font: 20px Verdana, Arial;font-weight: bold;">Ret bruger</span>
<%
If fejl=1 Then Response.Write("<span style='position: absolute; top:+180px;left: +280px;letter-spacing: +0px;font: 10px Verdana, Arial;font-weight: normal;'>Alle felter skal udfyldes !</span>")
If fejl=2 Then Response.Write("<span style='position: absolute; top:+180px;left: +280px;letter-spacing: +0px;font: 10px Verdana, Arial;font-weight: normal;'>Skriv adgangskode igen !</span>")
If fejl=3 Then Response.Write("<span style='position: absolute; top:+180px;left: +280px;letter-spacing: +0px;font: 10px Verdana, Arial;font-weight: normal;'>Brugernavnet findes i forvejen !</span>")
%>
<form action="logindedit.asp?id=<%= x_id %>" method="post">
<input type="hidden" name="a" value="U">
<table bgcolor="#FFFFFF" border="0" cellspacing="0" cellpadding="0" style="position: absolute; top:+200px;left: +100px">
<tr>
<td><font face='Verdana' size='2'><b>Brugernavn</b> </font></td>
<td><input type="text" name="y_Brugernavn" value="<%= x_Brugernavn %>" size="47" class="input"> </td>
</tr>
<tr>
<td><font face='Verdana' size='2'><b>Adgangskode</b> </font></td>
<td><input TYPE='PASSWORD' name="y_Adgangskode1" value="<%= x_Adgangskode %>" size="15" maxlength="15" class="input"> <font face='Verdana' size='-2' color='#10273F'>Gentag </font><input TYPE='PASSWORD' name="y_Adgangskode2" value="<%= MD5(x_Adgangskode) %>" size="15" maxlength="15" class="input"> </td>
</tr>
<tr>
<td>
<a href='logindlist.asp'>TILBAGE</a>
<input type='submit' name='Action' value='UDFØR'>
</td>
</tr>
</table>
</form>
<p> </p>
<p> </p>
<p> </p>
<p> </p>
<p> </p>
<p> </p>
<p> </p>
<p> </p>
<p> </p>
<p> </p>
<!--#include file="../copyright.asp" -->
</BODY>
</HTML>
