Comment permettre aux utilisateurs de changer leurs mots de passe? _Programmer 10 000 questions

2020-05-23

<%

id = Request ("id")

newpassword = Request (" mot de passe ")

newpasswordtemp = Request (" passwordtemp ")

If newpassword <> newpasswordtemp Then

Response.Write"

Désolé , Le mot de passe n'a pas pu confirmer , Veuillez saisir à nouveau ! " Response.End End If

Set conn = Server.CreateObject ("ADODB.Connection")

DBPath = Server.MapPath ("userinfo.mdb")

conn.Open "driver = {Microsoft Access Pilote (* .mdb)}; dbq = "& DBPath

Set rs = Server.CreateObject ("ADODB.Recordset")

sql = "update userinfo set Mot de passe ='" & newpassword & "'where id =" & id

rs.Open sql, conn, adOpenDynamic, adLockPessimistic

%>

[1]

www.xd1998.com@2001-2030Partage De Technologie