最新下载
热门教程
- 1
- 2
- 3
- 4
- 5
- 6
- 7
- 8
- 9
- 10
让网站活起来(2)
时间:2008-01-18 编辑:简简单单 来源:一聚教程网
功能:所有访问过本网页的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
-
上一个: 给你一个全的.
-
下一个: 会员管理系统中会员类的实现
相关文章
- 网站404错误如何解决 网站404错误解决的方法介绍 12-14
- 酒店网站设计实例欣赏 11-30
- 网站文字配色分享 11-22
- 内容型网站盈利方法介绍 10-31
- 网站盈利模式分享 10-31
- 图库网站分享 10-24