الموضوع: مساعدة في classic asp صفحة تغير الباسورد

السلام عليكم و رحمة الله


الاخوة في سوالف تحياتي و احترامي لكم


اود ان اقوم ببناء صفحة تغير الباسورد علما انه ليس هناك اسم مستخدم فقط الباسورد القديم و الجديد و تأكيد الباسورد الجديد

قمت ببناء هذه الصفحة و لكن لم تنجح يا ريت تشوفون لي سبب المشكلة و لكم جزيل الشكر

المطلوب من هذه الصفحة ان تقوم بالتأكيد ان الباسورد القديم المدخل بالنموذج مطابق للقديم و ان كلمتي السر الجدد غير مختلفتين ... و عند تحقق الشروط يتم تحديث الباسورد


كل احترامي لكم و الشكر مقدما
-----------------------------------------------

----------------------------------------------
<META http-equiv=Content-Type content="text/html; charset= utf-8">

<%
guid = Request.QueryString("r")
serverid = Request.QueryString("serverid")
If Session("blnIsUserGood") = FALSE Then
Response.Redirect "index.asp"
End If


strCommandpass = Request("Command")

If strCommandpass = "updatepasso" Then
olpass = Request("oldpass")
Set adoConpas1 = Server.CreateObject("ADODB.Connection")
strConpas1 = "DRIVER={Microsoft Access Driver (*.mdb)};uid=;pwd=; DBQ=" & Server.MapPath("data.mdb")
adoConpas1.Open strConpas1
Set rsCheckUserpas1 = Server.CreateObject("ADODB.Recordset")
strSQLpas1 = "SELECT * from ROOMS where guid='" & guid & "'"
rsCheckUserpas1.Open strSQLpas1, strConpas1

rsCheckUserpas1.MoveFirst
pascon1= rsCheckUserpas1("webadminpassword")
if oldpass <> pascon1 then
passwrong = "1"

rsCheckUserpas1.Close

'Close Objects
Set adoConpas1 = Nothing
Set strConpas1 = Nothing
Set rsCheckUserpas1 = Nothing
end if

Dim DB_CONNECTIONSTRINGpass
DB_CONNECTIONSTRINGpass = "Provider=Microsoft.Jet.OLEDB.4.0;" _
& "Data Source=" & Server.Mappath("data.mdb") & ";"

defaultservername = Session("defaultservername")
SERVERNAME = Session("SERVERNAME") '' pega no cookie o nome do servidor

VIAROOM = Session("viaroom2")


newpas = Request("newpass1")
conferm = Request("newpass2")
dim passwro
passwro = "The old pass do not match"
dim conwro
dim psswrong


Dim adoConpass 'Database Connection Variable
Dim strConpass 'Holds the Database driver and the path and name of the database
Dim rsCheckUserpass 'Database Recordset Variable
Dim strAccessDBpass 'Holds the Access Database Name
Dim strSQLpass 'Database query sring
Dim strUserNamepass 'Holds the user name
Set adoConpass = Server.CreateObject("ADODB.Connection")
strConpass = "DRIVER={Microsoft Access Driver (*.mdb)};uid=;pwd=; DBQ=" & Server.MapPath("data.mdb")
adoConpass.Open strConpass
Set rsCheckUserpass = Server.CreateObject("ADODB.Recordset")
strSQLpass = "SELECT * from ROOMS where guid='" & guid & "'"
rsCheckUserpass.Open strSQLpass, strConpass,adOpenKeyset, adLockPessimistic, adCmdText
if newpas <> conferm then
conwro = "1"

rsCheckUserpass.Close

'Close Objects
Set adoConpass = Nothing
Set strConpass = Nothing
Set rsCheckUserpass = Nothing

end if
rsCheckUserpass.Fields("webadminpassword") = newpas
rsCheckUserpass.Update
rsCheckUserpass.Close

'Close Objects
Set adoConpass = Nothing
Set strConpass = Nothing
Set rsCheckUserpass = Nothing
end if

%>
<table>
<form name="updatepass" method="POST">
<input type="hidden" name="Command" value="updatepasso">
<tr><td>كلمة السر القديمة:&nbsp;</td><td><input type=password name=oldpass size=20 maxlength=31></td></tr>
<tr><td height="24">كلمة السر الجديدة:&nbsp;</td><td height="24"><input type=password name=newpass1 size=20 maxlength=31></td></tr>
<tr><td><span lang="ar-jo">تأكيد </span>كلمة السر الجديدة:&nbsp;</td><td><input type=password name=newpass2 size=20 maxlength=31></td></tr>
<tr><td></td><td>
<input class="button" type="submit" name="btnSave" value="Save"></td></tr>
</form>

</table>

</form>
<%
if passwrong = "1" then
response.write "Old Password Do Not Match"
end if

%>
<%
if conwro ="1" then
response.write"The new Tow passwords Do Not Match"
end if
%>

OK
لو حضرتك عايز تغير الباس ورد فقط بس فيه يوز نيم و ID للعضو و دا الي بتشتغل عليه علي id هتعمل مقارنة بدلالة id للباس ورد و اذا كانت صحيحة يتم تعدل البيانات الجديدة
طبعا هتستخدم جمل الشرط if و جمل sql الخاصة بالتعديل update
جرب و قولي لو ما انجزتش الكود ممكن اسعدك فيه