إليك عداد رسومي جميل مصمم بدون CGI.
وينقسم هذا إلى ثلاثة أجزاء: 1. إنشاء ملفات الرسومات.
2. إنشاء قاعدة بيانات.
3. اكتب الكود.
1. إنشاء ملفات الرسومات.
أولاً، استخدم برنامج الرسم البياني لإنشاء 10 رسومات لعرض الأرقام العشرة للعداد: 1، 2، 3، 4، 5، 6، 7، 8، 9، 0. إذا كان لديك موهبة فنية، يمكنك إنشاء رسومات أفضل.
2. إنشاء قاعدة بيانات.
تستخدم لإنشاء قاعدة بيانات باسم . تحتوي قاعدة البيانات على جدول
الاسم هو أن البنية هي: عدد صحيح، وهناك سجل واحد، والقيمة الأولية هي 0.
يستخدم لتخزين آخر عدد من الزيارات لهذه الصفحة.
3. اكتب الكود.
——————number.asp ————————————
<%@ language="vbscript" %>
<!--#include file="adovbs.inc"-->
<%
تعيين objconn=server.createobject("adodb.connection")
objconn.attributes=adxactcommitretaining
dbpath=server.mappath("num.mdb")
objconn.open "driver={برنامج تشغيل الوصول إلى Microsoft (*.mdb)};dbq=" & dbpath
ملاحظة: إنشاء اتصال بقاعدة البيانات.
sqlquery="اختر * من numt"
تعيين rsrecordset=server.createobject("adodb.recordset")
rsrecordset.open sqlquery، objconn، adopenkeyset، adlockoptimistic
ملاحظة: افتح قاعدة البيانات.
application.lock
التطبيق("nmb")=rsrecordset("الرقم")
application.unlock
ملاحظة: قم بتعيين آخر عدد وصول لكائن التطبيق
application.lock
application("nmb")=application("nmb")+1
application.unlock
rsrecordset("number")=rsrecordset("number")+1
rsrecordset.update
rsrecordset.إغلاق
objconn.إغلاق
تعيين rsrecordset=لا شيء
تعيين objconn=لا شيء
ملاحظة: أغلق قاعدة البيانات وحرر الكائن
dim nmb1
شارع خافت ()
nmb1=application("nmb")
تخليص شارع (nmb1)
لأني = 1 إلى لين (nmb1)
str(i)=mid(nmb1,i,1)
ملاحظة: لكل رقم، احصل على ملف الرسم المقابل
، حدد الحالة str(i)
حالة "0"
imgF = "0.gif"
حالة "1"
imgF = "1.gif"
حالة "2"
imgF = "2.gif"
حالة "3"
imgF = "3.gif"
حالة "4"
imgF = "4.gif"
حالة "5"
imgF = "5.gif"
حالة "6"
imgF = "6.gif"
حالة "7"
imgF = "7.gif"
حالة "8"
imgF = "8.gif"
حالة "9"
imgF = "9.gif"
حدد النهاية
ملاحظة: إخراج
الاستجابة الرسومية.write"<img src="&imgF&">"
التالي
%>