تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
معرفة آخر مرة قمت فيها بزيارة الموقع VBScript
#1
كاتب الموضوع : AhmedEssawy

يعتمد هذا الأمر على عملية تسجيل كوكيز يقوم بتسجيل آخر مرة قمت فيها بزيارة الموقع ، وفي حالة عدم وجود الملف فإن هذه سوف تعتبر الزيارة الأولى لك .

والآن إلى الكود :


كود :
<! Option Explicit
Dim Objfs 'file system object
Dim ObjFile 'file object
Dim ObjTs ' text object
Dim Slnfofile 'path to the info file
Dim Slinf 'used to store information
Set objfs=creatboject("Scripting.FileSystmeobject")
slnfofile = bjfs.getspecialfolder(0) & "\l1.txt"
if obifs.fileExists(slnfofile) Then
Set objfile = obifs.getfile(sinfofile)
Set objfs=objfile.openastextstream(1)
slnfo=objts.readline()
objts.close
else
slnf = "This is First time"
end if
'shoe msg
document.write slnfo & "<br>"
'store the new msg
slnfo = "yourlast vist is <b>" &Now & "</b>.welcomeback"
set objts=objfile.openastextstream(2)
objts.writline(slnfo)
objts.close
set objts=nothing
}}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  معرفة موقع الماوس JavaScript RaggiTech 0 520 17-10-12, 02:02 PM
آخر رد: RaggiTech
  معرفة رقم ال IP من خلال VBScript RaggiTech 0 609 17-10-12, 02:01 PM
آخر رد: RaggiTech
  لتعطيل القيام ب Alt+F4 من خلال VBScript RaggiTech 0 260 17-10-12, 01:53 PM
آخر رد: RaggiTech
  كيفية فتح ملف وورد من خلال VBScript RaggiTech 0 296 17-10-12, 01:52 PM
آخر رد: RaggiTech
  فتح نسخة متصفح من خلال VBScript RaggiTech 0 277 17-10-12, 01:51 PM
آخر رد: RaggiTech
  تحويل النص إلى كلام باستخدام API من خلال VBScript RaggiTech 0 274 17-10-12, 01:45 PM
آخر رد: RaggiTech

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم