<!--#include file="Conn.asp"-->
<!--#Include File="Inc/Cl_ClsSysTem.asp"-->
<!--#Include File="Inc/Cl_ClsCount.asp"-->
<%
Set Count=New Cls_Count
Count.ActiveOnline
ShowCountInfo
Set Count=Nothing

Sub ShowCountInfo()
Dim ShowInfo,style
style=lcase(Trim(Request("style")))
select case style
case "online"
	ShowInfo="总在线：<font color=#ff0033><b>" & Count.Web_Online(0) & "</b></font> 人&nbsp;&nbsp;用户：<font color=#0000ff><b>" & Count.Web_Online(1) & "</b></font> 人&nbsp;&nbsp;游客：<font color=#000000><b>" & Count.Web_Online(2) & "</b></font> 人"
case "simple"
	ShowInfo="总访问量：" & Count.CountInfo(5,0) & "人次<br>"
	ShowInfo=ShowInfo&"当前在线：<font color=#ff0033><b>" & Count.Web_Online(0) & "</b></font> 人"
case "all"
	ShowInfo="总访问量：" & Count.CountInfo(5,0) & "人次<br>"
	ShowInfo=ShowInfo&"总浏览量：" & Count.CountInfo(6,0) & "人次<br>"
	ShowInfo=ShowInfo&"今日访问：" & Count.CountInfo(1,0) & "人次<br>"
	ShowInfo=ShowInfo&"昨日访问：" & Count.CountInfo(3,0) & "人次<br>"
	ShowInfo=ShowInfo&"当前在线：<font color=#ff0033><b>" & Count.Web_Online(0) & "</b></font> 人<br>"
	ShowInfo=ShowInfo&"在线用户：<font color=#0000ff><b>" & Count.Web_Online(1) & "</b></font> 人<br>"
	ShowInfo=ShowInfo&"在线游客：<font color=#000000><b>" & Count.Web_Online(2) & "</b></font> 人"
case else
	Exit Sub
end select
Response.Write "document.write(" & chr(34) & ShowInfo & chr(34) & ")"
End Sub

'==================================================
'CreateLive CMS Version 3.1
'							Powered by Aspoo.Net
'
'邮箱: aspoo@126.com		Info@aspoo.cn
'ＱＱ: 3315263				596197794
'网站: www.aspoo.cn			www.aspoo.com
'论坛: bbs.aspoo.cn			bbs.aspoo.com
'
'Copyright (C) 2005 Aspoo.Net All Rights Reserved.
'==================================================
%>