ASP制作在线人数统计实例 - ASP编程 - 软件开发资源站

首页 > 网络编程 > ASP编程 > ASP制作在线人数统计实例

ASP制作在线人数统计实例
类别：ASP编程作者：码皇来源：互联网点击：

我们先新建一个ＡＣＣＥＳＳ数据库内容为表名：zai字段为１ ip2 time建立一个文件为index asp然后就如下程序！ ,魔客吧

我们先新建一个ＡＣＣＥＳＳ数据库

内容为

表名：zai

字段为

１.ip

2.time

建立一个文件为index.asp

然后就如下程序！

<%
'===================================================================================================
'
'******************** 冰翎在线人数统计程序 V2.0 ******************************
'
' 本站程序由『冰翎工作室』--冰淇淋剑客独立制作！请尊重本人的劳动成果
' 　
' 『冰翎工作室』─━╃→用实力打造个性
'
'* 作者:冰淇淋剑客　
'* 网站:http://www.blbcn.com 　
'* 电子邮件:[email protected] 　
'* QQ:68156987
'* 住址：江苏无锡
'******************************************************************************
'
' 版权所有·抄袭挪用必究
'
'===================================================================================================

'---------定义变量
dim rs
dim ip
dim timeout
dim x
dim conn
dim dbpath
'---------定义变量结束

'---------建议数据库链接
set conn=server.createobject("adodb.connection")
DBPath = Server.MapPath("zai.mdb")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath
'---------建立数据库链接完成

'---------新建数据库RS对象
set rs = server.createobject("adodb.recordset")
'---------建立数据库RS对象完成

'---------读取客户端IP地址
ip = Request.ServerVariables("HTTP_X_FORWARDED_FOR") '若是对方使用的是代理服务器上网的话,用Request.ServerVariables("HTTP_X_FORWARDED_FOR")可以得到对方的真实IP,若对方不是通过代理服务器上网的话,则IP的值为空
If ip = "" Then ip = Request.ServerVariables("REMOTE_ADDR") '如果IP的值为空,则得到他的本地客户端地址
'---------IP读取完毕

'---------读出数据库内近20分钟所加入的新内容数,group by ip-表IP值相同的记作1
sql="select ip from zai where time >= dateadd('n',-20,now()) group by ip"
rs.Open sql,conn,1,1
zai=rs.RecordCount
rs.Close
'---------得到在线人数值

'---------查看数据库中是否已经有相同的值,没有则 x="yes"有则x="no"
sql="select ip from zai where ip='" & ip & "'"
rs.Open sql,conn,1,1
if rs.eof and rs.bof then
x="yes"
else
x="no"
end if
rs.close
'--------判断完毕

'--------如果数据库中没有相同的值则加入一个新值
if x="yes" then'　　　如果没有这个ＩＰ则增加一条记录
sql="select top 1 * from zai"
rs.Open sql,conn,1,3
rs.AddNew
rs("ip")=ip
rs("time")=now()
rs.update
rs.close
else　　　'如果有这个ＩＰ则把时间改为现在的时间

sql="select * from zai where ip='" & ip & "'"
rs.Open sql,conn,1,3
rs("time")=now()
rs.update
rs.close
end if
'--------判断加入完毕

'--------删除20分钟以前所加入的值
timeout = dateadd("n", -20, now())
sql="delete * from zai where time < #" & timeout & "#"
conn.Execute sql
'--------删除完毕

'--------关闭数据对象
set rs=nothing
conn.Close
set conn=nothing
%>
document.write("共<%=zai%>人在线")

ＯＫ！

完成了！

魔客吧温馨提示：如果你正在寻找织梦模板，那你可以到魔客吧的织梦模板频道看看，相信一定能找到你喜欢的！

分享到 更多 <script type="text/javascript" id="bdshare_js" data="type=tools&uid=488109" ></script><script type="text/javascript" id="bdshell_js"></script><script type="text/javascript">document.getElementById("bdshell_js").src = "http://share.baidu.com/static/js/shell_v2.js?cdnversion=" + new Date().getHours();</script> 本文地址：http://www.moke8.com/article-19419-1.html
文章标题：ASP制作在线人数统计实例收藏邀请 最新分享资源

响应式建筑建材水泥网站dede模板

dedecms模板 by moke

响应式货运物流网站dedecms模板

dedecms模板 by moke

生态农业酷站HTML模版

div+css模板 by hexipeng

智能家居网站+手机端织梦模板

dedecms模板 by moke

最新评论

相关分类

PHP编程
ASP编程
NET编程
JSP编程
MSSQL教程
MYSQL教程

精品推荐

精华中英双语响应式电子企业织梦模板

dedecms模板 by moke

极品资源

极品高端建筑装饰带手机版十配色织梦模板

dedecms模板 by moke

原创模板

魔币多配色创意metro风格企业

下载排行

01响应式网站网络设计公司织梦
02响应式货运物流网站dedecms模
03智能家居网站+手机端织梦模板
04响应式建筑建材水泥网站dede
05生态农业酷站HTML模版

资源分类

企业网站模板企业网站源码个人网站模板个人网页模板手机wap网站门户网站模板商业源码淘宝客程序 html5网站网站后台模板 html网页模板学校网站模板 <script type="text/javascript">var cookieLogin = Ajax("TEXT");cookieLogin.get("connect.php?mod=check&op=cookie", function() {});</script><script type="text/javascript">_attachEvent(window, 'load', getForbiddenFormula, document);function getForbiddenFormula() {var toGetForbiddenFormulaFIds = function () {ajaxget('plugin.php?id=cloudsearch&formhash=0f64c754');};var a = document.body.getElementsByTagName('a');for(var i = 0;i < a.length;i++){if(a[i].getAttribute('sc')) {a[i].setAttribute('mid', hash(a[i].href));a[i].onmousedown = function() {toGetForbiddenFormulaFIds();};}}var btn = document.body.getElementsByTagName('button');for(var i = 0;i < btn.length;i++){if(btn[i].getAttribute('sc')) {btn[i].setAttribute('mid', hash(btn[i].id));btn[i].onmousedown = function() {toGetForbiddenFormulaFIds();};}}}</script>

欢迎浏览魔客吧提供的 ASP制作在线人数统计实例信息，若本站中的信息侵犯了您的权益，请与本站管理员联系

Copyright @ 2010-2015 魔客吧版权所有蜀ICP备09014119号川公网安备51050202000165号 <script type="text/javascript" src="http://tcss.qq.com/ping.js?v=1VERHASH" charset="utf-8"></script><script type="text/javascript" reload="1">pgvMain({"discuzParams":{"r2":"5238379","ui":0,"rt":"portal","pn":1,"qq":"000"},"extraParams":""});</script>

积分 0, 距离下一级还需积分 <script type="text/javascript">_attachEvent(window, 'scroll', function(){showTopLink();});</script><script>(function(){ var bp = document.createElement('script'); var curProtocol = window.location.protocol.split(':')[0]; if (curProtocol === 'https'){ bp.src = 'https://zz.bdstatic.com/linksubmit/push.js'; } else{ bp.src = 'http://push.zhanzhang.baidu.com/push.js'; } var s = document.getElementsByTagName("script")[0]; s.parentNode.insertBefore(bp, s);})();</script> <script type="text/javascript"> var tipsinfo = '5238379|X2.5|0.6||0||0|7|1505358006|6c5fc7baaa8dcdfaddf21f01b810cd34|2'; </script> <script src="http://discuz.gtimg.cn/cloud/scripts/discuz_tips.js?v=1" type="text/javascript" charset="UTF-8"></script>

相关热词搜索： ASP制作在线人数统计实例

上一篇：在线统计代码 application
下一篇：如何限制同一用户名同时登陆

ASP制作在线人数统计实例 类别：ASP编程 作者：码皇 来源：互联网 点击：

最新评论

ASP制作在线人数统计实例
类别：ASP编程作者：码皇来源：互联网点击：