الدرس الثاني ( اعلم زائر موقعك ان هذه ليست المرة الاولى التى يزور بها الموقع)
هناك الكثير من الاضافات التى يمكنك وضعها في موقعك ، للدلالة على كونك مبرمج و مصمم في ان واحد وليس مصمم عادي ومن هذه الزيادات ان تخبرالزائر بان هذه هي المرة الثالثة التى يزور فيها الموقع على سبيل المثال او ان تضع له رسالة ترحيب على اساس انها المرة الاولى للزيارة .
هذا الدرس مبني على اساس استخدام cookies و للذين لا يجيدون استخدامها ساضع درس متكامل عن كيفية استخدامها في القريب إن شاء الله .
الشرح :
في اعلى الصفحة الرئسية في موقعك ضع الكود الاتي:
Dim alofoq ' الافق هو اسم الصفحة الرئيسية للموقع ، تستطيع استخدام اي اسم
alofoq = "saqar" '
If Request.Cookies(alofoq)("visits") <> "" Then
Response.Cookies(alofoq)("visits")= Request.Cookies(alofoq)("visits") + 1
Response.Cookies(alofoq).Expires = Date + 365
session("visit_count") = Request.cookies(alofoq)("visits")
Else
Response.Cookies(alofoq)("visits") = 1
Response.Cookies(alofoq).Expires = Date + 365
session("visit_count") = 1
End If
%>
<%
استخدم الكود التالي في المكان الذي تريد اظهار عبارة لقد زرت هذا الموقع كذا من المرات :
If session("visit_count") <> "" Then
Response.Write session("visit_count")
Else
session("visit_count") = Request.cookies("alofoq")("visits")
Response.Write session("visit_count")
End If
%>مرات </p>
<p dir="rtl">لقد قمت بزيارتنا <%
تحياتي ... صقر ...(f)