كيف اخذ القيمه المرجعه من YESNO MSGBOX

مغلق

بدأه صقر الجبل في 5 فبراير 2003 · 12 رد · 900 مشاهدة · في منتدى تصميم صفحات الويب

#15 فبراير 2003 في 10:30 صاحب الموضوع

السلام عليكم ...

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

انا جربت التالي بس ما مشي ما اعرف ليش ..

<%

sql="select * from ProjRel where SQUID="&SQUID

set rs=conn.execute(sql)

if not rs.eof then

	%>

	<script language=vbscript>

  action=	MsgBox ("This User Has Some Projects Assigned To him Are you sure that you whant to delete him",vbYesNO,"Webmaster")

	</script>

	<%

	if action <>7 then

  sql="delete * from Regstr where SQUID="&SQUID

  conn.execute(sql)

  sql="delete * from ProjRel where SQUID="&SQUID

  conn.execute (sql)

	end if





end if

response.redirect "administration.asp"

%>

ما اعرف اذا انا محتاج اوضح اكثر لان الكود يوضح المطلوب ...:rolleyes:

#25 فبراير 2003 في 10:51

من خلال فهمي لسؤلك حاول في هذا المثال

Private Sub Command1_Click()

Dim x As Integer

x = MsgBox("chose on", vbYesNo)'ضع الرساله في متغير

If x = vbYes Then 'التاكد من القيمة المردودة من الرسالة

MsgBox "you select yesy" 'الكود المراد تنفيذة في حالى yes

Else

MsgBox "you select no" ' الكود المراد تنفيذة في حالةno

End If

End Sub

#35 فبراير 2003 في 10:56

من خلال فهمي لسؤلك حاول في هذا المثال

Private Sub Command1_Click()

Dim x As Integer

x = MsgBox("chose on", vbYesNo)''ضع الرساله في متغير

If x = vbYes Then 'التاكد من القيمة المردودة من الرسالة'

MsgBox "you select yesy" ''الكود المراد تنفيذة في حالى yes

Else

MsgBox "you select no" '' الكود المراد تنفيذة في حالةno

End If

End Sub

#45 فبراير 2003 في 12:19

اولا اهلا بك اخي معنا ...:D

ثم اني جربت الكود مالك مع بعض التعديل واعذرني على ذلك وهو تمام

<%

Sub Command1_Click()

%>

<script language=vbscript>

Dim x

x = MsgBox("chose on", vbYesNo)

If x = vbYes Then 

MsgBox "you select yesy"

A="yes"

Else

MsgBox "you select no" 

End If

</script>



<%

End Sub

call Command1_Click

%>

ولكن قيمة اكس تظل في الكلينت و ما ترجع على السيرفر وانا اريد اسخدمها في السيرفر كما تلاحظ من الكود الاصلي

	if action <>7 then

  sql="delete * from Regstr where SQUID="&SQUID

  conn.execute(sql)

  sql="delete * from ProjRel where SQUID="&SQUID

  conn.execute (sql)

	end if

هل من حل لذلك ..؟؟؟؟؟؟؟؟؟؟؟؟؟

#56 فبراير 2003 في 10:57

وين الشباب ...:rolleyes:

#68 فبراير 2003 في 06:00

<script language=vbscript">

sub button_Onclcik

Dim x

x = MsgBox("chose on", vbYesNo)

If x = vbYes Then 

MsgBox "you select yesy"

A="yes"

Else

MsgBox "you select no" 

End If

End sub

</script>

#78 فبراير 2003 في 18:10

ما فهمت اخ احمد ياليت التوضيح ...وجزاك الله عني كل خير ...

#88 فبراير 2003 في 19:07

عند الضغط على الزر يظهر صندوق حوار يطلب من المستخدم الاختيار بالضغط اما على موافق او غير موافق .... فاذا ضغط على موافق ظهرت الرسالة "you select yes" واذا ضغط على الزر الاخر ... ظهرت الرسالة الاخرى

#99 فبراير 2003 في 05:44

فهمت الي قلته استاذ احمد بس ......

انا جربت الكود ... الي وضعته بالشكل التالي ...

<html>

<head>

</head>

<script language=vbscript>

MsgBox("chose on", vbYesNo)



sub button1_Onclcik()

Dim x

x = MsgBox("chose on", vbYesNo)

If x = vbYes Then 

MsgBox "you select yesy"

A="yes"

Else

MsgBox "you select no" 

End If

End sub

</script>

<body>

<p><input type="button" value="Test" name=button1></p>

<%response.write x%>

</body>

</html>

بس ما شي بيظهرلي لا مسج ولا يحزنون ...

الكود قدامي 100% شكله سليم ما ادري وين الخطاء ...:confused:

هل هناك عيب في جهازي ام ماذا ...:confused:

...سمحلي احمد عذبتك معاي:o....

#1010 فبراير 2003 في 00:20

<html>



<head>

<title>New Page 1</title>

<script language=vbscript>

sub B3_OnClick()

'MsgBox("Do you want to leave ???", vbYesNo)

Dim x

x = MsgBox("Do you want to leave??", vbYesNo)

If x = vbYes Then 

MsgBox "you selected yes"

'A="yes"

Else

MsgBox "you selected no" 

End If

End sub

</script>



</head>



<body>



<form method="POST" action="">

<input type="button" value="Button" name="B3"><</form>

</body>



</html>

#1110 فبراير 2003 في 15:09

انت حقا رائع استاذ احمد ... الكود مشي معي

بس ياليت تشرح لي ايش تاثير الفرم تاج الذي سبب عدم اشتغال الكود معي في البدايه

ثم لازالت مشكلة ارجاع قيمة x الي السيرفر من غير الانتقال الى صفحه ثانيه لان المشكله التي اريد حلها هي

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

نعم نحذف لا نرجع الي صفحه ثانيه

اخيرا عيدك مبارك ...(f)(gift)(gift)(gift)

#1210 فبراير 2003 في 17:48

أخوي ال Java script 0r Vbscript يكون تنفيذها Client-side يعني على جهازك انت أما ال ASP فهي تنفذ Server Side و ترسل الترجمة لجهازك ..

اذا تصور كيف يمكن ان يتم تنفيذ الاثنين معا ؟؟

يمكن أن تنفذ كود ASP و من خلال شرط ما فيه يتم تنفيذ السكريبت الخاص بالفي بي سكريبت مثلا عند ارسال نسخة مترجمة لجهازك حيث أن كود ال ASP سيتحول إلىHTML و مضمن لها السكريبت الخاص برسالة او غيره ..

و التنفيذ لناتج السكريبت سيكون على جهازك انت و ليس على السيرفر فقد ترجم هناك و بعثت لك نسخة ..

لذا لا يمكن عمل العكس و هو تنفيذ الفي بي سكريبت اولا ثم ال ASP لان الكود ياتي من السيرفر لجهازك انت و الذي يسمى العميل ..

أتمنى أن تكون فكرتي وضحت .. :)

You can fly while you can touch the sky

#1310 فبراير 2003 في 20:09

استاذ محمد كلامك مفهوم و واضح ...:(

عموما شكرا لجميع من حاول مساعدتي و السموحة تعبتكم معاي :o خصوصا الاستاذ احمد

و كل عام و الجميع بالف خير ...(f)

هذا الموضوع مغلق.

مواضيع مشابهة

كيف اخذ قيمة من label موجود temtemplate in datalist2 رد · 28 سبتمبر 2013
كيف اخذ قيمه من dropdown list11 رد · 25 مايو 2007
كيف يمكن اخذ قيمة من حقل unbound داخل datagrid8 رد · 11 يوليو 2010
كيف استطيع اخذ قيمة متغير من كلاس ووضعها بكلاس اخر10 رد · 5 يونيو 2007
كيف يمكن أخذ نصف القيمة من الحقل باستخدام Select3 رد · 29 نوفمبر 2008
كيف أضع صورة في الmsgbox13 رد · 27 مايو 2007