onlinelist.asp

正版创力4.1SQL商业版!!!ASP版。

<!--#include file="Conn.asp"-->
<!--#include file="Inc/Cl_Const.asp"-->
<!--#include file="Inc/Cl_ClsCount.asp"-->
<!--#include file="Inc/Cl_Function_Public.asp"-->
<%
Const ChannelID=0
'Call Cl.Get_ChannelSetting(ChannelID)
if Not Cl.ChkUserGroupID(Cl.Web_Setting(49),Cl.UserGroupID) Then
	Call Cl.OutErr(0,Replace(Cl.LanguageNode("//NoPurviewErr"),"{$usergroup}",Cl.GetUserGroupName(Cl.Web_Setting(49))))
end if
Cl.Path = Cl.Language.selectSingleNode("//CurrentPath").text & "<a href='" & Cl.Web_info(4) & "'>" & Cl.Web_info(0) & "</a> &gt;&gt; 在线列表"
Cl.Title = Cl.Web_info(1) & " &gt;&gt; 在线列表"

Call ShowOnlineList()

Response.write Template.ReplaceAllFlag(TempStr)

Sub ShowOnlineList()
	Set Count=New Cls_Count
	Count.ConnectionCount
	Dim RsOnline,SqlOnline,sTemp,i
	Dim regEx,Matches,Match,TempValue
	Set regEx	= New RegExp
	regEx.IgnoreCase= True
	regEx.Global	= True
	Template.ProjectID	= Cl.ProjectID
	Template.TemplateID	= 0
	Template.CssID		= Cl.CssID
	Call Template.Load(-2,12)
	TempStr		= Template.Html
	regEx.Pattern		= "\[Cl_Loop\][^\[\]]*\[/Cl_Loop\]"
	Set Matches	= regEx.Execute(TempStr)
	For Each Match in Matches
		TempValue = Match.Value
		TempValue = Replace(TempValue,"[Cl_Loop]","")
		TempValue = Replace(TempValue,"[/Cl_Loop]","")
		SqlOnline="Select id,username,userclass,stats,ip,startime,lastimebk,NowPage,Agent,UserGroupID,UserID From Cl_Online order by lastimebk desc,id desc"
		Set RsOnline=Conn_Count.Execute(SqlOnline)
		if RsOnline.bof And RsOnline.Eof Then
			TotalPut = 0
			sTemp = ""
		else
			Dim rsTotalPut
			Set rsTotalPut= Conn_Count.Execute("Select count(id) from Cl_Online")
			TotalPut = rsTotalPut(0)
			rsTotalPut.Close : Set rsTotalPut=Nothing
			if (TotalPut mod PageSize)=0 then
				TotalPages = TotalPut \ PageSize
			else
				TotalPages = TotalPut \ PageSize + 1
			end if
			if CurrentPage > TotalPages then CurrentPage=TotalPages
			if CurrentPage < 2 Then
				CurrentPage=1
			else
				RsOnline.move (CurrentPage-1)*PageSize
			End if
			For i=1 To PageSize
				sTemp = sTemp & TempValue
				sTemp = Replace(sTemp,"{$username}",RsOnline(1))
				sTemp = Replace(sTemp,"{$userclass}",RsOnline(2))
				If Trim(Cl.Web_Setting(46)) = "Yes" Then
					sTemp = Replace(sTemp,"{$userip}",Count.address(RsOnline(4)))
				Else
					sTemp = Replace(sTemp,"{$userip}",RsOnline(4))
				End If
				sTemp = Replace(sTemp,"{$startime}",RsOnline(5))
				sTemp = Replace(sTemp,"{$lastimebk}",RsOnline(6))
				If Trim(Cl.Web_Setting(47)) = "Yes" Then
					Count.GetBrowser(Request.ServerVariables("HTTP_USER_AGENT"))
					sTemp = Replace(sTemp,"{$agent}","游 览 器："&Count.Browser&" "&Count.version&"<br />操作系统："&Count.platform)
				else
					sTemp = Replace(sTemp,"{$agent}",RsOnline(8))
				End If
				sTemp = Replace(sTemp,"{$nowpage}","<a href="""&RsOnline(7)&""" target=""_blank"">"&RsOnline(7)&"</a>")
				RsOnline.MoveNext
				if RsOnline.Eof then exit For
			Next
		end if
		TempStr=Replace(TempStr,Match.Value,sTemp)
	Next
	Set Matches	= Nothing
	if TotalPut>0 then
		TempStr = Replace(TempStr,"{$showpage}",Cl.ShowPage("OnlineList.asp",TotalPut,PageSize,"个","用户"))
	else
		TempStr = Replace(TempStr,"{$showpage}","")
	end if
End Sub

'==================================================
'CreateLive CMS Version 4.0
'							Powered by Aspoo.Net
'
'邮箱: [e-mail]		[e-mail]
'ＱＱ: 3315263				596197794
'网站: www.aspoo.cn			www.aspoo.com
'论坛: bbs.aspoo.cn			bbs.aspoo.com
'
'Copyright (C) 2005-2007 Aspoo.Net All Rights Reserved.
'==================================================
%>