واضح آرشیو وب فارسی:سایت ریسک: 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]