indivgroup_manage.asp

公司企业网站管理系统全站源码,用于企业内部对网站的管理

					Response.write "alert('删除成员资料成功');"
					loadlink = Split(Request.ServerVariables("HTTP_REFERER"))
					Response.write "parent.location.href='"&loadlink(UBound(loadlink))&"';"
				Else
					UserName=Rs(1)
					Response.write "alert('对不起，成员“"&UserName&"”是管理员，不能删除同等级成员信息。');"
				End If
			Else
				Response.write "alert('错误：删除失败，成员不存在。';"
			End If
			Rs.Close:Set Rs=Nothing

			Response.write "</script>"
		Case "passuser"
			GroupUserID = Dvbbs.CheckNumeric(Request("GroupUserID"))
			Response.write "<script language=""javascript"">"

			If Dv_IndivGroup_MainClass.UserNum < Dv_IndivGroup_MainClass.LimitMemberNum Then
				Dv_IndivGroup_MainClass.Execute("Update Dv_GroupUser Set IsLock=1 Where ID="&GroupUserID&" And IsLock=0 And GroupID="&Dv_IndivGroup_MainClass.ID)
				If Dv_IndivGroup_MainClass.UserNum+1 = Dv_IndivGroup_MainClass.LimitMemberNum Then
					Dv_IndivGroup_MainClass.Execute("Update Dv_GroupName Set UserNum=UserNum+1,Stats=2 Where ID="&Dv_IndivGroup_MainClass.ID)
				Else
					Dv_IndivGroup_MainClass.Execute("Update Dv_GroupName Set UserNum=UserNum+1 Where ID="&Dv_IndivGroup_MainClass.ID)
				End If

				Response.write "alert('审核通过成功');"
				loadlink = Split(Request.ServerVariables("HTTP_REFERER"))
				Response.write "parent.location.href='"&loadlink(UBound(loadlink))&"';"
			Else
				Response.write "alert('审核通过失败，已经达到圈子成员数上限。');"
				loadlink = Split(Request.ServerVariables("HTTP_REFERER"))
				Response.write "parent.location.href='"&loadlink(UBound(loadlink))&"';"
			End If

			Response.write "</script>"
		Case "setadmin"
			GroupUserID = Dvbbs.CheckNumeric(Request("GroupUserID"))
			Response.write "<script language=""javascript"">"

			Dv_IndivGroup_MainClass.Execute("Update Dv_GroupUser Set IsLock=2 Where ID="&GroupUserID&" And IsLock=1 And GroupID="&Dv_IndivGroup_MainClass.ID)

			Response.write "alert('设置管理员成功');"
			loadlink = Split(Request.ServerVariables("HTTP_REFERER"))
			Response.write "parent.location.href='"&loadlink(UBound(loadlink))&"';"

			Response.write "</script>"
		Case Else
			Dim Query,UserXMLDom
			Query = Dvbbs.CheckNumeric(Request("query"))
			Set XMLDom=Server.CreateObject("msxml2.FreeThreadedDOMDocument"& MsxmlVersion)
			XMLDom.appendChild(XMLDom.createElement("IndivGroup"))
			XMLDOM.documentElement.attributes.setNamedItem(XMLDOM.createNode(2,"groupid","")).text=Dv_IndivGroup_MainClass.ID
			XMLDOM.documentElement.attributes.setNamedItem(XMLDOM.createNode(2,"powerflag","")).text=Dv_IndivGroup_MainClass.PowerFlag
			XMLDOM.documentElement.attributes.setNamedItem(XMLDOM.createNode(2,"action","")).text=LCase(Request("action"))
			
			If LCase(Request("action"))="usermanage" Then
				Dim Node
				GroupUserID = Dvbbs.CheckNumeric(Request("groupuserid"))
				SQL = "Select ID,GroupID,UserID,UserName,Islock,Intro From [Dv_GroupUser] Where GroupID="&Dv_IndivGroup_MainClass.ID&" And ID="&GroupUserID
				Set Rs=Dv_IndivGroup_MainClass.Execute(SQL)
				Set UserXMLDom = Dvbbs.RecordsetToxml(Rs,"User","UserList")
				Set Node=UserXMLDom.documentElement.selectSingleNode("User")
				If Not Node Is Nothing Then
					Node.selectSingleNode("@intro").text = CodeEnNewline(Node.selectSingleNode("@intro").text)
					XMLDom.documentElement.appendChild(Node)
				End If
			Else
				SQL = "ID,GroupID,UserID,UserName,Islock,Intro"
				Select Case Query
					Case 1:SQL="Select "&SQL&" From [Dv_GroupUser] Where GroupID="&Dv_IndivGroup_MainClass.ID&" And IsLock=0 Order By ID Desc"
					Case 2:SQL="Select "&SQL&" From [Dv_GroupUser] Where GroupID="&Dv_IndivGroup_MainClass.ID&" And IsLock=1 Order By ID Desc"
					Case 3:SQL="Select "&SQL&" From [Dv_GroupUser] Where GroupID="&Dv_IndivGroup_MainClass.ID&" And IsLock=2 Order By ID Desc"
					Case Else
						SQL="Select "&SQL&" From [Dv_GroupUser] Where GroupID="&Dv_IndivGroup_MainClass.ID&" Order By ID Desc"
				End Select

				Dim i,MaxRows,Endpage,CountNum,PageSearch
				Endpage=0:MaxRows=20:CountNum=0
				PageSearch = "managetype=user&query="&Query&"&groupid="&Dv_IndivGroup_MainClass.ID

				Set Rs = Server.CreateObject ("adodb.recordset")
				If Not IsObject(Dv_IndivGroup_Conn) Then Dv_IndivGroup_ConnectionDatabase:
				Rs.Open SQL,Dv_IndivGroup_Conn,1,1
				If Not Rs.eof Then
					CountNum = Rs.RecordCount
					If CountNum Mod MaxRows=0 Then
						Endpage = CountNum \ MaxRows
					Else
						Endpage = CountNum \ MaxRows+1
					End If
					Rs.MoveFirst
					If Dv_IndivGroup_MainClass.Page > Endpage Then Dv_IndivGroup_MainClass.Page = Endpage
					If Dv_IndivGroup_MainClass.Page >1 Then Rs.Move (Dv_IndivGroup_MainClass.Page-1) * MaxRows
					SQL=Rs.GetRows(MaxRows)
					Set UserXMLDom=Dvbbs.ArrayToxml(SQL,Rs,"User","UserList")
					Rs.close:Set Rs = Nothing
					XMLDom.documentElement.appendChild(UserXMLDom.documentElement.cloneNode(True))
				End If
				'插入分页信息
				XMLDOM.documentElement.attributes.setNamedItem(XMLDOM.createNode(2,"MaxRows","")).text=MaxRows
				XMLDOM.documentElement.attributes.setNamedItem(XMLDOM.createNode(2,"CountNum","")).text=CountNum
				XMLDOM.documentElement.attributes.setNamedItem(XMLDOM.createNode(2,"PageSearch","")).text=PageSearch
			End If
			XMLDOM.documentElement.attributes.setNamedItem(XMLDOM.createNode(2,"Page","")).text=Dv_IndivGroup_MainClass.Page

			Set XSLTemplate=Server.CreateObject("Msxml2.XSLTemplate" & MsxmlVersion )
			Set XMLStyle=Server.CreateObject("Msxml2.FreeThreadedDOMDocument"& MsxmlVersion)
			'Response.clear:Response.write XMLDom.xml:Response.end
			XMLStyle.loadxml template.html(5)
			'XMLStyle.Load Server.MapPath("Dv_Plus/IndivGroup/Skin/Manage.xslt")

			XSLTemplate.stylesheet=XMLStyle
			Set proc = XSLTemplate.createProcessor()
			proc.input = XMLDom
			proc.transform()
			Response.Write  proc.output
			Set XMLDom=Nothing 
			Set proc=Nothing
	End Select
End Sub

Sub UpdateData()
	Dim i,InfoStr
	Dim TopicNum,PostNum,TodayNum,LastPost
	Dim GroupUserNum,GroupTopicNum,GroupPostNum,GroupTodayNum

	Set XMLDom=Server.CreateObject("msxml2.FreeThreadedDOMDocument"& MsxmlVersion)
	XMLDom.appendChild(XMLDom.createElement("IndivGroup"))
	XMLDOM.documentElement.attributes.setNamedItem(XMLDOM.createNode(2,"groupid","")).text=Dv_IndivGroup_MainClass.ID
	XMLDOM.documentElement.attributes.setNamedItem(XMLDOM.createNode(2,"powerflag","")).text=Dv_IndivGroup_MainClass.PowerFlag
	XMLDOM.documentElement.attributes.setNamedItem(XMLDOM.createNode(2,"action","")).text=LCase(Request("action"))

	InfoStr=""
	GroupUserNum=0:GroupTopicNum=0:GroupPostNum=0:GroupTodayNum=0

	SQL = "Select ID From Dv_Group_Board Where RootID="&Dv_IndivGroup_MainClass.ID
	Set Rs=Dv_IndivGroup_MainClass.Execute(SQL)
	If Not Rs.Eof Then
		SQL = Rs.GetRows(-1)
		Rs.Close:Set Rs=Nothing
		For i=0 To UBound(SQL,2)
			Set Rs=Dv_IndivGroup_MainClass.Execute("Select Count(*) From Dv_Group_Topic Where GroupID="&Dv_IndivGroup_MainClass.ID&" And BoardID="&SQL(0,i)&" And Istop=0")
			TopicNum = Rs(0):If IsNull(TopicNum) Then TopicNum=0
			GroupTopicNum = GroupTopicNum + TopicNum

			Set Rs=Dv_IndivGroup_MainClass.Execute("Select Count(*) From Dv_Group_BBS Where GroupID="&Dv_IndivGroup_MainClass.ID&" And BoardID="&SQL(0,i))
			PostNum = Rs(0):If IsNull(PostNum) Then PostNum=0
			GroupPostNum = GroupPostNum + PostNum

			If IsSqlDataBase=1 then
				Set Rs=Dv_IndivGroup_MainClass.Execute("Select Count(*) From Dv_Group_BBS Where GroupID="&Dv_IndivGroup_MainClass.ID&" And BoardID="&SQL(0,i)&" And Datediff(d,Dateandtime,"&SqlNowString&")=0")
			Else
				Set Rs=Dv_IndivGroup_MainClass.Execute("Select Count(*) From Dv_Group_BBS Where GroupID="&Dv_IndivGroup_MainClass.ID&" And BoardID="&SQL(0,i)&" And Datediff('d',Dateandtime,"&SqlNowString&")=0")
			End if
			TodayNum = Rs(0):If IsNull(TodayNum) Then TodayNum=0
			GroupTodayNum = GroupTodayNum + TodayNum

			Set Rs=Dv_IndivGroup_MainClass.Execute("Select Top 1 T.title,B.Announceid,B.Dateandtime,B.Username,B.Postuserid,B.Rootid From Dv_Group_BBS b Inner Join Dv_Group_Topic T On b.rootid=T.TopicID Where B.BoardID="&SQL(0,i)&" Order By B.Announceid Desc")
			If Not(Rs.Eof And Rs.Bof) Then
				LastPost = Rs(3)&"$"&Rs(1)&"$"&Rs(2)&"$"&Dv_IndivGroup_MainClass.cutStr(Replace(Rs(0),"$","&#36;"),25)&"$0$"&Rs(4)&"$"&Rs(5)&"$"&SQL(0,i)
			Else
				LastPost = "无$0$"&now()&"$无$0$0$0$"&SQL(0,i)
			End If
			
			Dv_IndivGroup_MainClass.Execute("Update Dv_Group_Board Set TopicNum="&TopicNum&",PostNum="&PostNum&",TodayNum="&TodayNum&",LastPost='"&LastPost&"' Where RootID="&Dv_IndivGroup_MainClass.ID&" And ID="&SQL(0,i))
		Next
	End If
	Rs.Close:Set Rs=Nothing

	SQL = "Select Count(*) From Dv_GroupUser Where GroupID="&Dv_IndivGroup_MainClass.ID&" And IsLock>0"
	Set Rs=Dv_IndivGroup_MainClass.Execute(SQL)
	GroupUserNum = Rs(0):If IsNull(GroupUserNum) Then GroupUserNum=0
	Dv_IndivGroup_MainClass.Execute("Update Dv_GroupName Set UserNum="&GroupUserNum&",TopicNum="&GroupTopicNum&",PostNum="&GroupPostNum&",TodayNum="&GroupTodayNum&" Where ID="&Dv_IndivGroup_MainClass.ID)
	InfoStr="圈子“"&Dv_IndivGroup_MainClass.Name&"”数据更新成功。"
	XMLDOM.documentElement.attributes.setNamedItem(XMLDOM.createNode(2,"InfoStr","")).text=InfoStr

	Set XSLTemplate=Server.CreateObject("Msxml2.XSLTemplate" & MsxmlVersion )
	Set XMLStyle=Server.CreateObject("Msxml2.FreeThreadedDOMDocument"& MsxmlVersion)
	XMLStyle.loadxml template.html(5)
	'XMLStyle.Load Server.MapPath("Dv_Plus/IndivGroup/Skin/Manage.xslt")

	XSLTemplate.stylesheet=XMLStyle
	Set proc = XSLTemplate.createProcessor()
	proc.input = XMLDom
	proc.transform()
	Response.Write  proc.output
	Set XMLDom=Nothing 
	Set proc=Nothing
End Sub

Function NewlineEnCode(Str)
	If Not IsNull(Str) Then
		Str = Replace(Str, CHR(13), "")
		Str = Replace(Str, CHR(10), "<BR/>")
		NewlineEnCode = Str
	End If
End Function

Function CodeEnNewline(Str)
	If Not IsNull(Str) Then
		Str = Replace(Str, "<BR/>", CHR(10))
		CodeEnNewline = Str
	End If
End Function
%>