📄 admin_online.asp

📁 小游戏网站演示www.4399.io 拥有4万条游戏数据
💻 ASP
📖 第 1 页 / 共 2 页
字号:
12 下一页
<!--#include file="setup.asp"-->
<!--#include file="check.asp"-->
<%
Admin_header
'=====================================================================
' 软件名称：四博CMS网站管理系统 2008 sp3
' 当前版本：dincoo.com
' 文件名称：admin_online.asp
' 更新日期：2006-12-20
' 官方网站：新云网络(www.newasp.net www.newasp.cn) QQ：94022511
'=====================================================================
' Copyright 2003-2007 newasp.net - All Rights Reserved.
' newasp is a trademark of newasp.net
'=====================================================================
%>
<table border=0 align=center cellpadding=3 cellspacing=1 class=tableborder>
<tr>
	<th>在线人数信息管理</th>
</tr>
<tr>
	<td class=tablerow1>菜单导航：<a href='admin_online.asp'>管理首页</a> | 
	<a href='admin_online.asp?action=zone'>详细地址</a> | 
	<a href='admin_online.asp?action=refer'>访问来源</a> | 
	<a href='admin_online.asp?action=online'>流量统计</a> | 
	<a href='admin_online.asp?action=delall' onclick="{if(confirm('您确定要删除所有在线人数吗?')){return true;}return false;}"><font color=blue>删除所有在线人数</font></a></td>
</tr>
<tr>
	<td class=tablerow2>当前位置：在线人数统计信息</td>
</tr>
</table>
<br>
<%
Dim Action,i,strClass,sFileName
Dim maxperpage,CurrentPage,totalnumber,TotalPageNum

maxperpage = 30 '###每页显示数
If Not IsNumeric(Request("page")) And Len(Request("page")) <> 0 Then
	Response.Write ("错误的系统参数!请输入整数")
	Response.End
End If
If Not IsEmpty(Request("page")) And Len(Request("page")) <> 0 Then
	CurrentPage = CLng(Request("page"))
Else
	CurrentPage = 1
End If
If CurrentPage = 0 Then CurrentPage = 1
TotalNumber = Newasp.Execute("Select Count(ID) from NC_Online")(0)
TotalPageNum = CLng(TotalNumber / maxperpage)  '得到总页数
If TotalPageNum < TotalNumber / maxperpage Then TotalPageNum = TotalPageNum + 1
If CurrentPage < 1 Then CurrentPage = 1
If CurrentPage > TotalPageNum Then CurrentPage = TotalPageNum

Action = LCase(Request("action"))
If Not ChkAdmin("Online") Then
	Server.Transfer("showerr.asp")
	Response.End
End If
Select Case Trim(Action)
	Case "refer"
		Call OnlineReferer
	Case "zone"
		Call OnlineZone
	Case "del"
		Call DelOnline
	Case "delall"
		Call DelAllOnline
	Case "online"
		Call OnlineCount
	Case "remove"
		Call DelCount
	Case "removeall"
		Call DelAllCount
	Case Else
		Call showmain
End Select
If FoundErr = True Then
	ReturnError(ErrMsg)
End If
Admin_footer
SaveLogInfo(AdminName)
CloseConn
Private Sub showmain()
%>
<table border=0 align=center cellpadding=3 cellspacing=1 class=tableborder>
<tr>
	<th width='5%' nowrap>选择</th>
	<th nowrap>用 户 名</th>
	<th nowrap>访 问 时 间</th>
	<th nowrap>活 动 时 间</th>
	<th nowrap>用 户 IP 地 址</th>
	<th nowrap>操 作 系 统</th>
	<th nowrap>浏 览 器</th>
</tr>
<%
	sFileName = "admin_online.asp?"
	Set Rs = Server.CreateObject("ADODB.Recordset")
	SQL = "select * from [NC_Online] order by startTime desc"
	If IsSqlDataBase = 1 Then
		If CurrentPage > 100 Then
			Rs.Open SQL, Conn, 1, 1
		Else
			Set Rs = Conn.Execute(SQL)
		End If
	Else
		Rs.Open SQL, Conn, 1, 1
	End If
	Newasp.SqlQueryNum = Newasp.SqlQueryNum + 1
	If Rs.bof And Rs.EOF Then
		Response.Write "<tr><td align=center colspan=7 class=TableRow2>当前无人在线！</td></tr>"
	Else
		If TotalPageNum > 1 then Rs.Move (CurrentPage - 1) * maxperpage
		i = 0
%>
<tr>
	<td class=tablerow2 colspan=7><%Call showpage()%></td>
</tr>
<form name=selform method=post action=?action=del>
<%
	Do While Not Rs.EOF And i < CInt(maxperpage)
		If Not Response.IsClientConnected Then Response.End
		If (i mod 2) = 0 Then
			strClass = "class=TableRow1"
		Else
			strClass = "class=TableRow2"
		End If
%>
<tr align=center>
	<td <%=strClass%>><input type=checkbox name=OnlineID value='<%=Rs("id")%>'></td>
	<td <%=strClass%>><%=Rs("username")%></td>
	<td <%=strClass%>><%=Rs("startTime")%></td>
	<td <%=strClass%>><%=Rs("lastTime")%></td>
	<td <%=strClass%>><%=Rs("ip")%></td>
	<td <%=strClass%>><%=usersysinfo(Rs("browser"), 0)%></td>
	<td <%=strClass%>><%=usersysinfo(Rs("browser"), 1)%></td>
</tr>
<%
		Rs.movenext
			i = i + 1
			If i >= maxperpage Then Exit Do
		Loop
	End If
	Rs.Close:Set Rs = Nothing
%>
<tr>
	<td class=tablerow1 colspan=7>
	<input class=Button type="button" name="chkall" value="全选" onClick="CheckAll(this.form)"><input class=Button type="button" name="chksel" value="反选" onClick="ContraSel(this.form)">
	<input class=Button type="submit" name="Submit2" value="删除" onclick="{if(confirm('您确定要删除此在线人员吗?')){this.document.selform.submit();return true;}return false;}">
	<input class=Button type="button" name="Submit3" value="清空所有在线人数" onclick="{if(confirm('您确定要清空所有在线人数吗?')){location.href='admin_online.asp?action=delall';return true;}return false;}"></td>
</tr>
</form>
<tr>
	<td class=tablerow2 colspan=7><%Call showpage()%></td>
</tr>
</table>

<%
End Sub

Private Sub OnlineReferer()
%>
<table border=0 align=center cellpadding=3 cellspacing=1 class=tableborder>
<tr>
	<th width='5%' nowrap>选择</th>
	<th width='15%' nowrap>来访时间/IP</th>
	<th>访 问 来 源</th>
	<th>当 前 位 置</th>
	<th width='5%' nowrap>Alexa</th>
</tr>
<%
	sFileName = "admin_online.asp?action=refer&"
	Set Rs = Server.CreateObject("ADODB.Recordset")
	SQL = "select * from [NC_Online] order by startTime desc"
	If IsSqlDataBase = 1 Then
		If CurrentPage > 100 Then
			Rs.Open SQL, Conn, 1
		Else
			Set Rs = Conn.Execute(SQL)
		End If
	Else
		Rs.Open SQL, Conn, 1
	End If
	Newasp.SqlQueryNum = Newasp.SqlQueryNum + 1
	If Rs.bof And Rs.EOF Then
		Response.Write "<tr><td align=center colspan=4 class=TableRow2>当前无人在线！</td></tr>"
	Else
		If TotalPageNum > 1 then Rs.Move (CurrentPage - 1) * maxperpage
		i = 0
%>
<tr>
	<td class=tablerow2 colspan=5><%Call showpage()%></td>
</tr>
<form name=selform method=post action=?action=del>
<%
	Do While Not Rs.EOF And i < CInt(maxperpage)
		If Not Response.IsClientConnected Then Response.End
		If (i mod 2) = 0 Then
			strClass = "class=TableRow1"
		Else
			strClass = "class=TableRow2"
		End If
%>
<tr>
	<td align=center <%=strClass%>><input type=checkbox name=OnlineID value='<%=Rs("id")%>'></td>
	<td align=center <%=strClass%> nowrap><%=Rs("startTime")%><br><%=Rs("ip")%></td>
	<td <%=strClass%>><a href='<%=Rs("strReferer")%>' target=_blank><%=URLDecode(Rs("strReferer"))%></a></td>
	<td <%=strClass%>><a href='<%=Rs("station")%>' target=_blank><%=Rs("station")%></a></td>
	<td align=center <%=strClass%>><a href="http://www.alexa.com/data/details/traffic_details?q=&url=<%=Replace(LCase(Newasp.SiteUrl), "http://", "")%>" target="_blank"><%=usersysinfo(Rs("browser"), 2)%></a></td>
</tr>
<%
		Rs.movenext
			i = i + 1
			If i >= maxperpage Then Exit Do
		Loop
	End If
	Rs.Close:Set Rs = Nothing
%>
<tr>
	<td class=tablerow1 colspan=5>
	<input class=Button type="button" name="chkall" value="全选" onClick="CheckAll(this.form)"><input class=Button type="button" name="chksel" value="反选" onClick="ContraSel(this.form)">
	<input class=Button type="submit" name="Submit2" value="删除" onclick="{if(confirm('您确定要删除此在线人员吗?')){this.document.selform.submit();return true;}return false;}">
	<input class=Button type="button" name="Submit3" value="清空所有在线人数" onclick="{if(confirm('您确定要清空所有在线人数吗?')){location.href='admin_online.asp?action=delall';return true;}return false;}"></td>
</tr>
</form>
<tr>
	<td class=tablerow2 colspan=5><%Call showpage()%></td>
</tr>
</table>

<%
End Sub

Private Sub OnlineZone()
%>
<table border=0 align=center cellpadding=3 cellspacing=1 class=tableborder>
<tr>
	<th width='5%' nowrap>选择</th>
	<th nowrap>用 户 名</th>
	<th nowrap>用 户 组</th>
	<th nowrap>IP 地 址</th>
	<th nowrap>详 细 地 址</th>
	<th nowrap>操 作 系 统</th>
	<th nowrap>浏 览 器</th>
</tr>
<%
	sFileName = "admin_online.asp?action=zone&"
	Set Rs = Server.CreateObject("ADODB.Recordset")
	SQL = "select * from [NC_Online] order by startTime desc"
	If IsSqlDataBase = 1 Then
		If CurrentPage > 100 Then
			Rs.Open SQL, Conn, 1
		Else
			Set Rs = Conn.Execute(SQL)
		End If
	Else
		Rs.Open SQL, Conn, 1
	End If
	Newasp.SqlQueryNum = Newasp.SqlQueryNum + 1
	If Rs.bof And Rs.EOF Then
		Response.Write "<tr><td align=center colspan=7 class=TableRow2>当前无人在线！</td></tr>"
	Else
		If TotalPageNum > 1 then Rs.Move (CurrentPage - 1) * maxperpage
		i = 0
%>
<tr>
	<td class=tablerow2 colspan=7><%Call showpage()%></td>
</tr>
<form name=selform method=post action=?action=del>
<%
	Do While Not Rs.EOF And i < CInt(maxperpage)
		If Not Response.IsClientConnected Then Response.End
		If (i mod 2) = 0 Then
			strClass = "class=TableRow1"
		Else
			strClass = "class=TableRow2"
		End If
%>
<tr align=center>
	<td <%=strClass%>><input type=checkbox name=OnlineID value='<%=Rs("id")%>'></td>
	<td <%=strClass%>><%=Rs("username")%></td>
	<td <%=strClass%>><%=Rs("identitys")%></td>
	<td <%=strClass%>><%=Rs("ip")%></td>
	<td <%=strClass%>><%=GetAddress(Rs("ip"))%></td>
	<td <%=strClass%>><%=usersysinfo(Rs("browser"), 0)%></td>
	<td <%=strClass%>><%=usersysinfo(Rs("browser"), 1)%></td>
</tr>
<%
		Rs.movenext
			i = i + 1
			If i >= maxperpage Then Exit Do
		Loop
	End If
	Rs.Close:Set Rs = Nothing
%>
<tr>
	<td class=tablerow1 colspan=7>
	<input class=Button type="button" name="chkall" value="全选" onClick="CheckAll(this.form)"><input class=Button type="button" name="chksel" value="反选" onClick="ContraSel(this.form)">
	<input class=Button type="submit" name="Submit2" value="删除" onclick="{if(confirm('您确定要删除此在线人员吗?')){this.document.selform.submit();return true;}return false;}">
	<input class=Button type="button" name="Submit3" value="清空所有在线人数" onclick="{if(confirm('您确定要清空所有在线人数吗?')){location.href='admin_online.asp?action=delall';return true;}return false;}"></td>
</tr>
</form>
<tr>
	<td class=tablerow2 colspan=7><%Call showpage()%></td>
</tr>
</table>

<%
End Sub

Private Sub OnlineCount()
'Newasp.Execute ("UPDATE [NC_SiteCount] SET AlexaToolbar=0")
%>
<table border=0 align=center cellpadding=3 cellspacing=1 class=tableborder>
<tr>
	<th width='5%' nowrap>选择</th>
	<th nowrap>统 计 日 期</th>
	<th nowrap>唯 一 IP</th>
	<th nowrap>访 问 数</th>
	<th nowrap>Google搜索</th>
	<th nowrap>百度搜索</th>
	<th nowrap>雅虎搜索</th>
	<th nowrap>3721搜索</th>
	<th nowrap>中国搜索</th>
	<th nowrap>搜狗搜索</th>
	<th nowrap>其它站点</th>
	<th nowrap>直接访问</th>
	<th nowrap>Alexa</th>
</tr>
<%
	If Not IsEmpty(Request("page")) And Len(Request("page")) <> 0 Then
		CurrentPage = CLng(Request("page"))
	Else
		CurrentPage = 1
	End If
	TotalNumber = Newasp.Execute("SELECT COUNT(id) FROM NC_SiteCount")(0)
	TotalPageNum = CLng(TotalNumber / maxperpage)  '得到总页数
	If TotalPageNum < TotalNumber / maxperpage Then TotalPageNum = TotalPageNum + 1
	If CurrentPage < 1 Then CurrentPage = 1
	If CurrentPage > TotalPageNum Then CurrentPage = TotalPageNum

	sFileName = "admin_online.asp?action=online&"
	Set Rs = Server.CreateObject("ADODB.Recordset")
	SQL = "SELECT * FROM [NC_SiteCount] ORDER BY CountDate DESC,id DESC"
	If IsSqlDataBase = 1 Then
		If CurrentPage > 100 Then
			Rs.Open SQL, Conn, 1
		Else
			Set Rs = Conn.Execute(SQL)
		End If
	Else
		Rs.Open SQL, Conn, 1
	End If
	Newasp.SqlQueryNum = Newasp.SqlQueryNum + 1
	If Rs.bof And Rs.EOF Then
		Response.Write "<tr><td align=center colspan=13 class=TableRow2>没有流量统计！</td></tr>"
	Else
		If TotalPageNum > 1 then Rs.Move (CurrentPage - 1) * maxperpage
		i = 0
%>
<tr>
	<td class=tablerow2 colspan=13><%Call showpage()%></td>
</tr>
<form name=selform method=post action=?action=remove>
<%
	Do While Not Rs.EOF And i < CInt(maxperpage)
		If Not Response.IsClientConnected Then Response.End
		If (i mod 2) = 0 Then
12 下一页
💿 文件大小 11420 K
👤 上传用户 huanghuanl
📂 所属分类游戏
🏷️ 相关标签

#4399 #www #io #小游戏
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -