تبلیغات
بر فراز اینتر نت - یه شمارنده یا همون کانتر شخصی

بر فراز اینتر نت

مواد لازم :
۱-یه هاست رایگان با ساپورت ASP **نکته:تو این هاست رایگان باید این قابلیت وجود داشته باشه که بتوان فایل txt مربوط به شمارنده رو تغییر داد و اونو خواند البته نه توسط شما بلکه توسط برنامه**
۲-یه کمی وقت
۳-دنبال کردن این مقاله
خوب اگه مواد لازمتون آماده هستن کار رو شرو می کنیم
روش اول شمارنده متنی **مخالفش میشه تصویری**:
تنها کاری که میکنید در هاست خودتون دو فایل زیر رو بوجود می آرید:
الف- فایلی با نام c.txt که قابلیتread&write یا خواندنی و نوشتنی داشته باشه که با هر بار بازدید یکی به اون اضافه بشه . 
ب- نوت پد را باز کرده و متن زیر را در آن کی پست کنید و سپس آن را با فرمت  ASP  وبا نام دبخواه ذخیره کنید. 

<%
' Text Hit Counter Example By www.airweb.mihanblog.com

' Declare variables
Dim ObjCounterFile, ReadCounterFile, WriteCounterFile
Dim CounterFile
Dim CounterHits

Set ObjCounterFile = Server.CreateObject("Scripting.FileSystemObject")

CounterFile = Server.MapPath ("c.txt")

Set ReadCounterFile= ObjCounterFile.OpenTextFile (CounterFile, 1, True)

If Not ReadCounterFile.AtEndOfStream Then
CounterHits = Trim(ReadCounterFile.ReadLine)
If CounterHits = "" Then CounterHits = 0
Else
CounterHits = 0
End If

ReadCounterFile.Close
Set ReadCounterFile = Nothing

CounterHits = CounterHits + 1

Set WriteCounterFile= ObjCounterFile.CreateTextFile (CounterFile, True)
WriteCounterFile.WriteLine(CounterHits)
WriteCounterFile.Close
Set WriteCounterFile = Nothing

Set ObjCounterFile = Nothing
%>

<% =CounterHits %><br>

پ-فایل ها را در هاست خود آپلود کرده و برای مشاهده نتیجه فایل با فرمت  ASP  را باز کنید.
دقت کنید در صورتی که هاست شما قابلیت خواندن و نوشتن روی فایل تکست را نداشته باشد شمارنده همواره عدد یک را نشان میدهد.
نظر یادتون نره
روش دوم یعنی شمارنده تصویری رو در پست بعد بخونید


ادامه مطلب

طبقه بندی: برنامه نویسی، 
نوشته شده در تاریخ یکشنبه 23 مرداد 1384 توسط حسین برمکی
درباره وبلاگ

سلام من حسین برمکی ساکن شهرستان دیلم و دانشجوی مهندسی مکانیک سیالات دانشگاه خلیج فارس هستم.
-------------------
پست الکترونیک
تماس با مدیر
RSS
ATOM