تور لحظه آخری
امروز : شنبه ، 15 دی 1403    احادیث و روایات:  پیامبر اکرم (ص):نيّت مؤمن بهتر از عمل او و نيت منافق بدتر از عمل اوست.
سرگرمی سبک زندگی سینما و تلویزیون فرهنگ و هنر پزشکی و سلامت اجتماع و خانواده تصویری دین و اندیشه ورزش اقتصادی سیاسی حوادث علم و فناوری سایتهای دانلود گوناگون شرکت ها

تبلیغات

تبلیغات متنی

صرافی ارکی چنج

صرافی rkchange

سایبان ماشین

دزدگیر منزل

اجاره سند در شیراز

armanekasbokar

armanetejarat

صندوق تضمین

Future Innovate Tech

پی جو مشاغل برتر شیراز

خرید یخچال خارجی

موسسه خیریه

واردات از چین

حمية السكري النوع الثاني

ناب مووی

دانلود فیلم

بانک کتاب

دریافت دیه موتورسیکلت از بیمه

طراحی سایت تهران سایت

irspeedy

درج اگهی ویژه

تعمیرات مک بوک

دانلود فیلم هندی

قیمت فرش

درب فریم لس

خرید بلیط هواپیما

بلیط اتوبوس پایانه

تعمیرات پکیج کرج

لیست قیمت گوشی شیائومی

خرید فالوور

پوستر آنلاین

بهترین وکیل کرج

بهترین وکیل تهران

خرید از چین

خرید از چین

تجهیزات کافی شاپ

خرید سرور اچ پی ماهان شبکه

کاشت ابرو طبیعی و‌ سریع

قیمت بالابر هیدرولیکی

قیمت بالابر هیدرولیکی

قیمت بالابر هیدرولیکی

لوله و اتصالات آذین

قرص گلوریا

نمایندگی دوو در کرج

دوره آموزش باریستا

مهاجرت به آلمان

بورس کارتریج پرینتر در تهران

تشریفات روناک

نوار اخطار زرد رنگ

ثبت شرکت فوری

تابلو برق

خودارزیابی چیست

فروشگاه مخازن پلی اتیلن

قیمت و خرید تخت برقی پزشکی

کلینیک زخم تهران

خرید بیت کوین

خرید شب یلدا

پرچم تشریفات با کیفیت بالا و قیمت ارزان

کاشت ابرو طبیعی

پرواز از نگاه دکتر ماکان آریا پارسا

پارتیشن شیشه ای اداری

اقامت یونان

خرید غذای گربه

رزرو هتل خارجی

تولید کننده تخت زیبایی

مشاوره تخصصی تولید محتوا

سی پی کالاف

دوره باریستا فنی حرفه ای

چاکرا

استند تسلیت

تور بالی نوروز 1404

سوالات لو رفته آیین نامه اصلی

کلینیک دندانپزشکی سعادت آباد

پی ال سی زیمنس

دکتر علی پرند فوق تخصص جراحی پلاستیک

تجهیزات و دستگاه های کلینیک زیبایی

 






آمار وبسایت

 تعداد کل بازدیدها : 1849925601




هواشناسی

نرخ طلا سکه و  ارز

قیمت خودرو

فال حافظ

تعبیر خواب

فال انبیاء

متن قرآن



اضافه به علاقمنديها ارسال اين مطلب به دوستان آرشيو تمام مطالب
archive  refresh

تعداد بازدیدکنندگان یک صفحه -


واضح آرشیو وب فارسی:سایت ریسک: t=6957">تعداد بازدیدکنندگان یک صفحه salar007 15 بهمن 1382, 22:48آقا مدتی هست من تو یه صفحه در یک نشریه الکترونیکی مطلب می نویسم بهترین و راحت ترین کار برای اینکه بفهمم در هر شماره صفحه ی مربوط به من چند تا بازدیدکننده داره به نظر شما چیه ؟ اگه روشی میدونید که مثل بعضی از این سایت ها که این امکان رو میدن نباشه! یعنی تو اون صفحه غیر مطلب من چیزی نشون داده نشه! salar007 17 بهمن 1382, 12:47كسي نيست! Norik 17 بهمن 1382, 15:17address please mahdiflash 07 اسفند 1382, 23:44یه سری به بزن rahincom 09 اسفند 1382, 13:15یه سری به بزنmahdiflash جان مثل اينكه شما خوب مطلب رو نخوندي ها ( بهتر مطلب رو خوب بخوني ) mahdiflash 09 اسفند 1382, 19:11يعني مثل اين نمي خواهي akaveh 31 فروردين 1383, 00:11راهي نيست بدون استفاده از سايتها اين كار بشه چون اين سايت چند با خود به خود 0 ميكنه Amir Hossein 31 فروردين 1383, 08:08فكر كنم تو يكي از انجمنها اموزشش بود akaveh 31 فروردين 1383, 23:43فكر كنم تو يكي از انجمنها اموزشش بود مي توني لينك شو بزاري AliReza 26 07 ارديبهشت 1383, 03:48چرا راهي نيست عزيز بگو با چه زبوني مي خواهي بگم؟؟؟؟؟؟؟؟؟؟؟؟ ehsan_lord_cracker 08 ارديبهشت 1383, 02:48آقا خيلي لطف ميكنيد اگر بگيد منم ميخوام ولي اي اس پي رو هم لطفا بگيد ممنون :oops: AliReza 26 08 ارديبهشت 1383, 13:17آقا با اي س پي: :wink: اين كد را در صفحه اي كه كاربر مقالت را مي خوانه كد زير را به آن صفحه اضافه كن : :wink: <% Const ForReading = 1 Dim objOpenFile, objFSO, iCount,strpath strpath = "C:/counter.txt" Set objFSO = _ Server.CreateObject("Scripting.FileSystemObject") If objFSO.FileExists(strPath) Then Set objOpenFile = _ objFSO.OpenTextFile(strPath, ForReading) iCount = Cint(objOpenFile.ReadLine) + 1 objOpenFile.Close Else iCount = 1 End if Set objOpenFile = objFSO.CreateTextFile(strPath, True) objOpenFile.WriteLine(iCount) objOpenFile.Close Set objOpenFile = Nothing Set objFSO = Nothing %> و اين كد را هم براي خواندن كنتور از فايل استفاده كنيد. :wink: <% Dim objOpenFile1, objFSO1, strPath1 strPath1 = "C:counter.txt" Set objFSO1 = _ Server.CreateObject("Scripting.FileSystemObject") If objFSO1.FileExists(strPath1) Then Set objOpenFile1 = _ objFSO1.OpenTextFile(strPath1,1) response.write (objOpenFile1.ReadLine) objOpenFile1.Close End if Set objOpenFile1 = Nothing Set objFSO1 = Nothing %> akaveh 08 ارديبهشت 1383, 16:13سلام آقا ممنون امكانش هست php رو هم بزاريد AliReza 26 09 ارديبهشت 1383, 00:47چرا كه نه يه مدتي صبر كن حتما مي گذارم.فعلا سرم شلوغه ehsan_lord_cracker 27 ارديبهشت 1383, 01:13آقا خيلي ممنون :ايكس AliReza 26 27 ارديبهشت 1383, 12:24خواهش




این صفحه را در گوگل محبوب کنید

[ارسال شده از: سایت ریسک]
[مشاهده در: www.ri3k.eu]
[تعداد بازديد از اين مطلب: 1283]

bt

اضافه شدن مطلب/حذف مطلب







-


گوناگون

پربازدیدترینها
طراحی وب>


صفحه اول | تمام مطالب | RSS | ارتباط با ما
1390© تمامی حقوق این سایت متعلق به سایت واضح می باشد.
این سایت در ستاد ساماندهی وزارت فرهنگ و ارشاد اسلامی ثبت شده است و پیرو قوانین جمهوری اسلامی ایران می باشد. لطفا در صورت برخورد با مطالب و صفحات خلاف قوانین در سایت آن را به ما اطلاع دهید
پایگاه خبری واضح کاری از شرکت طراحی سایت اینتن