📄 admin_caozuo.asp

📁 支持IE 手机同步访问的WAP论坛社区程序
💻 ASP
字号:
<!--#Include File="../Inc/Head.Asp"--><%
Private FangWen
Set FangWen=New xkon_FangWen
FangWen.FangWen()
FangWen.Admin_Admin()
Set FangWen=Nothing
Call H_Title("管理站长-操作")
Private c,s
Private Table_Admin,Admin_Get
Set c=New xkon_Response
Set s=New xkon_Request
Private Sub j()
	c.Writeln("<form method=""post"" action=""Admin_CaoZuo.Asp?l=j2"">账号:<input type=""text"" name=""ZhangHao"" />")
	c.Writeln("密码:<input type=""password"" name=""MiMa"" />")
	c.Writeln("访问后台:<input type=""checkbox"" name=""FangWen""/>")
	c.Writeln("修改密码:<input type=""checkbox"" name=""Admin_MiMa""/>")
	c.Writeln("管理站长:<input type=""checkbox"" name=""Admin_Admin""/>")
	c.Writeln("修改基本信息:<input type=""checkbox"" name=""Admin_JBXX""/>")
	c.Writeln("管理广告:<input type=""checkbox"" name=""Admin_GG""/>")
	c.Writeln("管理帮助,公告,制度:<input type=""checkbox"" name=""Admin_Help""/>")
	c.Writeln("管理头像:<input type=""checkbox"" name=""Admin_TouXiang""/>")
	c.Writeln("查看管理记录:<input type=""checkbox"" name=""JiLu""/>")
	c.Writeln("管理等级设置:<input type=""checkbox"" name=""DenJi""/>")
	c.Writeln("管理版块:<input type=""checkbox"" name=""BanKuai""/>")
	c.Writeln("管理版主:<input type=""checkbox"" name=""BanZhu""/>")
	c.Writeln("管理贴子:<input type=""checkbox"" name=""TieZhi""/>")
	c.Writeln("管理回复:<input type=""checkbox"" name=""HuiFu""/>")
	c.Writeln("管理会员:<input type=""checkbox"" name=""HuiYuan""/>")
	c.Writeln("管理消息:<input type=""checkbox"" name=""XiaoXi""/>")
	c.Writeln("过滤字符:<input type=""checkbox"" name=""ZiFu_GuoLv""/>")
	c.Writeln("管理表情:<input type=""checkbox"" name=""BiaoQing""/>")
	c.Writeln("备份恢复数据库:<input type=""checkbox"" name=""FangWen""/>")
	c.Writeln("修改提示:<input type=""checkbox"" name=""TiShi""/>")
	c.Writeln("修改调查:<input type=""checkbox"" name=""DiaoCha""/>")
	c.Writeln("群发信息:<input type=""checkbox"" name=""QunFa""/>")
	c.Writeln("加黑IP:<input type=""checkbox"" name=""IP""/>")
	c.Write("<input type=""submit"" value=""增加"" /></form>")
End Sub
Private Sub j2()
	Dim ZhangHao,MiMa,FangWen,Admin_MiMa,Admin_Admin,Admin_JBXX,Admin_GG,Admin_Help,Admin_TouXiang,JJiLu,DenJi,BanKuai,BanZhu,TieZhi,HuiFu,HuiYuan,XiaoXi,ZiFu_GuoLv,BiaoQing,Data,TiShi,DiaoCha,QunFa,IP
	ZhangHao=s.Form_aa("ZhangHao",4,16)
	MiMa=s.Form_aa("MiMa",4,16)
	FangWen=Checkeded(s.Form("FangWen"))
	Admin_MiMa=Checkeded(s.Form("Admin_MiMa"))
	Admin_Admin=Checkeded(s.Form("Admin_Admin"))
	Admin_JBXX=Checkeded(s.Form("Admin_JBXX"))
	Admin_GG=Checkeded(s.Form("Admin_GG"))
	Admin_Help=Checkeded(s.Form("Admin_Help"))
	Admin_TouXiang=Checkeded(s.Form("Admin_TouXiang"))
	JJiLu=Checkeded(s.Form("JiLu"))
	DenJi=Checkeded(s.Form("DenJi"))
	BanKuai=Checkeded(s.Form("BanKuai"))
	BanZhu=Checkeded(s.Form("BanZhu"))
	TieZhi=Checkeded(s.Form("TieZhi"))
	HuiFu=Checkeded(s.Form("HuiFu"))
	HuiYuan=Checkeded(s.Form("HuiYuan"))
	XiaoXi=Checkeded(s.Form("XiaoXi"))
	ZiFu_GuoLv=Checkeded(s.Form("ZiFu_GuoLv"))
	BiaoQing=Checkeded(s.Form("BiaoQing"))
	Data=Checkeded(s.Form("Data"))
	TiShi=Checkeded(s.Form("TiShi"))
	DiaoCha=Checkeded(s.Form("DiaoCha"))
	QunFa=Checkeded(s.Form("QunFa"))
	IP=Checkeded(s.Form("IP"))
	If ZhangHao="" Or MiMa="" Then
		Call xkon_Error("账号或密码不能为空")
	End If
	Call OpenData()
		Dim Cn1,Cn2,J_ID
		Set Cn1=Server.CreateObject("Adodb.Command")
		Cn1.ActiveConnection=Conn
		Cn1.CommandType=1
		Cn1.CommandText="Select ID From Admin Order By ID Desc"
		Set Cn2=Cn1.Execute
		If Cn2.Eof Then
			J_ID=1
		Else
			J_ID=Cn2("ID")+1
		End If
		Set Cn2=Nothing
		Set Cn1=Nothing
		Set Cn1=Server.CreateObject("Adodb.Recordset")
		Cn1.Open "Select * From Admin",Conn,1,2
		Cn1.AddNew
		Cn1("ID")=J_ID
		Cn1("ZhangHao")=ZhangHao
		Cn1("MiMa")=MiMa
		Cn1("QuanXian")=FangWen&" "&Admin_MiMa&" "&Admin_Admin&" "&Admin_JBXX&" "&Admin_GG&" "&Admin_Help&" "&Admin_TouXiang&" "&JJiLu&" "&DenJi&" "&BanKuai&" "&BanZhu&" "&TieZhi&" "&HuiFu&" "&HuiYuan&" "&XiaoXi&" "&ZiFu_GuoLv&" "&BiaoQing&" "&Data&" "&TiShi&" "&DiaoCha&" "&QunFa&" "&IP
		Cn1.Update
		Cn1.Close
		Set Cn1=Nothing
		Call JiLu("增加管理员"&J_ID)
	Call CloseData()
	Response.Write("<script language=javascript>location.href=""Admin.Asp"";</script>")
	Response.End()
End Sub
Private Sub b()
	Call OpenData()
		Dim Cn1,Cn2
		Set Cn1=Server.CreateObject("Adodb.Command")
		Cn1.ActiveConnection=Conn
		Cn1.CommandType=1
		Cn1.CommandText="Select * From Admin Where ID="&ID
		Set Cn2=Cn1.Execute
		If Cn2.Eof Then
			Call xkon_Error("该管理员不存在")
		End If
		Dim QuanXian,ZhangHao,MiMa
		ZhangHao=Cn2("ZhangHao")
		MiMa=Cn2("MiMa")
		QuanXian=Split(Cn2("QuanXian")," ")
	c.Writeln("<form method=""post"" action=""Admin_CaoZuo.Asp?l=b2&amp;id="&id&""">账号:<input type=""text"" name=""ZhangHao"" value="""&ZhangHao&""" />")
	c.Writeln("密码:<input type=""password"" name=""MiMa"" value="""&MiMa&""" />")
	c.Writeln("访问后台:<input type=""checkbox"" name=""FangWen"" "&Checked(QuanXian(0))&"/>")
	c.Writeln("修改密码:<input type=""checkbox"" name=""Admin_MiMa"" "&Checked(QuanXian(1))&"/>")
	c.Writeln("管理站长:<input type=""checkbox"" name=""Admin_Admin"" "&Checked(QuanXian(2))&"/>")
	c.Writeln("修改基本信息:<input type=""checkbox"" name=""Admin_JBXX"" "&Checked(QuanXian(3))&"/>")
	c.Writeln("管理广告:<input type=""checkbox"" name=""Admin_GG"" "&Checked(QuanXian(4))&"/>")
	c.Writeln("管理帮助,公告,制度:<input type=""checkbox"" name=""Admin_Help"" "&Checked(QuanXian(5))&"/>")
	c.Writeln("管理头像:<input type=""checkbox"" name=""Admin_TouXiang"" "&Checked(QuanXian(6))&"/>")
	c.Writeln("查看管理记录:<input type=""checkbox"" name=""JiLu"" "&Checked(QuanXian(7))&"/>")
	c.Writeln("管理等级设置:<input type=""checkbox"" name=""DenJi"" "&Checked(QuanXian(8))&"/>")
	c.Writeln("管理版块:<input type=""checkbox"" name=""BanKuai"" "&Checked(QuanXian(9))&"/>")
	c.Writeln("管理版主:<input type=""checkbox"" name=""BanZhu"" "&Checked(QuanXian(10))&"/>")
	c.Writeln("管理贴子:<input type=""checkbox"" name=""TieZhi"" "&Checked(QuanXian(11))&"/>")
	c.Writeln("管理回复:<input type=""checkbox"" name=""HuiFu"" "&Checked(QuanXian(12))&"/>")
	c.Writeln("管理会员:<input type=""checkbox"" name=""HuiYuan"" "&Checked(QuanXian(13))&"/>")
	c.Writeln("管理消息:<input type=""checkbox"" name=""XiaoXi"" "&Checked(QuanXian(14))&"/>")
	c.Writeln("过滤字符:<input type=""checkbox"" name=""ZiFu_GuoLv"" "&Checked(QuanXian(15))&"/>")
	c.Writeln("管理表情:<input type=""checkbox"" name=""BiaoQing"" "&Checked(QuanXian(16))&"/>")
	c.Writeln("备份恢复数据库:<input type=""checkbox"" name=""Data"" "&Checked(QuanXian(17))&"/>")
	c.Writeln("修改提示:<input type=""checkbox"" name=""TiShi"" "&Checked(QuanXian(18))&"/>")
	c.Writeln("修改调查:<input type=""checkbox"" name=""DiaoCha"" "&Checked(QuanXian(19))&"/>")
	c.Writeln("群发信息:<input type=""checkbox"" name=""QunFa"" "&Checked(QuanXian(20))&"/>")
	c.Writeln("加黑IP:<input type=""checkbox"" name=""IP"" "&Checked(QuanXian(21))&"/>")
	c.Write("<input type=""submit"" value=""增加"" /></form>")
End Sub
Private Sub b2()
	Dim ZhangHao,MiMa,FangWen,Admin_MiMa,Admin_Admin,Admin_JBXX,Admin_GG,Admin_Help,Admin_TouXiang,JJiLu,DenJi,BanKuai,BanZhu,TieZhi,HuiFu,HuiYuan,XiaoXi,ZiFu_GuoLv,BiaoQing,Data,TiShi,DiaoCha,QunFa,IP
	ZhangHao=s.Form_aa("ZhangHao",4,16)
	MiMa=s.Form_aa("MiMa",4,16)
	FangWen=Checkeded(s.Form("FangWen"))
	Admin_MiMa=Checkeded(s.Form("Admin_MiMa"))
	Admin_Admin=Checkeded(s.Form("Admin_Admin"))
	Admin_JBXX=Checkeded(s.Form("Admin_JBXX"))
	Admin_GG=Checkeded(s.Form("Admin_GG"))
	Admin_Help=Checkeded(s.Form("Admin_Help"))
	Admin_TouXiang=Checkeded(s.Form("Admin_TouXiang"))
	JJiLu=Checkeded(s.Form("JiLu"))
	DenJi=Checkeded(s.Form("DenJi"))
	BanKuai=Checkeded(s.Form("BanKuai"))
	BanZhu=Checkeded(s.Form("BanZhu"))
	TieZhi=Checkeded(s.Form("TieZhi"))
	HuiFu=Checkeded(s.Form("HuiFu"))
	HuiYuan=Checkeded(s.Form("HuiYuan"))
	XiaoXi=Checkeded(s.Form("XiaoXi"))
	ZiFu_GuoLv=Checkeded(s.Form("ZiFu_GuoLv"))
	BiaoQing=Checkeded(s.Form("BiaoQing"))
	Data=Checkeded(s.Form("Data"))
	TiShi=Checkeded(s.Form("TiShi"))
	DiaoCha=Checkeded(s.Form("DiaoCha"))
	QunFa=Checkeded(s.Form("QunFa"))
	IP=Checkeded(s.Form("IP"))
	If ZhangHao="" Or MiMa="" Then
		Call xkon_Error("账号或密码不能为空")
	End If
	Call OpenData()
		Dim Cn1
		Set Cn1=Server.CreateObject("Adodb.Recordset")
		Cn1.Open "Select * From Admin Where ID="&ID,Conn,1,2
		Cn1("ZhangHao")=ZhangHao
		Cn1("MiMa")=MiMa
		Dim QuanXian
		QuanXian=FangWen&" "&Admin_MiMa&" "&Admin_Admin&" "&Admin_JBXX&" "&Admin_GG&" "&Admin_Help&" "&Admin_TouXiang&" "&JJiLu&" "&DenJi&" "&BanKuai&" "&BanZhu&" "&TieZhi&" "&HuiFu&" "&HuiYuan&" "&XiaoXi&" "&ZiFu_GuoLv&" "&BiaoQing&" "&Data&" "&TiShi&" "&DiaoCha&" "&QunFa&" "&IP
		Cn1("QuanXian")=QuanXian
		Cn1.Update
		Cn1.Close
		Set Cn1=Nothing
		Call JiLu("编辑管理员"&ID)
	Call CloseData()
	Response.Write("<script language=javascript>location.href=""Admin.Asp"";</script>")
	Response.End()
End Sub
	Private l,id
	id=s.QueryString_long("id")
	l=s.QueryString("l")
	Select Case l
	Case "b"
		Call b()
	Case "b2"
		Call b2()
	Case "s"
		Call OpenData()
		Conn.Execute("Delete From Admin Where ID="&Clng(ID))
		Call JiLu("删除管理员"&ID)
		Call CloseData()
	Response.Write("<script language=javascript>location.href=""Admin.Asp"";</script>")
	Response.End()
	Case "j"
		Call j()
	Case "j2"
		Call j2()
	End Select
	c.Writeln("<a href=""Admin.Asp"">返回管理站长</a>")
	Call H_End()
Set c=Nothing
Set s=Nothing
%>
⌨️ 快捷键说明

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