![]() |
# 2 |
חבר על
|
1.
קוד:
<% session ("e")=Request.Form("email") session ("p")=Request.Form("Password") session ("n")=Request.Form("number") session ("k")=Request.Form("kidomet") path=Server.mappath("db.mdb") set con= Server.createobject("ADODB.Connection") con.mode=3 con.open "Provider=Microsoft.Jet.OLEDB.4.0;data source=" &path sq2="select * from o4users where [email]="&session ("e")&" and [Password]="&session ("p")&" and [number]="&session ("n")&" and [kidomet]="&session ("k")&"" set R=con.execute(sq2) if R.eof then response.write "פרטים לא נכונים" else sq="delete * from o4users where [email]="&session ("e")&" and [Password]="&session ("p")&" and [number]="&session ("n")&" and [kidomet]="&session ("k")&"" con.execute sq %> מחקת בהצלחה את המשתמש <% end if %> 2. קוד:
<% i=Request.Form("id") fname=Request.Form("firstname") sname=Request.Form("familyname") n=Request.Form("number") e=Request.Form("email") z=Request.Form("ezor") a=Request.Form("adress") yn=Request.Form("yesno") o=Request.Form("offers") c=Request.Form("comment") k=Request.Form("kidomet") town=Request.Form("city") sq="UPDATE o4users SET [firstname]='"&fname&"', [familyname]='"&sname&"',[number]='"&n&"',[email]='"&e&"',[ezor]='"&z&"',[adress]='"&a&"',[yesno]='"&yn&"',[comment]='"&c&"',[offers]='"&o&"',[kidomet]='"&k&"' WHERE [id]=" & i response.write sq path=Server.mappath("db.mdb") set con= Server.createobject("ADODB.Connection") con.mode=3 con.open "Provider=Microsoft.Jet.OLEDB.4.0;data source=" &path con.Execute sq %> שים לב לטעויות מהסוג הזה. בהצלחה בהמשך ![]()
__________________
דוד בן דוד. |
![]() |
חברים פעילים הצופים באשכול זה: 1 (0 חברים ו- 1 אורחים) | |
|
|