يقوم هذا البرنامج بوضع أرقام العدادات في قاعدة بيانات ACCESS، ولكن يمكنك استخدام أي مصدر بيانات ODBC آخر ترغب فيه. يقرأ هذا البرنامج معلومات العدادات من عنوان URL:
< IMG src="id=MYTEST&seq=default&cells =7" >
حدود
المعرف هو
تعيين صفحة الويب الخاصة بالعميل (أي اسم المستخدم). في كل مرة تستخدم فيها معرفًا جديدًا، سيتم إدراج سجل جديد في قاعدة البيانات. إذا كان المعرف موجودًا في الأصل، فسيزيد عدده بمقدار 1. إذا كنت لا تريد أن يقوم العميل بتنشيط المعرف تلقائيًا ويحتاج إلى التسجيل، فيمكنك تعيين قيمة "الإدراج التلقائي" إلى False
وهو
أمر اختياري. يتم استخدامه لتحديد نمط صورة العداد اسم الصورة المعروضة على العميل هو .gif. القيمة الافتراضية هي "defalut.gif"، ويجب وضع "defalut.gif" في دليل العمل الحالي
وهو
أمر اختياري النتيجة، الافتراضي هو 5 أرقام (هذه القيمة التي قمت بتعيينها في البرنامج (يمكن تعديلها أيضًا) كيفية تشغيل هذا البرنامج؟ انسخ هذا البرنامج إلى المكان الذي تريده في الخادم.
قم بإنشاء مصدر بيانات "Webcounter". يجب أن يكون هناك جدول يسمى "الرئيسي" في مصدر البيانات هذا، وفيما يلي حقول الجدول الموجودة في:
< table border = "1" cellpadding = "3" cellpacing = "1" >
<تر>
<ال>الحقل< /ال>
< ث >اكتب< /ث >
< عشر >مفهرسة< /th >
< ث >يعني< /ث >
< /تر>
<تر>
<td>المعرف< /td>
< td >الرقم التلقائي</ td >
< td > نعم </ td >
< td > لاحتياجاتك </td >
< /تر>
<تر>
<td>المعرف</td>
< td > نص </ / td >
< td > نعم </ td >
<td>اسم المستخدم</td>
< /تر>
<تر>
<td>العدد< /td>
< td >الرقم</ td >
< td >لا< /td >
< td >عد الأرقام</td>
< /تر>
</الجدول>
إذا لزم الأمر، قم بتعيين أذونات لقاعدة البيانات
وإنشاء دليل لتخزين رسومات GIF في هذا الدليل، يجب وضع مجموعة رسومات واحدة على الأقل من ملف default.gif.
ضع بعض الرسومات الرقمية في هذا الدليل والتي تكون قابلة للقسمة على 10.
< عرض الجدول = "100٪" الحدود = "1" تباعد الخلايا = "1" خلية الحشو = "2" >
<تر>
< td bgcolor="#ccffff" >ملف < b >counter.asp< /b > </ /td >
< /تر>
<تر>
< td bgcolor="#ffffcc" >< قبل >
<%
Response.ContentType = "صورة/gif"
الاستجابة.انتهاء الصلاحية=0
'الدليل الذي يتم وضع أشرطة GIF فيه ينتهي بـ .
ووركدير = "ج:gifbars"
"اضبط هذا على خطأ إذا كنت تريد تعطيل الإدراج التلقائي."
'سجلات مضادة جديدة لقاعدة البيانات في كل نتيجة فريدة من نوعها
سلسلة معرف
auto_insert=صحيح
معرف=تريم(Request.QueryString("id"))
seq=Trim(Request.QueryString("seq"))
إذا seq = "" ثم seq = "الافتراضي"
الخلايا=تريم(Request.QueryString("الخلايا"))
إذا كانت الخلايا = "" فإن الخلايا = 5 خلايا أخرى = خلايا * 1
مجموعة conn=Server.CreateObject("ADODB.Connection")
conn.فتح "Webcounter"
sql="اختر العد، المعرف من الرئيسي حيث id='" & id & "'"
تعيين rs=conn.Execute(sql)
إن لم يكن rs.EOF ذلك الحين
العد = rs("العد")+1
الهوية = آر إس ("الهوية")
رس.إغلاق ()
conn.Execute("تحديث عدد المجموعة الرئيسية = العد + 1 حيث ident = "& ident)
كون.إغلاق ()
إظهار الأرقام ()
آخر
رس.إغلاق ()
إذا auto_insert=True وid< >"" إذن
conn.Execute("أدخل في القيم الرئيسية (المعرف، العدد) ('" & id & "',1)")
العد = 1
إظهار الأرقام ()
نهاية إذا
كون.إغلاق ()
تنتهي إذا
Sub ShowNumbers ()
تعيين g=CreateObject("shotgraph.image")
اسم الملف=workdir & seq & ".gif"
إذا كان g.GetFileDimensions(filename,xsize,ysize,pal)< >1 ثم قم بالخروج من Sub
xdigit=xsize10
g.CreateImage xdigit*cells,ysize,UBound(pal)+1
g.InitClipboard xsize، ysize
g.SelectClipboard صحيح
من أجل i=0 إلى UBound(pal)
g.SetColor i,pal(i,0),pal(i,1),pal(i,2)
التالي
g.ReadImage filename,pal,0,0
لأني = 1 إلى الخلايا
ك=GetDigit(العدد، الخلايا-i)
g.Copy (i-1)*xdigit,0,xdigit,ysize,k*xdigit,0,"SRCCOPY"
التالي
Response.BinaryWrite g.GifImage(-1,1،"")
نهاية الوظيفة الفرعية
GetDigit (الرقم، الموضع)
number1=الرقم(10^الموضع)
tmp=number110
GetDigit=number1-tmp*10
وظيفة النهاية
٪>
<xmp>
</قبل>
</ /تد>
< /تر>
</table>
<hr >< /span >< /td >
< /تر>
<تر>
< td width="50%" > </ /td >
< td width="50%" >< br >< /td >
< /تر>
<تر>
<td colspan=2 align="right">
< img border="0" src="images/bbstitle.gif" >< a id="hlkAddMsg" href="/AddMsg.aspx?id=234" style="color:red" >اترك تعليقًا</a >
< img border="0" src="images/mail.gif" >< a id="hlkMailTo" href="/MailTo.aspx?id=234" >أرسل هذه الصفحة بالبريد</a>
< img border="0" src="images/print.gif" >< a href="javascript:window.print()" >اطبع هذه الصفحة</a>
< img border="0" src="images/profile.gif" >< a href="javascript:void(null)" onclick="if(!document.execCommand('SaveAs','show.aspx',1 )) return false;" >احفظ هذه الصفحة< /a >
< img border="0" src="images/ask.gif" >< a href="bbs/index.asp" >لديك أسئلة</a>
</ /تد>
< /تر>
<tr bgcolor="#97B9FF">
< td width="50%" >< b >< الخط color="#FFFFFF" >مقالات ذات صلة</font >< /b >< /td >
< td width="50%" >< b >< الخط color="#FFFFFF" >التعليقات ذات الصلة</font >< /b >< /td >
< /تر>
<تر>
< عرض td = "50٪" valign = "أعلى" >
</ /تد>
< td width="50%" valign="top" >
</ /td >
< /تر>
<تر>
< العرض td = "50٪">
</ /تد>
< td width="50%" align="right" >< img border="0" src="images/more.gif" >< a id="hlkRela" >< /a >< /td >
< /تر>
</الجدول>
</ /تد>
< /تر>
</الجدول>
</ /تد>
< /تر>
</الجدول>
</الجسم>
</أتش تي أم أل>