📄 b;guanli.asp

📁 支持IE 手机同步访问的WAP论坛社区程序
💻 ASP
字号:
<!--#Include File="Inc/xkon.Asp"--><%
Call QuanXian("1",0)
Private c,s
Set c=New xkon_Response
Set s=New xkon_Request
	Dim ID
	ID=s.QueryString_Long("ID")
	Private Sub x()
		c.Write(xkon_FenXi(Replace(Replace(Replace(Read_Text("B;GuanLi;X"),xkon_S("名称"),DuQu_BanKuai(ID,"BanKuai_MingChen")),xkon_S("简介"),DuQu_BanKuai(ID,"BanKuai_JianJie")),xkon_S("编号"),ID)))
	End Sub
	Private Sub JiaRu(JiaRu_ZhangHao)
		Dim JiaRu_Cn1,JiaRu_Cn2,J_ID
		Set JiaRu_Cn1=Server.CreateObject("Adodb.Command")
		JiaRu_Cn1.ActiveConnection=Conn
		JiaRu_Cn1.CommandType=1
		JiaRu_Cn1.CommandText="Select id From ChengYuan Where ZhangHao='"&JiaRu_ZhangHao&"' And BanKuai_ID="&ID
		Set JiaRu_Cn2=JiaRu_Cn1.Execute
		If Not JiaRu_Cn2.Eof Then Call xkon_Error("不能重复加入")
		Set JiaRu_Cn2=Nothing
		Set JiaRu_Cn1=Nothing
		Set JiaRu_Cn2=Server.CreateObject("Adodb.Command")
		JiaRu_Cn2.ActiveConnection=Conn
		JiaRu_Cn2.CommandType=1
		JiaRu_Cn2.CommandText="Select id From ChengYuan Order By ID Desc"
		Set JiaRu_Cn1=JiaRu_Cn2.Execute
		If JiaRu_Cn1.Eof Then
			J_ID=1
		Else
			J_ID=JiaRu_Cn1("ID")+1
		End If
		Set JiaRu_Cn2=Nothing
		Set JiaRu_Cn1=Nothing
		Conn.Execute("Insert Into ChengYuan(ID,BanKuai_ID,ZhangHao,NiChen,BanKuai_MingChen)Values('"&J_ID&"','"&ID&"','"&JiaRu_ZhangHao&"','"&Get_NiChen(JiaRu_ZhangHao)&"','"&DuQu_BanKuai(ID,"BanKuai_MingChen")&"')")
	End Sub
	Private Sub JiaRu_1()
		Call OpenData()
		Call FaXin("xkon.cn",Zi_ZhangHao,0,"你加入了"&DuQu_BanKuai(ID,"BanKuai_MingChen"))
		Call FaXin("xkon.cn",DuQu_BanKuai(ID,"BanKuai_BanZhu"),0,"用户"&Zi_ZhangHao&"加入了"&DuQu_BanKuai(ID,"BanKuai_MingChen"))
		Call JiaRu(Zi_ZhangHao)
		Call CloseData()
		Response.Redirect(Replace(xkon_FenXi("B;LieBiao.Asp?ID="&ID&"{(xkon.cn)链接}"),"&amp;","&"))
	End Sub
	Private Sub JiaRu_2()
		Call OpenData()
		Call FaXin("xkon.cn",Zi_ZhangHao,0,"你向管理员"&DuQu_BanKuai(ID,"BanKuai_BanZhu")&"发出了加入申请,请等待管理员审核")
		Call FaXin("xkon.cn",DuQu_BanKuai(ID,"BanKuai_BanZhu"),0,"用户"&Zi_ZhangHao&"申请加入"&DuQu_BanKuai(ID,"BanKuai_MingChen")&"<br/><a href=""B;GuanLi.Asp?ID="&ID&"&amp;l=z&amp;z="&Zi_ZhangHao&"{(xkon.cn)链接}"">通过</a><br/><a href=""B;GuanLi.Asp?ID="&ID&"&amp;l=jj&amp;z="&Zi_ZhangHao&"{(xkon.cn)链接}"">拒绝</a>")
		Call CloseData()
		Response.Redirect(Replace(xkon_FenXi("B;LieBiao.Asp?ID="&ID&"{(xkon.cn)链接}"),"&amp;","&"))
	End Sub
	Private Sub GuanLi()
		If Zi_ZhangHao<>DuQu_BanKuai(ID,"BanKuai_BanZhu") Then Call xkon_Error("你还不是创建者")
	End Sub
	Private Sub z()
		Call GuanLi()
		Call OpenData()
		Call FaXin("xkon.cn",s.QueryString("z"),0,"你加入了"&DuQu_BanKuai(ID,"BanKuai_MingChen"))
		Call JiaRu(s.QueryString("z"))
		Call CloseData()
		Response.Redirect(Replace(xkon_FenXi("B;LieBiao.Asp?ID="&ID&"{(xkon.cn)链接}"),"&amp;","&"))
	End Sub
	Private Sub jj()
		If Zi_ZhangHao<>DuQu_BanKuai(ID,"BanKuai_BanZhu") Then Call xkon_Error("你还不是管理员")
		Call OpenData()
		Call FaXin("xkon.cn",s.QueryString("z"),0,"管理员拒绝了你的请求")
		Call CloseData()
		Response.Redirect(Replace(xkon_FenXi("B;LieBiao.Asp?ID="&ID&"{(xkon.cn)链接}"),"&amp;","&"))
	End Sub
	Private Sub JiaRu_3()
		Call xkon_Error("禁止加入成员")
	End Sub
	Private Function c1()
		Dim C_Cn1,p,i
		p=s.QueryString_Long("p")
		Call OpenData()
		Set C_Cn1=Server.CreateObject("Adodb.RecordSet")
		C_Cn1.Open "Select ZhangHao,NiChen From ChengYuan Where BanKuai_ID="&ID,Conn,1,1
		C_Cn1.PageSize=Const_Page_Ys
		If C_Cn1.Eof Then Call xkon_Error("没有任何成员加入")
		C_Cn1.AbsolutePage=p
		For i=1 To Const_Page_Ys
			If C_Cn1.Eof Then Exit For
			c1=c1&"<a href=""ZiLiao.Asp?ZhangHao="&C_Cn1("ZhangHao")&"{(xkon.cn)链接}"">"&C_Cn1("NiChen")&"</a><br/>"
			C_Cn1.MoveNext
		Next
			c1=c1&CPage(C_Cn1.PageCount,p,"B;GuanLi.Asp?l=c{(xkon.cn)链接}&amp;")
		C_Cn1.Close
		Set C_Cn1=Nothing
		Call CloseData()
	End Function
	Private Function ChengYuan_GuanLi()
		Dim ChengYuan_GuanLi_Cn1,p,i
		p=s.QueryString_Long("p")
		Call OpenData()
			Set ChengYuan_GuanLi_Cn1=Server.CreateObject("Adodb.RecordSet")
			ChengYuan_GuanLi_Cn1.Open "Select ZhangHao,NiChen From ChengYuan Where BanKuai_ID="&ID,Conn,1,1
			ChengYuan_GuanLi_Cn1.PageSize=Const_Page_Ys
			If ChengYuan_GuanLi_Cn1.Eof Then ChengYuan_GuanLi="暂时没有成员":ChengYuan_GuanLi_Cn1.Close:Set ChengYuan_GuanLi_Cn1=Nothing:Call CloseData():Exit Function
			ChengYuan_GuanLi_Cn1.AbsolutePage=p
			For i=1 To Const_Page_Ys
				If ChengYuan_GuanLi_Cn1.Eof Then Exit For
				ChengYuan_GuanLi=ChengYuan_GuanLi&"<a href=""ZiLiao.Asp?ZhangHao="&ChengYuan_GuanLi_Cn1("ZhangHao")&"{(xkon.cn)链接}"">"&ChengYuan_GuanLi_Cn1("NiChen")&"</a><a href=""B;GuanLi.Asp?l=She&amp;ID="&ID&"&amp;ZhangHao="&ChengYuan_GuanLi_Cn1("ZhangHao")&"{(xkon.cn)链接}"">设为管理员</a><a href=""B;GuanLi.Asp?l=Shan&amp;ID="&ID&"&amp;ZhangHao="&ChengYuan_GuanLi_Cn1("ZhangHao")&"{(xkon.cn)链接}"">删除</a><br/>"
				ChengYuan_GuanLi_Cn1.MoveNext
			Next
			ChengYuan_GuanLi=ChengYuan_GuanLi&CPage(ChengYuan_GuanLi_Cn1.PageCount,p,"B;GuanLi.Asp?l=ChengYuan_GuanLi&amp;ID="&ID&"{(xkon.cn)链接}&amp;")
			ChengYuan_GuanLi_Cn1.Close
			Set ChengYuan_GuanLi_Cn1=Nothing
		Call CloseData()
	End Function
	Private Sub g()
		c.Write(xkon_FenXi(Replace(Read_Text("B;GuanLi;G"),xkon_S("编号"),ID)))
	End Sub
	Private Sub b()
		Call GuanLi()
		c.Write(xkon_FenXi(Replace(Read_Text("B;GuanLi;B"),xkon_S("编号"),ID)))
	End Sub
	Private Sub b2()
		Call GuanLi()
		Dim BanKuai_MingChen,BanKuai_JianJie,ChengYuan_JiaRu
		BanKuai_MingChen=s.Form_Str("BanKuai_MingChen",1,16)
		BanKuai_JianJie=s.Form_Str("BanKuai_JianJie",1,250)
		ChengYuan_JiaRu=s.Form_Str("ChengYuan_JiaRu",1,1)
		If BanKuai_MingChen="" Or BanKuai_JianJie="" Or ChengYuan_JiaRu="" Then Call xkon_Error("所有填写项不能为空")
		Call OpenData()
			Conn.Execute("Update BanKuai Set BanKuai_MingChen='"&BanKuai_MingChen&"',BanKuai_JianJie='"&BanKuai_JianJie&"',ChengYuan_JiaRu='"&ChengYuan_JiaRu&"' Where ID="&ID)
		Call CloseData()
		DelFile(Server.Mappath("File/BanKuai/"&ID&".xkon.cn"))
		Response.Redirect(Replace(xkon_FenXi("B;LieBiao.Asp?ID="&ID&"{(xkon.cn)链接}"),"&amp;","&"))
	End Sub
	Private Function GuanLiYuan()
		Dim GuanLiYuan_Cn1,p,i
		p=s.QueryString_Long("p")
		Call OpenData()
			Set GuanLiYuan_Cn1=Server.CreateObject("Adodb.RecordSet")
			GuanLiYuan_Cn1.Open "Select MingChen,HuiYuan From BanZhu Where BanKuai="&ID,Conn,1,1
			GuanLiYuan_Cn1.PageSize=Const_Page_Ys
			If GuanLiYuan_Cn1.Eof Then GuanLiYuan="暂时没有管理员<br/>":GuanLiYuan_Cn1.Close:Set GuanLiYuan_Cn1=Nothing:Call CloseData():Exit Function
			GuanLiYuan_Cn1.AbsolutePage=p
			For i=1 To Const_Page_Ys
				If GuanLiYuan_Cn1.Eof Then Exit For
				GuanLiYuan=GuanLiYuan&"<a href=""ZiLiao.Asp?ZhangHao="&GuanLiYuan_Cn1("HuiYuan")&"{(xkon.cn)链接}"">"&GuanLiYuan_Cn1("MingChen")&"</a><a href=""B;GuanLi.Asp?l=s&amp;ZhangHao="&GuanLiYuan_Cn1("HuiYuan")&"{(xkon.cn)链接}"">删除</a><br/>"
				GuanLiYuan_Cn1.MoveNext
			Next
			GuanLiYuan=GuanLiYuan&CPage(GuanLiYuan_Cn1.PageCount,p,"B;GuanLi.Asp?l=GuanLiYuan{(xkon.cn)链接}&amp;")
			GuanLiYuan_Cn1.Close
			Set GuanLiYuan_Cn1=Nothing
		Call CloseData()
	End Function
	Private Sub She()
		Dim ZhangHao,J_ID,She_Cn1,She_Cn2
		ZhangHao=s.QueryString("ZhangHao")
		Call OpenData()
		Set She_Cn1=Server.CreateObject("Adodb.Command")
		She_Cn1.ActiveConnection=Conn
		She_Cn1.CommandType=1
		She_Cn1.CommandText="Select ID From BanZhu Order By ID Desc"
		Set She_Cn2=She_Cn1.Execute
		If She_Cn2.Eof Then
			J_ID=1
		Else
			J_ID=She_Cn2("ID")+1
		End If
		Set She_Cn1=Nothing
		Set She_Cn2=Nothing
		Conn.Execute("Insert Into BanZhu(ID,MingChen,HuiYuan,BanKuai)Values('"&J_ID&"','"&Get_NiChen(ZhangHao)&"','"&ZhangHao&"','"&ID&"')")
		Call FaXin("xkon.cn",ZhangHao,0,DuQu_BanKuai(ID,"BanKuai_MingChen")&"的创建者"&Zi_ZhangHao&"将您设为管理员<br/><a href=""B;LieBiao.Asp?ID="&ID&"{(xkon.cn)链接}"">查看</a>")
		Call CloseData()
		Response.Redirect(Replace(xkon_FenXi("B;GuanLi.Asp?l=GuanLiYuan&amp;ID="&ID&"{(xkon.cn)链接}"),"&amp;","&"))
	End Sub
	Private Sub Shan()
		Dim ZhangHao
		ZhangHao=s.QueryString("ZhangHao")
		Call OpenData()
			Conn.Execute("Delete From ChengYuan Where ZhangHao='"&ZhangHao&"' And BanKuai_ID="&ID)
		Call CloseData()
		Response.Redirect(Replace(xkon_FenXi("B;GuanLi.Asp?l=ChengYuan_GuanLi&amp;ID="&ID&"{(xkon.cn)链接}"),"&amp;","&"))
	End Sub
	Private Sub Delete()
		Dim ZhangHao
		ZhangHao=s.QueryString("ZhangHao")
		Call OpenData()
		Conn.Execute("Delete From BanZhu Where HuiYuan='"&ZhangHao&"' And BanKuai="&ID)
		Call CloseData()
		Response.Redirect(Replace(xkon_FenXi("B;GuanLi.Asp?l=GuanLiYuan&amp;ID="&ID&"{(xkon.cn)链接}"),"&amp;","&"))
	End Sub
	Call H_Title("{(xkon.cn)家族名称}管理")
	Dim l
	l=s.QueryString("l")
	Select Case l
	Case "x"
		Call x()
	Case "j"
		Select Case DuQu_BanKuai(ID,"ChengYuan_JiaRu")
		Case "1"
			Call JiaRu_1()
		Case "2"
			Call JiaRu_2()
		Case "3"
			Call JiaRu_3()
		End Select
	Case "z"
		Call z()
	Case "jj"
		Call jj()
	Case "c"
		c.Write(xkon_FenXi(Replace(Replace(Read_Text("B;GuanLi1"),xkon_S("成员列表"),c1()),xkon_S("编号"),ID)))
	Case "g"
		Call g()
	Case "b"
		Call b()
	Case "b2"
		Call b2()
	Case "GuanLiYuan"
		Call GuanLi()
		c.Write(xkon_FenXi(Replace(Replace(Read_Text("B;GuanLi;GuanLiYuan"),xkon_S("编号"),ID),xkon_S("管理员列表"),GuanLiYuan())))
	Case "ChengYuan_GuanLi"
		Call GuanLi()
		c.Write(xkon_FenXi(Replace(Replace(Read_Text("B;GuanLi;ChengYuan_GuanLi"),xkon_S("编号"),ID),xkon_S("成员列表"),ChengYuan_GuanLi())))
	Case "She"
		Call GuanLi()
		Call She()
	Case "s"
		Call GuanLi()
		Call Delete()
	Case "Shan"
		Call GuanLi()
		Call Shan()
	End Select
	Call H_End()
Set c=Nothing
Set s=Nothing
%>
⌨️ 快捷键说明

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