السلام عليكم
اخوتي الاعزاء لقد عملت كود يقوم بالبحث في قاعدة الزبائن وفق الوظيفة serch_cl
و يتم الاتصال وفتحها بالوظيفة conect والغلق ب الوظيفة dconect
ووضعته في ملف control
ووضعت ملف serch
هل ما عملته صحيح واين الخطأ لو كان كدلك لانني في الدلفي اعمل بملفات dcuوملفات
المكتبات dll وتوجد فيهم كل الاجرائات كثيرة الاستعمال
اما في الاسبي فوجد ان الخوة يضعون كل كود مكرر في ملف inc وتم منادات الملف كامل
السؤال هل استطيع منادات اجراء واحد فقط من ملف
************************************************************************
ملف serch
************************************************************************
dim user,pass
user =Request.from("t1")
pass =Request.from("t2")
%>
<script language="vbscript">
sub B1_onclick
conect
serch_cl(user,pass)
dconect
End sub
************************************************************************
ملف control
************************************************************************
Function conect
dim con , RS
Set Con = Server.CreateObject("ADODB.Connection")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("pati.mdb") & ";"
Set RS = Server.CreateObject("ADODB.Recordset")
end function
Function dconect
dim con , RS
con.close
con.nothink
RS.close
RS.nothink
end function
function serch_cl(user,pass)
dim con , RS
Set RS=Con.Execute ("select * from clinet where pos_cl= user ,pass_cl = pass")
If Not RS.EOF Then
alert " ÊæÌÏ ÈíÇäÇÊ "
end if
end function
%>
لكم مني كل الشكر