كيف يمكن ذلك في الـ ASP

**aspphp** · 28-05-2001

اوداضافة شخص جديد في قاعدة البيانات عن طرق صفحة الـASP
حاولت ثم حاولت ثم حاولت وهذا الكود

كود:

	<%@ Language=VBScript %>
	<html dir=rtl lang=ar>
	<%
	'Response.CharSet="windows-1256"
	'Response.Expires = 0
	set  cn = server.createobject("adodb.connection")
	cn.open("DSN=oracle_odbc;password=tiger")
	set pass_rs = server.createobject("adodb.recordset")
	sel_user=Request.Form ("newuser")
	sel_pass1=Request.Form ("newpass1")
	sel_pass2=Request.Form ("newpass2")
    pass_rs.Open "insert into tb2 deptno,dname,loc Values sel_user ,'"& sel_pass1 &"','"&sel_pass2&"'",cn,0,1
    if pass_rs.eof then 
   	response.redirect "../check/no_data.htm"
	elseif  cint(rs("sel_pass1"))<>cint(sel_pass2) then
      	   response.redirect "../check/ok_data.htm"
	end if
	%>
</html>

المشكلة في الـ insert على ما اعتقد
insert into tb2 deptno,dname,loc Values sel_user ,'"& sel_pass1 &"','"&sel_pass2&"'",cn,0,1

**Mr.ASP** · 28-05-2001

صيغة Insert Into

كود:

---------------------------------------------------------
Insert Into Table_Name  (FiledName1,FiledName2,FiledName3)
 VALUES (Value_Filed1,Value_Filed2,Value_Filed3);
---------------------------------------------------------

أكيد عرف الخطاء عندك ، الأقواس

كودك فيه شغلات خطاء
1- pass_rs.eof هذي ماها معنى مع أستعمال هالصيفة
2- أستعمالك لكائن pass_rs (RecordSet) ،
يكفي أستمال Cn.Execute sql
لأنك لاتريد أي شي من هذا الكائن سوى تنفيذ جملة sql فقط
3- لم تقفل قاعدة البيانات
بعد الأنتهاء من قاعدة البيانات يجب اقفالها
Cn.Close
4- عن أستعمال دالة server.createobject
يجب عليك التخلص من الكائن بعد الأنتهاء منه
مثال

كود:

set cn = server.createobject("adodb.connection") 
	' Code Goes Here
Set cn=Nothing

5-كلمة السر الأولى و الثانبة
أنت أدخلت البيانات بالقاعدة و بعدين شييكت على كلمتي السر
شيك قبل أدخال البيانات
6-سؤال لك؟؟؟
مثال :
سجل عندك شخص جديد أسمه
Mr.ASP's
كلمت السر1= 123
كلمت السر2= 123
راح ينتج خطاء ؟؟
وين الخطاء؟؟

6- عرف كل متغيير تستخدمه

الكود بعد التعديل
----------------

كود:

<%@ Language=VBScript CodePage="1256"%> 
<html dir=rtl lang=ar> 
<% 
On Error Resume Next
Dim Sql
Dim sel_user,sel_pass1,sel_pass2

Response.CharSet="windows-1256" 
Response.Expires = 0 

sel_user=Request.Form ("newuser") 
sel_pass1=Request.Form ("newpass1") 
sel_pass2=Request.Form ("newpass2") 

If "sel_pass1")<>sel_pass2 then 
	'response.redirect "../check/ok_data.htm" 
	Response.write "Pass1 <> Pass2"
	Response.End
end if 

set cn = server.createobject("adodb.connection") 
Cn.ConnectionString="DSN=oracle_odbc;password=tiger"
cn.open

Sql="INSERT INTO tb2 (deptno,dname,loc) Values " & _
    "(sel_user ,'" & sel_pass1 & "','" & sel_pass2 & "')"

Cn.Execute Sql

Cn.Close
Set Cn=Nothing

if Err.Nummber<>0 then 
	'You have an Error
	response.redirect "../check/no_data.htm" 
else
	'EveryThing is OK
	response.redirect "../check/ok_data.htm" 
end if 
%> 
</html>

**aspphp** · 30-05-2001

واخيراً .................
زبط

الكود, لكن طلعتي مشكلة صغيرة ثانية بس ولا يهمك انت قدها وقدون ؛)
اذا ازم الكود معي نصيتك

اقصد في المشكلة الجديدة ؛)

الموضوع: كيف يمكن ذلك في الـ ASP

أدوات الموضوع

بحث في الموضوع

المواضيع المتشابهه

هل يمكن

ما الذي يمكن عمله بالبيرل ولا يمكن عمله بالبي اتش بي ؟

ضوابط المشاركة