' ԾȲV2.0 Beta1 For DVBBS 7.0~Dvbbs 7.1 SP1
' ߣ
' ַQQӳ http://www.qqpet.com/
' ʽ
' дʱ: 2005-03-20
' ޸ʱ䣺2005-10-14
' ޸ʱ䣺2006-3-26
' ̳ԾȺʱ䣬к̨
' Copyright (C) 2005


ʹһơ
ӹ£
1ʾ
2
3˼ãʹѡҪĲ
4ߵȼ㹫ʽĲ
5ߵļ㾫ȣûԼøµƵ
6̨ļʹװӼ
7˽ƺͻԾƹ

ļ嵥
ĸͼƬļimagesļ
һ̨ļadmin/RL_admin_Active.asp
һͷļinc/RL_ActiveComm.asp
һ漰޸ĵļBBS
һбļ
RLActiveList.asp

װ£밴˳װ
ǵðҪ޸ĵļȱ(const.aspdispbbs.asp,savepost.asp,adminuser.asp,setting.asp,boardsetting.asp)


һļRL_ActiveSetup.aspϴ̳Ŀ¼̳ϵĸļݿ⡣
ȷݿȷٽ²ǰװ1.0ûִеڶ
incļRL_ActiveComm.aspϴ̳Ŀ¼incĿ¼
RL_admin_Active.aspϴ̳Ŀ¼
ġں̨ӹӣں̨ӹӿ
    ӷ̨[ģܹ]ѡ[ҳģ(page_admin)]
    ޸template.html(0)ҵ˵޸£
    ˵@@<a href=plus.asp target=main>̳˵</a>@@<a href=rl_admin_active.asp target=main>Ծȹ</a>||Ĺ@@<

塢const.aspļ޸
<!--#Include File="Dv_ClsMain.asp"-->
<%
Set MyBoardOnline=new Cls_UserOnlne 
Dvbbs.GetForum_Setting
Dvbbs.CheckUserLogin
%>

<!--#Include File="RL_ActiveComm.asp"-->
<%
UpdateOnlineTime()
%>

µ޸
savepost.asp

UpdatePostCount() ' »Ծ  (޸Ĳ)

1158
Public Sub updatepostuser()
		'ͶƱ»
		'ʱ
		Dvbbs.UserSession.documentElement.selectSingleNode("userinfo/@activetime").text = Now()
		If IsAudit> 0 Then Exit Sub
		Dim MagicSql
		If Action = 5 Or Action = 7 Then 
			If FoundUseMagic Then
				If cCur(Dvbbs.UserSession.documentElement.selectSingleNode("userinfo/@usermoney").text ) > tMagicMoney Then
					Dvbbs.UserSession.documentElement.selectSingleNode("userinfo/@usermoney").text =Dvbbs.UserSession.documentElement.selectSingleNode("userinfo/@usermoney").text -tMagicMoney
					Dvbbs.ToolsLog -88,1,tMagicMoney,0,1,"ʹýҹħ",Dvbbs.UserSession.documentElement.selectSingleNode("userinfo/@usermoney").text  & "|" & Dvbbs.UserSession.documentElement.selectSingleNode("userinfo/@userticket").text
				Else
					MagicSql = ",UserTicket=UserTicket-"&tMagicTicket&""
					Dvbbs.UserSession.documentElement.selectSingleNode("userinfo/@userticket").text=Dvbbs.UserSession.documentElement.selectSingleNode("userinfo/@userticket").text-tMagicTicket
					Dvbbs.ToolsLog -88,1,0,tMagicTicket,1,"ʹõȯħ",Dvbbs.UserSession.documentElement.selectSingleNode("userinfo/@usermoney").text  & "|" & Dvbbs.UserSession.documentElement.selectSingleNode("userinfo/@userticket").text
				End If
			End If
			Dvbbs.Execute("update [Dv_user] set UserLastIP='"&Dvbbs.usertrueip&"',UserPost=UserPost+1,UserTopic=UserTopic+1,userWealth=userWealth+"&Clng(Dvbbs.Forum_user(1))&",userEP=userEP+"&Clng(Dvbbs.Forum_user(6))&",userCP=userCP+"&Clng(Dvbbs.Forum_user(11))&",UserToday='"&Clng(Dvbbs.UserToday(0))+1&"|"&Clng(Dvbbs.UserToday(1))&"|"&Clng(Dvbbs.UserToday(2))&"|"&Clng(Dvbbs.UserToday(3))&"|"&Clng(Dvbbs.UserToday(4))&"',UserMoney="&Dvbbs.UserSession.documentElement.selectSingleNode("userinfo/@usermoney").text &" "&MagicSql&" Where UserID="&Dvbbs.userID)
			If Not Reuser Then
				UserPost=UserPost+1
				Dvbbs.UserSession.documentElement.selectSingleNode("userinfo/@usertopic").text =CCur(Dvbbs.UserSession.documentElement.selectSingleNode("userinfo/@usertopic").text)+1
				Dvbbs.UserSession.documentElement.selectSingleNode("userinfo/@userwealth").text=Dvbbs.UserSession.documentElement.selectSingleNode("userinfo/@userwealth").text+Clng(Dvbbs.Forum_user(1))
				Dvbbs.UserSession.documentElement.selectSingleNode("userinfo/@userep").text=Dvbbs.UserSession.documentElement.selectSingleNode("userinfo/@userep").text+Clng(Dvbbs.Forum_user(6))
				Dvbbs.UserSession.documentElement.selectSingleNode("userinfo/@usercp").text =Dvbbs.UserSession.documentElement.selectSingleNode("userinfo/@usercp").text +Clng(Dvbbs.Forum_user(11))
			End If
			UpdatePostCount() ' »Ծ  (޸Ĳ)
		ElseIf Action = 6 Then '»֡
			If Not Reuser Then
				Dvbbs.Execute("update [Dv_user] set UserLastIP='"&Dvbbs.usertrueip&"',UserPost=UserPost+1,userWealth=userWealth+"&Clng(Dvbbs.Forum_user(2))&",userEP=userEP+"&Clng(Dvbbs.Forum_user(7))&",userCP=userCP+"&Clng(Dvbbs.Forum_user(12))&",UserToday='"&Clng(Dvbbs.UserToday(0))+1&"|"&Clng(Dvbbs.UserToday(1))&"|"&Clng(Dvbbs.UserToday(2))&"|"&Clng(Dvbbs.UserToday(3))&"|"&Clng(Dvbbs.UserToday(4))&"',UserMoney="&Dvbbs.UserSession.documentElement.selectSingleNode("userinfo/@usermoney").text &" Where UserID="&Dvbbs.userID)
				UserPost=UserPost+1
				Dvbbs.UserSession.documentElement.selectSingleNode("userinfo/@userwealth").text=Dvbbs.UserSession.documentElement.selectSingleNode("userinfo/@userwealth").text+Clng(Dvbbs.Forum_user(2))
				Dvbbs.UserSession.documentElement.selectSingleNode("userinfo/@userep").text=Dvbbs.UserSession.documentElement.selectSingleNode("userinfo/@userep").text+Clng(Dvbbs.Forum_user(7))
				Dvbbs.UserSession.documentElement.selectSingleNode("userinfo/@usercp").text =Dvbbs.UserSession.documentElement.selectSingleNode("userinfo/@usercp").text +Clng(Dvbbs.Forum_user(12))
			Else
				Dvbbs.Execute("update [Dv_user] set UserLastIP='"&Dvbbs.usertrueip&"',UserPost=UserPost+1,userWealth=userWealth+"&Clng(Dvbbs.Forum_user(2))&",userEP=userEP+"&Clng(Dvbbs.Forum_user(7))&",userCP=userCP+"&Clng(Dvbbs.Forum_user(12))&",UserMoney="&Dvbbs.UserSession.documentElement.selectSingleNode("userinfo/@usermoney").text &" Where UserID="&Dvbbs.userID)
			End If
			UpdatePostCount() ' »Ծ  (޸Ĳ)
		End If
ߡdispbbs.asp޸
(ע,ԭװ1.0û,ɾӵЩ,ԭ160ҵЩ,Ϊ˼㰲װ,Щд˸ļ)
ҵ(218)ҵ
Set Rs=Dvbbs.Execute("Select userid,useremail,UserIM,UserMobile,Usersign,userclass,Usertitle,Userwidth,Userheight,UserPost,Userface,JoinDate,userWealth,userEP,userCP,Userbirthday,Usersex,UserGroup,LockUser,userPower,titlepic,UserGroupID,LastLogin,UserHidden,IsChallenge,UserMoney,UserTicket,UserAvaSetting,UserIsAva From dv_user Where UserID IN ("& postuseridlist &")")
޸Ϊ
Set Rs=Dvbbs.Execute("Select userid,useremail,UserIM,UserMobile,Usersign,userclass,Usertitle,Userwidth,Userheight,UserPost,Userface,JoinDate,userWealth,userEP,userCP,Userbirthday,Usersex,UserGroup,LockUser,userPower,titlepic,UserGroupID,LastLogin,UserHidden,IsChallenge,UserMoney,UserTicket,UserAvaSetting,UserIsAva,RLActTimeT,RLActTimeA,RLTopicCountA,RLStartTime From dv_user Where UserID IN ("& postuseridlist &")")
ҵ
			For Each Node In postuserlist.documentElement.SelectNodes("user")
					Rem ֽuserIM
					UserIM=Split(Node.selectSingleNode("@userim").text,"|||")
					Node.attributes.setNamedItem(postuserlist.createNode(2,"homepage","")).text=UserIM(0)
					Node.attributes.setNamedItem(postuserlist.createNode(2,"oicq","")).text=UserIM(1)
					Node.attributes.setNamedItem(postuserlist.createNode(2,"icq","")).text=UserIM(2)
					Node.attributes.setNamedItem(postuserlist.createNode(2,"msn","")).text=UserIM(3)
					Node.attributes.setNamedItem(postuserlist.createNode(2,"aim","")).text=UserIM(4)
					Node.attributes.setNamedItem(postuserlist.createNode(2,"yahoo","")).text=UserIM(5)
					Node.selectSingleNode("@userim").text=UserIM(6)
					If Dvbbs.forum_setting(42) = "0" Then 'رǩж 2005-5-17 Dv.Yz
						Node.selectSingleNode("@usersign").text=""	
					Else
							Node.selectSingleNode("@usersign").text=Dvbbs.ChkBadWords(Dv_ubb.Dv_SignUbbCode(Node.selectSingleNode("@usersign").text,Node.selectSingleNode("@usergroupid").text))	
					End If
					Node.selectSingleNode("@joindate").text=Formatdatetime(Node.selectSingleNode("@joindate").text,1)
					If Node.selectSingleNode("@userhidden").text = "2" Then
						If IsDate(Node.selectSingleNode("@lastlogin").text) Then
							If DateDiff("s",Node.selectSingleNode("@lastlogin").text,Now())>(cCur(dvbbs.Forum_Setting(8))*60) Then
								Node.selectSingleNode("@userhidden").text = "1"
							End If
						Else
								Node.selectSingleNode("@userhidden").text = "1"
						End If
					Else
						Node.selectSingleNode("@userhidden").text = "1"
					End If
					'ȡԼûʽǰ,ɽڵ
					namestyle=Split(Application(Dvbbs.CacheName &"_groupsetting").documentElement.selectSingleNode("usergroup[@usergroupid='"& Node.selectSingleNode("@usergroupid").text &"']/@groupsetting").text,",")(58)
					Node.attributes.setNamedItem(postuserlist.createNode(2,"namestyle","")).text=namestyle
					'ʾûЧ 2005.10.13 By Winder.F
					UserGroupID=Node.selectSingleNode("@usergroupid").text
					If UserGroupID < 9 Then
						Node.attributes.setNamedItem(postuserlist.createNode(2,"nameglow","")).text=nameglow(UserGroupID-1)
					Else
						Node.attributes.setNamedItem(postuserlist.createNode(2,"nameglow","")).text=Dvbbs.mainsetting(5)
					End If
					
					
				Next

޸
			For Each Node In postuserlist.documentElement.SelectNodes("user")
					Rem ֽuserIM
					UserIM=Split(Node.selectSingleNode("@userim").text,"|||")
					Node.attributes.setNamedItem(postuserlist.createNode(2,"homepage","")).text=UserIM(0)
					Node.attributes.setNamedItem(postuserlist.createNode(2,"oicq","")).text=UserIM(1)
					Node.attributes.setNamedItem(postuserlist.createNode(2,"icq","")).text=UserIM(2)
					Node.attributes.setNamedItem(postuserlist.createNode(2,"msn","")).text=UserIM(3)
					Node.attributes.setNamedItem(postuserlist.createNode(2,"aim","")).text=UserIM(4)
					Node.attributes.setNamedItem(postuserlist.createNode(2,"yahoo","")).text=UserIM(5)
					Node.selectSingleNode("@userim").text=UserIM(6)
					If Dvbbs.forum_setting(42) = "0" Then 'رǩж 2005-5-17 Dv.Yz
						Node.selectSingleNode("@usersign").text=""	
					Else
							Node.selectSingleNode("@usersign").text=Dvbbs.ChkBadWords(Dv_ubb.Dv_SignUbbCode(Node.selectSingleNode("@usersign").text,Node.selectSingleNode("@usergroupid").text))	
					End If
					Node.selectSingleNode("@joindate").text=Formatdatetime(Node.selectSingleNode("@joindate").text,1)
					If Node.selectSingleNode("@userhidden").text = "2" Then
						If IsDate(Node.selectSingleNode("@lastlogin").text) Then
							If DateDiff("s",Node.selectSingleNode("@lastlogin").text,Now())>(cCur(dvbbs.Forum_Setting(8))*60) Then
								Node.selectSingleNode("@userhidden").text = "1"
							End If
						Else
								Node.selectSingleNode("@userhidden").text = "1"
						End If
					Else
						Node.selectSingleNode("@userhidden").text = "1"
					End If
					'ȡԼûʽǰ,ɽڵ
					namestyle=Split(Application(Dvbbs.CacheName &"_groupsetting").documentElement.selectSingleNode("usergroup[@usergroupid='"& Node.selectSingleNode("@usergroupid").text &"']/@groupsetting").text,",")(58)
					Node.attributes.setNamedItem(postuserlist.createNode(2,"namestyle","")).text=namestyle
					'ʾûЧ 2005.10.13 By Winder.F
					UserGroupID=Node.selectSingleNode("@usergroupid").text
					If UserGroupID < 9 Then
						Node.attributes.setNamedItem(postuserlist.createNode(2,"nameglow","")).text=nameglow(UserGroupID-1)
					Else
						Node.attributes.setNamedItem(postuserlist.createNode(2,"nameglow","")).text=Dvbbs.mainsetting(5)
					End If
					
					' ӻԾ
					Node.selectSingleNode("@rlacttimet").text=GetOnlineClassPic(Node.selectSingleNode("@rlacttimet").text)
					Node.selectSingleNode("@rlstarttime").text=GetActiveInfoStr(Node.selectSingleNode("@rlacttimea").text,Node.selectSingleNode("@rltopiccounta").text,Node.selectSingleNode("@rlstarttime").text)

				Next
̨ģ޸
dispbbsְ
template.html(0)
ҵ
function LoadMagicEmot(MagicID,topicid){
var cookiesstr=readCookie('mofaface_'+ topicid);
if (cookiesstr ==null){
createCookie('mofaface_'+ topicid,MagicID,365)
DispMagicEmot(MagicID,350,500)
}
}


</script>
( ]]>֮ǰ ) (һҪ)
<script language="VBScript">
Function GetActivePic(lActInfo)
Dim PicStr
lActInfo = Split(lActInfo, "||")

RLActiveValue = lActInfo(0)
RLActiveMax = lActInfo(1)
RL_Setting = Split(lActInfo(3),"$$")
PicStr = "<img src="""&RL_Setting(2)&""" width="""&CStr(50*RLActiveValue\RLActiveMax)&""" height=""10"" border=""0"" alt=""Ծ:"& RLActiveValue&"""><img src="""&RL_Setting(3)&""" width="""&CSTR(50*(RLActiveMax-RLActiveValue)\RLActiveMax)&""" height=""10"" border=""0"" alt=""Ծ:"&RLActiveValue&""">"
GetActivePic = PicStr
End Function

Function GetActiveWord(lActInfo)
Dim ActiveWord
ActiveWord= Split(lActInfo, "||")
GetActiveWord= ActiveWord(2)
End Function
</script>

£
function LoadMagicEmot(MagicID,topicid){
var cookiesstr=readCookie('mofaface_'+ topicid);
if (cookiesstr ==null){
createCookie('mofaface_'+ topicid,MagicID,365)
DispMagicEmot(MagicID,350,500)
}
}


</script>

<script language="VBScript">
Function GetActivePic(lActInfo)
Dim PicStr
lActInfo = Split(lActInfo, "||")

RLActiveValue = lActInfo(0)
RLActiveMax = lActInfo(1)
RL_Setting = Split(lActInfo(3),"$$")
PicStr = "<img src="""&RL_Setting(2)&""" width="""&CStr(50*RLActiveValue\RLActiveMax)&""" height=""10"" border=""0"" alt=""Ծ:"& RLActiveValue&"""><img src="""&RL_Setting(3)&""" width="""&CSTR(50*(RLActiveMax-RLActiveValue)\RLActiveMax)&""" height=""10"" border=""0"" alt=""Ծ:"&RLActiveValue&""">"
GetActivePic = PicStr
End Function

Function GetActiveWord(lActInfo)
Dim ActiveWord
ActiveWord= Split(lActInfo, "||")
GetActiveWord= ActiveWord(2)
End Function
</script>
	]]>
	</xsl:variable>
	<!--жǷIEӦstyleclass-->


template.html(0)
ҵ
	        			<div>ע᣺<xsl:value-of select="/post/userlist/user[@userid=$userid]/@joindate"/></div>


<div>ߵȼ<xsl:value-of select="/post/userlist/user[@userid=$userid]/@rlacttimet" disable-output-escaping="yes" />
</div>
<xsl:if test="/post/userlist/user[@userid=$userid]/@rlstarttime !='' "> 
<div>Ծȣ<script type="text/javascript" language="VBScript">document.write(GetActivePic('<xsl:value-of select="/post/userlist/user[@userid=$userid]/@rlstarttime" />'));</script>
</div>
<div>Ծȼ<script type="text/javascript" language="VBScript">document.write(GetActiveWord('<xsl:value-of select="/post/userlist/user[@userid=$userid]/@rlstarttime" />'));</script>
</div>
</xsl:if>

ͬ޸:
adminsetting.aspļ
ҵ<input type="submit" name="Submit" value=" ">
ǰһ
<input name="forum_setting(88)" type="hidden" value="<%=Dvbbs.forum_setting(88)%>">


ϴͼƬļimages

Well DoneGood Luck!!

RLActiveList.asp е⣬̫ˣûʱˡ