最好能给出详细的代码,谢谢!
解决方案 »
- 项目经理说类文件里面不允许写这种代码,写这样的代码思想就是错误的(我知道可以写要添加引用即可,刚才那个帖子标题不好,结贴已经送分了).
- asp.net命名空间问题,急急急...
- 能不能在window xp下安装SQL SERVER和Vs 2005,进行开发呢?
- 深圳某知名互联网公司高薪寻搜索引擎人才
- 奇怪的问题
- 很急!!!用vs.net 制作WEB安装程序,运行时会自动创建虚拟目录,我如何在自定义操作时引用此虚拟目录?
- IEWebControl控件问题
- 关于使用ItemTemplate/HeaderTemplate等模板的问题? 请解!
- 在asp.net(C#)中怎么获得一个目录的大小?
- 把datatable 输出为表格
- 求:在ASPX用C#做打印的代码,在线等高手赐教!
- 问一个关于禁止datagrid自动换行的问题
http://community.csdn.net/Expert/topic/4545/4545068.xml?temp=.5926172
引用内容:
ID 自动编号
ip 文本
posttime 日期/时间具体实现代码如下,文件名为 online.asp:
引用内容:
<%
'---------定义变量
dim rs
dim ip
dim timeouted
dim x
dim conn
dim dbpath
'---------定义变量结束'---------建议数据库链接
set conn=server.createobject("adodb.connection")
DBPath = Server.MapPath("count.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 count where posttime >= dateadd('n',-20,now()) group by ip"
rs.Open sql,conn,1,1
online=rs.RecordCount
rs.Close
'---------得到在线人数值'---------查看数据库中是否已经有相同的值,没有则 x="yes"有则x="no"
sql="select ip from count 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' 如果没有这个IP则增加一条记录
sql="select top 1 * from count"
rs.Open sql,conn,1,3
rs.AddNew
rs("ip")=ip
rs("posttime")=now()
rs.update
rs.close
else '如果有这个IP则把时间改为现在的时间sql="select * from count where ip='" & ip & "'"
rs.Open sql,conn,1,3
rs("posttime")=now()
rs.update
rs.close
end if
'--------判断加入完毕
'--------删除20分钟以前所加入的值
timeouted = dateadd("n", -20, now())
sql="delete * from count where posttime < #" & timeouted & "#"
conn.Execute sql
'--------删除完毕'--------关闭数据对象
set rs=nothing
conn.Close
set conn=nothing
%>
document.write("共<%=online%>人在线")调用方式如下,在你要显示的地方插入如下代码(注意路径一定要写对哦!):
引用内容:
<script language=“javascript” src=“online.asp”></script>