 |
|
|
 首页 |
名片设计 CorelDRAW Illustrator AuotoCAD Painter 其他软件 Photoshop Fireworks Flash |
|
文 本 计 数 器 功能：所有访问过本网页的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 %> 返回类别: 教程 上一教程: ASP乱码的解决方式 下一教程: 如何使ASP程序暂停指定的时间后再继承执行 您可以阅读与"让网站活起来(2)"相关的教程: · 让网站活起来(1) · 让网站活起来(3) · 让网站活起来(4) · 如何阻止别人非法链接你网站的图片 · 如何用ASP编写网站统计系统二 |
  |
| 快精灵印艺坊 版权所有 |
首页 会员中心在线印刷在线编辑付款方式索取样品设计指南连锁门店
|
||
