السلام عليكم انا اريد ان اجعل صفحة ما تتحق من وجود كوكي معينة اذا كنت موجودة تقرأ منها و اذالم تكن موجودة توجه المتصفح لصفحة اخرى
و كتبت هذا الكود بس ما نفع ؟؟
Response.Buffer = True
fname=Request.Cookies("user")
if fname="" then
response.redirect "add.asp"
else
response.write("أهلا بك يا " & fname)
end ifعندما اضغط على لنك للصفحة لا تستجيب واذا حذفت response.buffer = true
تظل المشكلة قائمة
اخي أحمد يجب أن تتأكد من أنك زرعت ملف كوكي في جهاز العميل كالتاي :
Response.Cookies("user")="محمد خليل"ياريت تكتب الكود كامل في حال بقاء المشكلة .. المهم ان الكود يحتوي على طريقة كتابة الكوكي و قرائته ..
You can fly while you can touch the sky
كود الاضافة
Response.Cookies("user")=request.form ("username")
Response.Cookies("user").Expires=now()+300
response.redirect"add.asp"كود طلب الكوكي كمابالأعلى
و عندما اقوم باضافة الكوكي ثم افتح الصفحة التي تطلبها لعرض قيمتها تعمل جيدا
اما حينما احذف الكوكي ثم افتح الصفحة التي تطلبها من اجل التاكد ان كود redirect يعمل فلا تستجيب
كيف يعني لا تستجيب ؟؟ هل لأمر الانتقال لصفحة أخرى قصدك ؟؟
ربما كانتن تحمل الملفات من الملفات المؤقتة لذا استخدام
response.Expires=0
You can fly while you can touch the sky
لا تستجيب بمعني انه عند الضغط على رابط الصفحة تظل تتحمل لكن لا تنتهي ابدا يعني تظل شاشة المتصفح بيضاء او على الصفحة السابقة وهذه لا تتحمل في المتصفح ابدا
اقتباستظل تتحمل لكن لا تنتهي
معني كلامك ان الأمر response.redirect يتنفذ كل مرة اذا هناك خلل في الشرط ..
انا أرى أن تعيد صياغة الفكرة اي برمجتها بطريقة أخرى أفضل .
You can fly while you can touch the sky
انا وضعت هذا الكود في صفحة مستقلة
<%
Response.Buffer = True
fname=Request.Cookies("user")
if fname="" then
response.redirect "add.asp"
else
response.write("أهلا بك يا " & fname)
end if
%>وما تزال المشكلة قائمة اذا كانت الكوكي غير موجودة فان redirect لا تعمل اما اذا كانت موجودة فان response.write("أهلا بك يا " & fname) تعمل
:confused::confused::confused:
هناك طريقة للتاكد من أنه هل هناك قيمة للكوكي ام لا و هي كتالي :
IF request.Cookies(user).HasKeys THEN ' display his name ELSE 'redirect him END IF
جرب هذه الطريقة إذا لم تصلح ارفق الملف هنا و سأعيده لك محلولا ان شاء الله..
You can fly while you can touch the sky
مشكور اخ محمد المشكلة اتحلت (f)
هذا الموضوع مغلق.