“在线访客”的制作方法

2016-01-29 17:48 4 1 收藏

“在线访客”的制作方法,“在线访客”的制作方法

【 tulaoshi.com - ASP 】

  作者:旭旭(07idea)
时间:2003-01-30
E-Mail:kgd1999@21cn.com


======制作原理======

(本文来源于图老师网站,更多请访问http://www.tulaoshi.com/asp/)

方法就是当用户访问网页时将用户的信息添加进数据库里
在添加的同时,检查数据库里是否有该用户的在线记录,如
果有,则更新该记录,如果没有就把他添加进数据库.
并删除在指定时间内没有活动的在线记录.(大概就是这样吧!)

======数据表设计=======

新建一个数据表,名为"Online"
删除自动编号字段
建立以下字段
字段名:ID      类型:数字
字段名:GUESTNAME    类型:文本
字段名:STATS    类型:文本
字段名:VISITIME    类型:日期/时间
字段名:OUTIME    类型:日期/时间


=======================以下部分源码,供参考,如果写得不好,欢迎指正=======================

<%
sub activeonline()

dim ip

'////删除180秒内不活动的在线记录.
sql="Delete FROM online WHERE DATEDIFF('s',outime,now())180"
Conn.Execute sql

if stats="" then'//如果stats的值为空,则显示为
stats="不知在做什么?"
else
stats=stats
end if

IP=replace(Request.ServerVariables("REMOTE_HOST"),".","")'////获取IP并消去IP中的"."

'////检查Online表中是否已有这个IP的记录

sql="select id from online where id='"&ip&"'"
set rs=conn.execute(sql)

if rs.eof or rs.bof then'////如果没有该IP记录则添加在线记录

sql="insert into online(id,guestname,stats,visitime,outime) values ("&ip&",'游客','"&stats&"',Now(),Now())"

else'////如果Online表中已有该IP记录则更新该记录

sql="update online set outime=Now(),stats='"&stats&"',guestname='游客' where id='"&ip&"'"

end if
conn.execute(sql)

end sub
%
==========================实例===========================
将以上代码修改并保存为"Online.asp"嵌入在各网页的尾部

<%

dim conn   
dim connstr
on error resume next
connstr="DBQ="+server.mappath("数据库名称.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set conn=server.createobject("ADODB.CONNECTION")
conn.open connstr 
'保存为conn.asp文件 
%

(本文来源于图老师网站,更多请访问http://www.tulaoshi.com/asp/)

<!--#INCLUDE FILE="conn.asp" --
<%

dim stats

stats="查看在线"

call activeonline()


Set rs = Server.CreateObject("ADODB.Recordset")
sql="SELECT Id,GuestName,Stats,Visitime,Outime FROM Online ORDER BY Visitime Desc"
rs.open sql,conn,1,3

total=rs.RecordCount

%
<table border="1" cellpadding="2" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" height="53"
  <tr
    <td width="20%" height="16" align="center"昵称</td
    <td width="20%" height="16" align="center"动作</td
    <td width="20%" height="16" align="center"来访</td
    <td width="20%" height="16" align="center"最后活动</td
  </tr
<%do while not rs.eof%
  <tr
    <td width="20%" height="28" align="center"<%=rs(1)%</td
    <td width="20%" height="28" align="center"<%=rs(2)%</td
    <td width="20%" height="28" align="center"<%=rs(3)%</td
    <td width="20%" height="28" align="center"<%=rs(4)%</td
  </tr
<%
rs.movenext
loop
%
</table
在线人数:<%=total%
<%
rs

来源:http://www.tulaoshi.com/n/20160129/1503016.html

延伸阅读
取一张长方纸,从中间对折,四角对整齐,将四个角向中线对折 将上下两边也沿中线对折,将折好纸片从反面对折,这样一个花瓣就做好了 折花瓣10个,下面的花瓣5个(颜色不同),将一个下面的花瓣与两个上面的花瓣组合起来,3个为一组,一共5组 用一根细铁丝将5组花瓣绑起来(在中心绑),将花瓣整理一下 先开始翻最上...
平时我们衣服掉下来的小纽扣和碎布你是怎么处理的呢,下面我就教教大家手工书签制作方法有哪些,大家不妨来学习一下。 手工书签制作方法有哪些 小纽扣跟回形针就可以做成非常有创意的小书签或者美丽的胸针清新的的小书签插在书上真是太美了!用针线把小纽扣和曲别针缝牢、固定住,就可以做成这款漂亮的回形针书签哦。 手工书签制作...
圣诞贺卡制作方法视频 圣诞贺卡制作方法:卡纸剪圆 首先将准备好的贺卡用圆规画好一个圆,并将圆剪掉。 圣诞贺卡制作方法:彩纸折叠 然后选择一些漂亮的花样纸,如下图所示的折叠成纸条。 圣诞贺卡制作方法:彩纸固定  然后将彩色纸条叠加成选图的样子,并用透明胶固定。 圣诞贺卡制作方法:圆纸贴上 将之前剪下圆...
折纸狗的制作方法 准备材料:正方形卡纸、马克笔 第一步:首先将准备好的正方形卡纸放在桌面上,然后将卡纸沿三角对折。 第二步:将折好的卡纸展开,然后将两条边沿着折痕对折。 第三步:将卡纸展开,然后翻过一个边,在将卡纸的两条边沿着折痕对折。 第四步:然后将折好的卡纸两边的尖角往里折一下,两边要折得差不多。 ...
芦荟面膜 1 原料:新鲜芦荟30克。 做法:将新鲜芦荟去皮指腹切一小块果肉备用。 用法:将切好的果肉用透气胶带贴在长有痘痘的位置上,均匀地敷于全脸。 功效:芦荟具有使皮肤收敛、柔软化、保湿、消炎、漂白的性能,能够帮助防止小皱纹、眼袋、皮肤松弛,还能够帮助皮肤湿润、娇嫩。同时,对于皮肤炎症有着很好的疗效,特别适用于长有雀斑...

经验教程

279

收藏

41
微博分享 QQ分享 QQ空间 手机页面 收藏网站 回到头部