- Login
帳號:
密碼:
ASP MENU
線上教學
   ASP 教學
VB.NET 教學
JSP 教學
JAVA 教學
完整 ASP 教學
程式下載
   ASP 程式下載
提供 ASP 程式
程式量身訂做
   收費標準
填寫需求表
討論交流專區
   程式討論區
電腦資訊交流
工作機會
   社會人就職情報
汎亞人力銀行
大台中人力銀行
大高雄人力銀行
相關連結
   ASP 虛擬空間
ASP 相關網站
聯絡我們
   意見信箱
加入會員程式討論區線上購物回首頁
ASP 教學
讓網站活起來(2)
文 本 計 數 器
功能:所有訪問過本網頁的IP地址
實現方法:把所有訪問過本網頁的IP地址存放在Count.Asp中,每過一段時間,查看一下,登陸到本網站的IP地址,如果在Count.ASP中不存在,說明這個用戶以前沒有來過,加入到Count.asp,如果已經存在,則說明該用戶以前已經登陸過本網站,可以忽略。

1:獲得訪問過本網頁的IP地址,存入OLdIP數組中
  CountFile=Server.mappath("Count.Asp")
  Set StreamF=CreateObject("Scripting.FileSystemObject")
  dim OldIP()

  Set ThisFile=StreamF.OpenTextFile(CountFile,1,False)
  do while not ThisFile.AtEndOfStream
  Thisline = ThisFile.readline
  '使用了 Preserve 關鍵字,就只能調整數組最後維的大小,並且不能改變數組的維數。
  '數組只有一維,該維是最後的也是僅有的一維,就可以修改該數組的大小.
  Redim preserve OldIP(Countly)
  OldIP(Countly) = Thisline
  'Countly 記載這ThisFile的行數
  Countly = Countly + 1
  loop
  ThisFile.Close

2:開始檢查當前訪問者是否把當前的IP地址加入到Count.ASP中,用OLDIP數組來判斷
  Flage =1
  ArriveIP = Request.ServerVariables("REMOTE_ADDR")
  'Response.Write ArriveIP
  for I = 1 to Countly
  'Request.ServerVariables("REMOTE_ADDR") 獲得發出請求機器的IP
  if (ArriveIP = OldIP(I-1)) then
  Flage=0
  end if
  next

3:如果當前的IP步在Count.asp中,加入到Count.asp,判斷是否加入到Count.asp是根據2中的Flags來判斷
  Set WriteF = StreamF.OpenTextFile(CountFile, 8, 0)
  if Flage=1 Then
  Countly = Countly +1
  WriteF.WriteLine ArriveIP
  End if
  WriteF.Close

4:顯示訪問過本網頁的IP地址
  <%
  Set ThisFile=StreamF.OpenTextFile(CountFile,1,False)
  do while not ThisFile.AtEndOfStream
  Thisline = ThisFile.readline
  Response.Write ThisLine&chr(13)
  loop
  ThisFile.Close
  %>



頂端
本網頁最佳瀏覽模式為:瀏覽器 IE4.0 以上    解析度: 800 x 600
Copyright © 2000-2019 COOLASP All Rights Reserved