منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
معرفة آخر مرة قمت فيها بزيارة الموقع VBScript - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : الأقسام التعليمية - المنتدى القديم (http://vb4arb.com/vb/forumdisplay.php?fid=90)
+--- قسم : مكتبة أكواد المنتدى (http://vb4arb.com/vb/forumdisplay.php?fid=111)
+---- قسم : مكتبة أكواد ال Scripts (http://vb4arb.com/vb/forumdisplay.php?fid=118)
+---- الموضوع : معرفة آخر مرة قمت فيها بزيارة الموقع VBScript (/showthread.php?tid=5990)



معرفة آخر مرة قمت فيها بزيارة الموقع VBScript - RaggiTech - 17-10-12

كاتب الموضوع : 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