karim orooji
جمعه 23 مهر 1389, 18:22 عصر
نحوه ایجاد یک کنتور یا شماره ساده رو برای شما توضیح میدم
اين برنامه يک مثال خوب از نحوه باز کردن ، خواندن و نوشتن داخل يک فايل است که نياز به هيچ نوع بانک اطلاعاتی هم ندارد . اين فايل را با اسم counter.asp ذخيره کنيد و در کنارش يک فايل متنی ساده به کمک NotePad و به نام database.inc ايجاد کنيد و در سطر اولش هم عدد صفر يا هر عدد ديگری را که مايليد پيشفرض شمارنده شما باشد بنويسيد. فراموش نکنيد که سطح دسترسی لازم برای نوشتن را نيز به اين فايل بدهيد . با کمی ابتکار می توان اين شمارنده را به نوع گرافيکی تبديل کرد. حتی می توانيد به تعداد صفحات سايت ، فايل ايجاد کنيد تا تعداد مشاهده هر صفحه را به تنهايی رديابی کنيد
Dim counter As Integer
Dim objFSO, objFile, counter_length As Object
objFSO = CreateObject("scripting.filesystemobject")
objFile = objFSO.opentextfile(Server.MapPath("database.inc"))
'get the current count and store in counter
counter = CLng(objFile.readline)
'add one to the current count
counter = counter + 1
'close file object
objFile.close()
'write a new text object with the same name and new count
objFile = objFSO.CreateTextFile(Server.MapPath("database.inc"), True)
objFile.writeline(counter)
'close file object
objFile.close()
'
counter_length = Len(counter)
'loop through the hit count and display the image
For i = 1 To counter_length
str = Mid(counter, i, 1)
Next
Response.Write(counter)
منبع: http://asp.persianblog.com (mk:@MSITStore:D:\karim\net%202005\ASP.net\new%20s tart\WEB%20MR%20khani\dev.ir.chm::/asp.persianblog.com/default.htm)
اين برنامه يک مثال خوب از نحوه باز کردن ، خواندن و نوشتن داخل يک فايل است که نياز به هيچ نوع بانک اطلاعاتی هم ندارد . اين فايل را با اسم counter.asp ذخيره کنيد و در کنارش يک فايل متنی ساده به کمک NotePad و به نام database.inc ايجاد کنيد و در سطر اولش هم عدد صفر يا هر عدد ديگری را که مايليد پيشفرض شمارنده شما باشد بنويسيد. فراموش نکنيد که سطح دسترسی لازم برای نوشتن را نيز به اين فايل بدهيد . با کمی ابتکار می توان اين شمارنده را به نوع گرافيکی تبديل کرد. حتی می توانيد به تعداد صفحات سايت ، فايل ايجاد کنيد تا تعداد مشاهده هر صفحه را به تنهايی رديابی کنيد
Dim counter As Integer
Dim objFSO, objFile, counter_length As Object
objFSO = CreateObject("scripting.filesystemobject")
objFile = objFSO.opentextfile(Server.MapPath("database.inc"))
'get the current count and store in counter
counter = CLng(objFile.readline)
'add one to the current count
counter = counter + 1
'close file object
objFile.close()
'write a new text object with the same name and new count
objFile = objFSO.CreateTextFile(Server.MapPath("database.inc"), True)
objFile.writeline(counter)
'close file object
objFile.close()
'
counter_length = Len(counter)
'loop through the hit count and display the image
For i = 1 To counter_length
str = Mid(counter, i, 1)
Next
Response.Write(counter)
منبع: http://asp.persianblog.com (mk:@MSITStore:D:\karim\net%202005\ASP.net\new%20s tart\WEB%20MR%20khani\dev.ir.chm::/asp.persianblog.com/default.htm)