السلام عليكم .......:)
احببت هذه المرة ان اشارك بكود من اول الكودات الي كتبتها في بداية تعلمي لل ASP.............:D
الكود عبارة عن مجموعتين من ال Compo boxs كل مجموعة تتكون من اثنين كمبو بوكس معتمدين علا بعضيهم اذا تغير واحد بيغير التاني عن طريق عمل ريفريش للصفحه ... بس الرفريش ما بياثر على المجموعة الثانية ...:rolleyes:
عموما شوفوا المثال واعطوني رايكم فيه(gift)
و الي مافاهم في شي يسال ونحن نجيب ....;) (f)
اهههههه...... :confused:
اخ محمد مشكور...(f)
بس شغلي شكله مش عاجب الشباب ؟؟؟؟:'(:'(:'(
اقتباساهههههه......اخ محمد مشكور...
بس شغلي شكله مش عاجب الشباب ؟؟؟؟
ألا يكفيك ردي ؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟
على العموم انت ما قصرت و جزيت خيرا على الكود و أنا فعلا عجبني
و اكيد عجب الاعضاء لانه الى الان نزلوه 7 مرات ..
مو ضروري الواحد يكتب رد لتقييم الموضوع اكيد الكثير يقرأؤن و يستفيدون و هذا هو المطلوب :)
You can fly while you can touch the sky
اخ محمد و الشباب امل ان ما احد يفهمني خطا ...:o
انا لسه جديد شوي علي البرمجة;) وكنت حابب اسمع انتقادات الشباب للكود و كيفية تطويره واذا كان هناك طرق اسهل علشان نسو نفس الفنكشن .....(f)(gift)(f)
شكرا لك يا صقر الجيل هذا ما كنت ابحثه عنه :):):):):)
شكرا لك وجزاك الله خير
وشيء رهيب
انا في الخدمه
تحياتي ... صقر ...(f)
عفوا شباب
كيف اقدر اشغل ملف asp اقصد باي برنامج:o
اخي العزيز
الحل لمشكلتك هو قراية الموضيع ااوى في المنتدى او الذهاب الى الموقع التالي والذي اكن لصاحبه كل الاحترام حيث كانت بداية تعلمي منه
واذا لم يعجبك اذهب الى احد المواقع الموجودة على الربط التالي
http://www.arabteam2000.com/vb/showthread....&threadid=11393
تحياتي ... صقر ...(f)
<%if Request.Form("name") <> "" then
name_val=Request.Form("name")
end if%>
الان لاحظ انهىاولا قمنا استدعاء قيمة الحقل من الفورم المرسله عن طريق الرفرش في حالة ان هذه القيمة فارغة فان ذلك يعني انه لم يتم عمل رفرش لصفحة من قبل في حالة انها لم تكن فارغة فان قيمتها ستكون القيمة السابقة لحقل اي اننا سنحافظ على قيمة الحل من عير تغير
الان يمكن تطبيق ذلك على بقية الحقر
Email :
<%if Request.Form("mail") <> "" then
mail_val=Request.Form("mail")
end if%>
Country :
<%
SQL="select Country,CountryID from Country"
set rs=conn.execute(SQL)
if Request.Form("country") <> "" then
selCou=Request.Form("country")
else
selCou=0
end if
if Cint(selCou)=0 then
%>Other
<%else%>
Other
<%end if
do while not rs.eof
if Cint(selCou)=Cint(rs(1)) then
Response.Write("" & rs(0) & "")
else
Response.Write("" & rs(0) & "")
end if
rs.movenext()
loop
%>
Else:
<%if Request.Form("OtherCountry") <> "" then
OtherCountry=Request.Form("OtherCountry")
end if%>
City:
<%
if Cint(selCou)=0 then
if Cint(request.form("city"))=0 then%>
Other
<%else%>
Other
<%end if
else%>
Other<%
end if
SQL1="select City,CityID from City where CountryID=" & selCou
set rs=conn.execute(SQL1)
do while not rs.eof
if Cint(request.form("city"))=Cint(rs(1)) then
Response.Write("" & rs(0) & "")
else
Response.Write("" & rs(0) & "")
end if
rs.movenext()
loop
%>
Else:
<%if Request.Form("OtherCity") <> "" then
OtherCity=Request.Form("OtherCity")
end if%>
College :
<%
SQL5="select College,ClgID from College"
set rs=conn.execute(SQL5)
if Request.Form("College") <> "" then
selcol=Request.Form("College")
else
selcol=0
end if
if Cint(selcol)=0 then %>
Other
<%else%>
Other<%
end if
do while not rs.eof
if Cint(selcol)=Cint(rs(1)) then
Response.Write("" & rs(0) & "")
else
Response.Write("" & rs(0) & "")
end if
rs.movenext()
loop
%>
Else:
<%if Request.Form("OtherClg") <> "" then
OtherClg=Request.Form("OtherClg")
end if%>
Department:
<%
if Cint(selcol)=0 then
if Cint(request.form("Department"))=0 then
%>Other<%
else
%>Other<%
end if
else
%>Other<%
end if
SQL6="select Department,DptID from Department where ClgID=" &selcol
set rs=conn.execute(SQL6)
do while not rs.eof
if Cint(request.form("Department"))=Cint(rs(1)) then
Response.Write("" & rs(0) & "")
else
Response.Write("" & rs(0) & "")
end if
rs.movenext()
loop
%>
Else:
<%if Request.Form("OtherDpt") <> "" then
OtherDpt=Request.Form("OtherDpt")
end if%>
<%If request.querystring("Reg")="0" then%>
Some info are not there , please compleate them
or you did not enter a must
information
<% End if
conn.close%>
المعذرة ولكن انا لم افهم cint في الكود ماذا تعمل
if Cint(selCou)=0 then
if Cint(request.form("city"))=0 then%>
Other
انها لتحويل القيمة الى عدد صحيح واحيانا لتاكد من انها بلاشك كذالك
هذا الموضوع مغلق.