من المزعج للغاية عدم عبور مجال ملفات تعريف الارتباط ، وهو أكثر ملاءمة للغاية للحصول على هذا البرنامج النصي.
<٪
IP = request.ServerVariables ("REMOTE_ADDR")
setfso = createObject ("scripting.filesystemObject")
setFiles = fso.opentextFile (server.mappath ("./ ip.txt") ، 1 ، خطأ)
البيانات = files.readall
files.close
setfso = لا شيء
IfinstRrev (البيانات ، IP ، -1،0) = 0then
setfso = createObject ("scripting.filesystemObject")
setFile = fso.opentextFile (server.mappath ("./ ip.txt") ، 8 ، true)
file.writelineip
file.close
setfso = لا شيء
استجابة. اكتب "هذا IP يصل إلى هذه الصفحة لأول مرة اليوم"
استجابة
آخر
استجابة. "لقد تمت زيارة هذا IP من قبل"
استجابة
Endif
٪>