Counter.NET

آخرين بروز رسانی : 2002/12/23

Counter.NET يک فايل DLL برای شمارنده يا Counter سايتها می باشد . اين برنامه اطلاعات را در يک فايل Access ذخيره می کند .

ابتدا فايل فشرده شده که حاوی فايل DLL اصلی ، DLL تاريخ شمسی و فايل Access می باشد دريافت کنيد . سپس در ويژوال استوديو يک پروژه جديد برای مثال با نام myCounterTest بسازيد .

حالا فايلهای DLL را در دايرکتوری Bin از پروژه جديدی که ساخته ايد کپی کنيد . فايل MDB را هم در دايرکتوری DB کپی کنيد .

در قسمت References اين دو فايل را اضافه کنيد .

از toolbox يک Table انتخاب و بر روی webform قرار دهيد .

اين خط را در بالای کد های webform بنويسيد .

Imports CounterDLL.HamedBanaei

حالا در سابروتين ِ Load از WebForm اين خطوط را بنويسيد .

Dim x As New MyCounter()

با اين خط يک نمونه از کلاس MyCounter می سازيد .

x.DBPath = Server.MapPath("db/counterdb.mdb")

آدرس فايل ديتابيس را بوسيله اين property وارد می کنيد .

x.RequestData = Request

آبجکت Request را برای دريافت اطلاعات مرورگر و سيستم عامل ست می کنيد .

Response.Write(x.IncreaseCounter("mymain"))

تعداد هيت های صفحه mymain را يکی اضافه می کند . برای هر صفحه می توانيد يک اسم داشته باشيد ، مثلا ً mainpage ، testpage يا هر چيز ديگر . اگر از قبل آن نام در ديتابيس وجود داشته باشد مقدار آن را يکی اضافه می کند و اگر آن نام وجود نداشته باشد آن را ايجاد می کند و مقدار يک را برای آن در نظر می گيرد .

Response.Write(x.CounterValue("mymain", MyCounter.CounterValueKinds.Today))

بوسيله اين تابع می توانيد تعداد هيت های يک صفحه ( مانند mymain ) را از ديتابيس بخوانيد . پارامتر دوم مشخص می کند که کل هيت ها باشد يا فقط هيت های امروز .

Dim ds As New DataSet()

ds = x.GetBrowserPercent("mymain")

خروجی تابعی که در صد استفاده از مرورگر ها يا سيستم عامل ها را می دهد يک DataSet است که در جدول آن ، فيلد اولش نام مرورگر يا سيستم عامل و فيلد دوم در صد آن در صفحه مورد نظر است .

Response.Write("<br>")

Dim i As Integer

For i = 0 To ds.Tables(0).Rows.Count - 1

Response.Write(ds.Tables(0).Rows(i)(0) + " " + ds.Tables(0).Rows(i)(1).ToString + " <br>")

نوشتن اطلاعات جدول .

ds = x.GetOSPercent("mymain")

For i = 0 To ds.Tables(0).Rows.Count - 1

Response.Write(ds.Tables(0).Rows(i)(0) + " " + ds.Tables(0).Rows(i)(1).ToString + " <br>")

x.GetChart(MyCounter.Dates.LastWeek, "mymain", Table1)

بوسيله GeChart می توانيد نموداری مانند آنچه من در سايتم دارم داشته باشيد . پارامتر اول تعداد روزهای نمودار است ، پارامتر دوم نام صفحه مورد نظر و سوم همان جدولی است که بر روی webform ايجاد کرده ايد .

x = Nothing

نتيجه نهايی :

شما برای اينکه فقط يک هيت ثبت کنيد می توانيد از 5 خط اول مثال استفاده کنيد . برای کشيدن نمودار و استفاده از ديگر اطلاعات از webform ديگری استفاده کنيد .

در صورت وجود هر گونه ايراد يا پيشنهاد به من نامه بدهيد .

دريافت :

CounterNEt.zip 22KB

متن برنامه بالا 30 کيلوبايت

اين صفحه نمونه فايل بالاست .