📄 list.asp
字号:
<!--#include virtual="/online/online_conn.asp"-->
<html>
<head><title>大学在线统计器</title></head>
<style>
a,body,td,p{font-size:12px;color:#000000;text-decoration:none}
</style>
<body bgcolor=#ffffcc topmargin="0" leftmargin="0"><%
end_time=dateadd("n",-time_out,now())
online_conn.Execute("delete * from active_user where active_time<#"&end_time&"#")
Set rs = Server.CreateObject("ADODB.Recordset")%>
<table height=100% align=center cellpadding=0 cellspacing=0>
<tr>
<td height=60 bgcolor=#000066 colspan=3><table align=center><tr><td><font color=#ffffff>服务器当前时间：</font></td><td width=200><font color=#ffffff><%=now()%></font></td><td><font color=#ffffff>最后活动限时：</font></td><td width=200><font color=#ffffff><%=end_time%></font></td></tr><tr><td><font color=#ffffff>管理员当前ＩＰ：</font></td><td><font color=#ffffff><%=Request.ServerVariables ( "REMOTE_ADDR" )%></font></td><td><font color=#ffffff>允许闲置时长：</font></td><td><font color=#ffffff><%=time_out%></font></td></tr></table></td>
</tr>
<tr><td height=1 colspan=3 bgcolor=#ffffff></td></tr>
<tr><td height=3 colspan=3 bgcolor=#000066></td></tr>
<tr><td height=1 colspan=3 bgcolor=#ffffff></td></tr>
<tr><td height=10 colspan=3 bgcolor=#000066></td></tr>
<tr>
<td width=5 bgcolor=#000066></td>
<td width=700 bgcolor=#fffff0 valign=top><%sql1="select * from count_date where my_date=#"&date()&"#"
rs.open sql1,online_conn,1,1
if rs.eof or rs.bof then
sql2="insert into count_date (my_count) values('0')"
online_conn.Execute (sql2)
t_datecount=0
else
t_datecount=rs("my_count")
end if
rs.close
y_date=dateadd("d",-1,date())
sql3="select * from count_date where my_date=#"&y_date&"#"
rs.open sql3,online_conn,1,1
if rs.eof or rs.bof then
y_datecount=0
else
y_datecount=rs("my_count")
end if
yj=cint(t_datecount/(hour(now)*60+minute(now)+1)*1440)
rs.close
sql4="select * from active_user order by active_time desc"
rs.open sql4,online_conn,1,1
nowonline=rs.recordcount
rs.close
set rs=nothing
sql5="select sum(my_count) as all_count,avg(my_count) as avg_count,max(my_count) as max_count from count_date"
set rs=online_conn.Execute (sql5)%><br><p align=center><b>网站综合信息</b></p>
<table width=95% align=center bgcolor=#cccccc cellpadding=5 cellspacing=1>
<tr height=22><td bgcolor=#ffffff width=120>当前在线人数</td><td bgcolor=#ffffff align=right><%=nowonline%></td></tr>
<tr height=22><td bgcolor=#f9f9f9>今日访问量</td><td bgcolor=#f9f9f9 align=right><%=t_datecount%></td></tr>
<tr height=22><td bgcolor=#ffffff>预计今日</td><td bgcolor=#ffffff align=right><%=yj%></td></tr>
<tr height=22><td bgcolor=#f9f9f9>昨日访问量</td><td bgcolor=#f9f9f9 align=right><%=y_datecount%></td></tr>
<tr height=22><td bgcolor=#ffffff>日均访问量</td><td bgcolor=#ffffff align=right><%=cint(rs("avg_count"))%></td></tr>
<tr height=22><td bgcolor=#f9f9f9>最高日访问量</td><td bgcolor=#f9f9f9 align=right><%=rs("max_count")%></td></tr>
<tr height=22><td bgcolor=#ffffff width=120>总访问量</td><td bgcolor=#ffffff align=right><%=rs("all_count")%></td></tr>
</table><%set rs=nothing
Set rs = Server.CreateObject("ADODB.Recordset")
sql6="select * from active_user order by active_time desc"
rs.open sql6,online_conn,1,1%><p align=center><b>当前在线访客资料</b> [<font color=#ff0000><%=rs.recordcount%></font>]</p><table bgcolor=#cccccc cellpadding=5 cellspacing=1 align=center width=95%><tr bgcolor=#f9f9f9><td align=center>用户标识</td><td align=center>IP地址</td><td align=center>登录时间</td><td align=center>最后活动</td><td align=center>当前位置</td><td align=center>用户来源</td></tr>
<%do while not rs.eof%><tr bgcolor=#ffffff><td align=center bgcolor=#f9f9f9><%=rs("session_id")%></td><td align=center title="<%=rs("ip")%>"><!--<%=left(rs("ip"),instrrev(rs("ip"),".",-1,0))&string(len(rs("ip"))-instrrev(rs("ip"),".",-1,0),"*")%>--><%=rs("ip")%></td><td align=center bgcolor=#f9f9f9><%=timevalue(rs("start_time"))%></td><td align=center><%=timevalue(rs("active_time"))%></td><td bgcolor=#f9f9f9><a href="<%=rs("site")%>" target="_blank" title="<%=rs("site")%>"><%=left(rs("site"),20)%></td><td><%if rs("user_from")="" then%>直接输入网址或收藏夹<%else%><a href="<%=rs("user_from")%>" target="_blank" title="<%=rs("user_from")%>"><%=left(rs("user_from"),30)%></a><%end if%></td></tr>
<%rs.movenext
loop%></table>
<%rs.close
set rs=nothing
days=60
i=0
k=3
response.write "<p align=center><b>近"&days&"天流量统计</b></p>"
sql7="select top "&days&" * from count_date order by my_date desc"
set rs=online_conn.Execute (sql7)
response.write "<table width=95% align=center bgcolor=#cccccc cellpadding=5 cellspacing=1>"
do while not(rs.eof or rs.bof)
response.write "<tr bgcolor=#ffffff>"
for j=1 to k
i_date=dateadd("d",-i,date())
response.write "<td align=center bgcolor=#f9f9f9 width=100>"&datepart("m",i_date)&"月"&datepart("d",i_date)&"日</td>"
if rs("my_date")=i_date then
response.write "<td align=center>"&rs("my_count")&"</td>"
rs.movenext
else
response.write "<td align=center>0</td>"
end if
i=i+1
if i=days or rs.eof or rs.bof then
for k=1 to k-j
response.write "<td bgcolor=#f9f9f9></td><td bgcolor=#ffffff></td>"
next
response.write "</tr>"
exit do
end if
next
response.write "</tr>"
loop
set rs=nothing
response.write "</table><br><br>"%>
</td>
<td width=5 bgcolor=#000066></td>
</tr>
<tr><td height=25 bgcolor=#000066 colspan=3 align=center><a href="http://www.daxueonline.com" target="_blank"><font color=#ffffff>大学在线流量统计1.0版</font></a></td></tr>
</table><%
online_conn.close
set online_conn=nothing%>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -