📄 indivgroup_manage.asp

📁 公司企业网站管理系统全站源码,用于企业内部对网站的管理
💻 ASP
📖 第 1 页 / 共 2 页
字号:
12 下一页
<!--#include file="conn.asp"-->
<!--#include file="inc/const.asp" -->
<!--#include file="inc/dv_clsother.asp" -->
<!--#include file="Dv_plus/IndivGroup/Dv_IndivGroup_Config.asp"-->
<!--#include file="Dv_plus/IndivGroup/Dv_IndivGroup_MainCls.asp"-->
<%
Dim Rs,SQL
Dim XMLDom,Node,XSLTemplate,XMLStyle,proc
Dvbbs.LoadTemplates("indivgroup")

If Dv_IndivGroup_MainClass.ID=0 Or Dv_IndivGroup_MainClass.Name="" Then Response.redirect "showerr.asp?ErrCodes=对不起，你访问的圈子不存在或已经被删除1&action=OtherErr"
If Dv_IndivGroup_MainClass.PowerFlag=0 Or Dv_IndivGroup_MainClass.PowerFlag>3 Then Response.redirect "showerr.asp?ErrCodes=<li>只有该圈子管理员或论坛管理员才能进入圈子管理页面。&action=OtherErr"

Dv_IndivGroup_MainClass.stats="圈子管理"
Dvbbs.Nav()
Dv_IndivGroup_MainClass.Head_var 2,"",""
Select Case LCase(Request("managetype"))
	Case "info"
		InfoManage()
	Case "board"
		BoardManage()
	Case "user"
		UserManage()
	Case "updatedata"
		UpdateData()
	Case Else
		InfoManage()
End Select
Dvbbs.Footer()

Sub InfoManage()
	Response.Write Dvbbs.mainhtml(18)
	If LCase(Request("action"))="infosave" Then
		Dim GroupName,GroupInfo,AppUserID,AppUserName,GroupStats,GroupSetting,GroupViewflag

		GroupName = Dvbbs.CheckStr(Dvbbs.Replacehtml(Request("groupname")))
		GroupInfo = Dvbbs.CheckStr(NewlineEnCode(Request("groupinfo")))
		AppUserID = Dvbbs.CheckNumeric(Request("appuserid"))
		Response.write "<script language=""javascript"">"
		If Dv_IndivGroup_MainClass.PowerFlag=1 or Dv_IndivGroup_MainClass.PowerFlag=2 Then
			Set Rs=Dv_IndivGroup_MainClass.Execute("Select UserName From Dv_GroupUser Where GroupID="&Dv_IndivGroup_MainClass.ID&" And UserID="&AppUserID&" And IsLock=2")
			If Not Rs.Eof Then
				AppUserName = Rs(0)
			Else
				Response.write "parent.document.getElementById('infoForm').innerHTML='<font color=""red"">错误：ID为”"&AppUserID&"“的成员不是圈子管理员，不能把创建权转让给该成员。</font>'"
			End If
		End If
		GroupStats = Dvbbs.CheckNumeric(Request("groupstats"))
		GroupSetting = Dvbbs.CheckNumeric(Request("groupsetting"))
		GroupViewflag = Dvbbs.CheckNumeric(Request("Viewflag"))
		Set Rs = Server.CreateObject ("adodb.recordset")
		SQL = "Select GroupName,GroupInfo,AppUserID,AppUserName,Stats,Locked,ViewFlag From Dv_GroupName Where ID="&Dv_IndivGroup_MainClass.ID
		Rs.Open SQL,Conn,1,3
		If Not Rs.Eof Then
			Rs("GroupName") = GroupName
			Rs("GroupInfo") = GroupInfo
			If Dv_IndivGroup_MainClass.PowerFlag<3 Then
				Rs("AppUserID") = AppUserID
				Rs("AppUserName") = AppUserName
			End If
			Rs("Stats") = GroupStats
			Rs("Locked") = GroupSetting
			Rs("ViewFlag") = GroupViewflag
			Rs.Update
			Response.write "parent.document.getElementById('infoForm').innerHTML='<li>圈子信息更新成功。[<a href=\""?managetype=info&action=info&groupid="&Dv_IndivGroup_MainClass.ID&"\"">查看基本信息</a>]'"
		Else
			Response.write "parent.document.getElementById('infoForm').innerHTML='<font color=""red"">错误:GroupID参数错误，不能编辑圈子信息，可能是该圈子被删除了。</font>'"
		End If
		Response.write "</script>"
	Else
		Set XMLDom=Dv_IndivGroup_MainClass.InfoXMLDom
		If LCase(Request("action"))="infoedit" Then XMLDom.documentElement.firstChild.selectSingleNode("@groupinfo").text = CodeEnNewline(Dv_IndivGroup_MainClass.Info)

		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"))
		XMLDom.documentElement.appendChild(Dv_IndivGroup_MainClass.MasterXMLDom.documentElement.cloneNode(True))

		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 If
End Sub

Sub BoardManage()
	Dim BoardID
	If Request("action")="boardsave" Then 
		Dim boardname,boardinfo,indeximg,boardrules,boardstats
		boardid = Dvbbs.CheckNumeric(Request("groupboardid"))
		boardname = Dvbbs.CheckStr(Dvbbs.Replacehtml(Request("boardname")))
		boardinfo = Dvbbs.CheckStr(NewlineEncode(Request("boardinfo")))
		indeximg = Dvbbs.CheckStr(Request("indeximg"))
		boardrules = Dvbbs.CheckStr(NewlineEncode(Request("boardrules")))
		boardstats = Dvbbs.CheckNumeric(Request("boardstats"))
		Response.write "<script language=""javascript"">"
		If boardname="" Then Response.write "parent.document.getElementById('boardnamestr').innerHTML='←<font color=""red"">错误：栏目不能为空</font>'":Exit Sub
		If boardid>0 Then
			Dv_IndivGroup_MainClass.Execute("Update Dv_Group_Board Set boardname='"&boardname&"',boardinfo='"&boardinfo&"',indeximg='"&indeximg&"',founddate='"&now()&"',rules='"&boardrules&"',boardstats="&boardstats&" Where rootid="&Dv_IndivGroup_MainClass.ID&" And ID="&boardid)
			Response.write "parent.document.getElementById('boardForm').innerHTML='<li>栏目编辑成功。[<a href=\""javascript:history.go(-1)\"">返回</a>]'"
		Else
			Dv_IndivGroup_MainClass.Execute("insert into Dv_Group_Board(boardname,boardinfo,indeximg,rootid,founddate,rules,boardstats) values('"&boardname&"','"&boardinfo&"','"&indeximg&"',"&Dv_IndivGroup_MainClass.ID&",'"&now()&"','"&boardrules&"',"&boardstats&")")
			Response.write "parent.document.getElementById('boardForm').innerHTML='<li>栏目增加成功。[<a href=\""javascript:history.go(-1)\"">返回</a>]'"
		End If
		Response.write "</script>"
	ElseIf Request("action")="boarddelete" Then
		BoardID = Dv_IndivGroup_MainClass.BoardID
		Set Rs = Dv_IndivGroup_MainClass.Execute("Select PostNum,TopicNum,TodayNum From Dv_Group_Board Where RootID="&Dv_IndivGroup_MainClass.ID&" And ID="&BoardID)
		If Not Rs.Eof Then
			Dv_IndivGroup_MainClass.Execute("Update Dv_GroupName Set PostNum=PostNum-"&Rs(0)&",TopicNum=TopicNum-"&Rs(1)&",TodayNum=TodayNum-"&Rs(2)&" Where ID="&Dv_IndivGroup_MainClass.ID)
			Dv_IndivGroup_MainClass.Execute("Delete From Dv_Group_Board Where RootID="&Dv_IndivGroup_MainClass.ID&" And ID="&BoardID)
			Dv_IndivGroup_MainClass.Execute("Delete From Dv_Group_Topic Where GroupID="&Dv_IndivGroup_MainClass.ID&" And BoardID="&BoardID)
			Dv_IndivGroup_MainClass.Execute("Delete From Dv_Group_BBS Where GroupID="&Dv_IndivGroup_MainClass.ID&" And BoardID="&BoardID)
		End IF
		Rs.Close:Set Rs=Nothing
		Response.write "<script language=""javascript"">"
		Response.write "alert('删除成功');"
		Response.write "parent.document.getElementById('board_"&BoardID&"').style.display='none';"
		Response.write "</script>"
	Else
		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"))="boardmanage" Then
			Set Node=Dv_IndivGroup_MainClass.BoardXMLDom.documentElement.selectSingleNode("Board[@id='"&Dv_IndivGroup_MainClass.BoardID&"']")
			If Not Node Is Nothing Then
				Node.selectSingleNode("@boardinfo").text = CodeEnNewline(Node.selectSingleNode("@boardinfo").text)
				Node.selectSingleNode("@rules").text = CodeEnNewline(Node.selectSingleNode("@rules").text)
				XMLDom.documentElement.appendChild(Node)
			End If
		Else
			XMLDom.documentElement.appendChild(Dv_IndivGroup_MainClass.BoardXMLDom.documentElement.cloneNode(True))
		End If
		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 If
End Sub

Sub UserManage()
	Dim GroupUserID,loadlink
	Select Case LCase(Request("action"))
		Case "usersave"
			Dim UserStats,UserIntro,UserName
			GroupUserID = Dvbbs.CheckNumeric(Request("GroupUserID"))
			UserStats = Dvbbs.CheckNumeric(Request("userstats"))
			UserIntro = Dvbbs.CheckStr(NewlineEncode(Request("userintro")))
			Response.write "<script language=""javascript"">"

			Set Rs=Dv_IndivGroup_MainClass.Execute("Select UserID,UserName,IsLock From Dv_GroupUser Where ID="&GroupUserID&" And GroupID="&Dv_IndivGroup_MainClass.ID)
			If Not Rs.Eof Then
				If Dv_IndivGroup_MainClass.PowerFlag<3 or Rs(2)<>2 or Rs(0)=Dvbbs.UserID Then
					If Rs(2)=0 And UserStats>0 And Dv_IndivGroup_MainClass.UserNum = Dv_IndivGroup_MainClass.LimitMemberNum Then
						Response.write "parent.document.getElementById('userForm').innerHTML='<li>修改成员资料失败，圈子已经达到成员数上限，不能修改审核中成员的状态。'"
					Else
						Dv_IndivGroup_MainClass.Execute("Update Dv_GroupUser Set IsLock="&UserStats&",Intro='"&UserIntro&"' Where ID="&GroupUserID&" And GroupID="&Dv_IndivGroup_MainClass.ID)

						SQL = ""
						If Rs(2)=0 And UserStats>0 Then
							SQL = "UserNum=UserNum+1"
							If Dv_IndivGroup_MainClass.UserNum+1 = Dv_IndivGroup_MainClass.LimitMemberNum Then SQL = SQL & ",Stats=2" 
						End If
						If Rs(2)>1 And UserStats=0 Then SQL = "UserNum=UserNum-1"
						If SQL <> "" Then Dv_IndivGroup_MainClass.Execute("Update Dv_GroupName Set "&SQL&" Where ID="&Dv_IndivGroup_MainClass.ID)
					End If
					Response.write "parent.document.getElementById('userForm').innerHTML='<li>修改成员资料成功'"
				Else
					UserName=Rs(1)
					Response.write "parent.document.getElementById('userForm').innerHTML='<li>对不起，成员“"&UserName&"”是管理员，不能修改同等级成员信息。'"
				End If
			Else
				Response.write "parent.document.getElementById('userForm').innerHTML='错误：修改失败，成员已经退出或被踢出“"&Dv_IndivGroup_MainClass.Name&"”圈子。';"
			End If
			Rs.Close:Set Rs=Nothing

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

			Set Rs=Dv_IndivGroup_MainClass.Execute("Select UserID,UserName,IsLock From Dv_GroupUser Where ID="&GroupUserID&" And GroupID="&Dv_IndivGroup_MainClass.ID)
			If Not Rs.Eof Then
				If Dv_IndivGroup_MainClass.PowerFlag<3 or Rs(2)<>2 or Rs(0)=Dvbbs.UserID Then
					Dv_IndivGroup_MainClass.Execute("Delete From Dv_GroupUser Where ID="&GroupUserID&" And GroupID="&Dv_IndivGroup_MainClass.ID)
					Dv_IndivGroup_MainClass.Execute("Update Dv_GroupName Set UserNum=UserNum-1 Where ID="&Dv_IndivGroup_MainClass.ID)
12 下一页
⌨️ 快捷键说明

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