lt_banmian_caozuo.asp

支持IE 手机同步访问的WAP论坛社区程序 很不错

			ChengYuan_JiaRu="加入需要审核"
		Case "3"
			ChengYuan_JiaRu="禁止任何人加入"
		End Select
		c.Writeln("版面ID:"&ID)
		c.Writeln("版面名称:"&BanKuai_MingChen)
		c.Writeln("版面简介:"&BanKuai_JianJie)
		c.Writeln("版面版主:"&BanKuai_BanZhu)
		c.Writeln("贴子数量:"&ShuLiang_TieZhi)
		c.Writeln("回复数量:"&ShuLiang_HuiFu)
		c.Writeln("显示版主:"&Str_Z(XianShi_BanZhu))
		c.Writeln("允许发贴:"&Str_Z(FangWen_FaTie))
		c.Writeln("允许回复:"&Str_Z(FangWen_HuiFu))
		'c.Writeln("允许复制贴子:"&Str_Z(FuZhi_TieZhi))
		'c.Writeln("允许复制回复:"&Str_Z(FuZhi_HuiFu))
		c.Writeln("版面创建时间:"&BanKuai_ShiJian)
		'c.Writeln("版面总点击数:"&BanKuai_DianJi)
		c.Writeln("上级版面ID:"&ShangJi_ID)
		c.Writeln("版面LOGO:"&BanKuai_LOGO)
		c.Writeln("显示LOGO:"&Str_Z(XianShi_LOGO))
		'c.Writeln("允许管理:"&Str_Z(FangWen_GuanLi))
		'c.Writeln("最后发贴时间:"&ZuiHouFaTieShiJian)
		'c.Writeln("最后发贴会员:"&ZuiHouFaTieHuiYuan)
		c.Writeln("上级版面:"&ShangJi_Str)
		c.Writeln("显示下级版面:"&Str_Z(XianShi_XiaJi))
		c.Writeln("允许游客发贴:"&Str_Z(YouKe_FaTie))
		c.Writeln("允许游客回复:"&Str_Z(YouKe_HuiFu))
		c.Writeln("进入需要等级:"&DenJi)
		c.Writeln("发贴审核:"&Str_Z(ShengHe))
		c.Writeln("权限:"&BanKuai_QuanXian)
		c.Writeln("成员加入:"&ChengYuan_JiaRu)
	End Sub
	Private Sub b()
		Dim Cn1,cn2,BanKuai_MingChen,BanKuai_JianJie,BanKuai_BanZhu,ShuLiang_TieZhi,ShuLiang_HuiFu,XianShi_BanZhu,FangWen_FaTie,FangWen_HuiFu,FuZhi_TieZhi,FuZhi_HuiFu,BanKuai_ShiJian,BanKuai_DianJi,ShangJi_ID,BanKuai_ZhuangTai,BanKuai_PaiXu,BanKuai_LOGO,XianShi_LOGO,FangWen_GuanLi,ZuiHouFaTieShiJian,ZuiHouFaTieHuiYuan,ShangJi_Str,XianShi_TieZhi,XianShi_XiaJi,TieZhi_Ding,TieZhi_Jing,TieZhi_Suo,TieZhi_Mai,XianShi_Ding,XianShi_Jing,XianShi_Suo,XianShi_Mai,YouKe_FaTie,YouKe_HuiFu,TieZhi_Tou,XianShi_Tou,DenJi,ShengHe,BanKuai_QuanXian,ChengYuan_JiaRu
		Call OpenData()
		Set Cn1=Server.CreateObject("Adodb.Command")
		Cn1.ActiveConnection=Conn
		Cn1.CommandType=1
		Cn1.CommandText="Select * From BanKuai Where ID="&Clng(ID)
		Set Cn2=Cn1.Execute
		If Cn2.Eof Then
			Call xkon_Error("该内容不存在")
		Else
			BanKuai_MingChen=Cn2("BanKuai_MingChen")
			BanKuai_JianJie=Cn2("BanKuai_JianJie")
			BanKuai_BanZhu=Cn2("BanKuai_BanZhu")
			ShuLiang_TieZhi=Cn2("ShuLiang_TieZhi")
			ShuLiang_HuiFu=Cn2("ShuLiang_HuiFu")
			XianShi_BanZhu=Cn2("XianShi_BanZhu")
			FangWen_FaTie=Cn2("FangWen_FaTie")
			FangWen_HuiFu=Cn2("FangWen_HuiFu")
			FuZhi_TieZhi=Cn2("FuZhi_TieZhi")
			FuZhi_HuiFu=Cn2("FuZhi_HuiFu")
			BanKuai_ShiJian=Cn2("BanKuai_ShiJian")
			BanKuai_DianJi=Cn2("BanKuai_DianJi")
			ShangJi_ID=Cn2("ShangJi_ID")
			BanKuai_LOGO=Cn2("BanKuai_LOGO")
			XianShi_LOGO=Cn2("XianShi_LOGO")
			FangWen_GuanLi=Cn2("FangWen_GuanLi")
			ZuiHouFaTieShiJian=Cn2("ZuiHouFaTieShiJian")
			ZuiHouFaTieHuiYuan=Cn2("ZuiHouFaTieHuiYuan")
			ShangJi_Str=Cn2("ShangJi_Str")
			XianShi_XiaJi=Cn2("XianShi_XiaJi")
			YouKe_FaTie=Cn2("YouKe_FaTie")
			YouKe_HuiFu=Cn2("YouKe_HuiFu")
			DenJi=Cn2("DenJi")
			ShengHe=Cn2("ShengHe")
			BanKuai_QuanXian=Cn2("BanKuai_QuanXian")
			ChengYuan_JiaRu=Cn2("ChengYuan_JiaRu")
		End If
		Set Cn1=Nothing
		Set Cn2=Nothing
		Call CloseData()
		c.Writeln("<form method=""post"" action=""LT_BanMian_CaoZuo.Asp?l=b2&amp;id="&id&""">版面名称:<input name=""BanKuai_MingChen"" value="""&BanKuai_MingChen&""" />")
		c.Writeln("简介:<input name=""BanKuai_JianJie"" value="""&BanKuai_JianJie&""" />")
		c.Writeln("版主用户名:<input name=""BanKuai_BanZhu"" value="""&BanKuai_BanZhu&""" />")
		c.Writeln("显示版主:<select name=""XianShi_BanZhu""><option value=""1"" "&Selected("1",XianShi_BanZhu)&">显示</option><option value=""0"" "&Selected("0",XianShi_BanZhu)&">不显示</option></select>")
		c.Writeln("允许发贴:<select name=""FangWen_FaTie""><option value=""1"" "&Selected("1",FangWen_FaTie)&">允许</option><option value=""0"" "&Selected("0",FangWen_FaTie)&">禁止</option></select>")
		c.Writeln("允许回复:<select name=""FangWen_HuiFu""><option value=""1"" "&Selected("1",FangWen_HuiFu)&">允许</option><option value=""0"" "&Selected("0",FangWen_HuiFu)&">禁止</option></select>")
		'c.Writeln("允许复制贴子:<select name=""FuZhi_TieZhi""><option value=""1"" "&Selected("1",FuZhi_TieZhi)&">允许</option><option value=""0"" "&Selected("0",FuZhi_TieZhi)&">禁止</option></select>")
		'c.Writeln("允许复制回复:<select name=""FuZhi_HuiFu""><option value=""1"" "&Selected("1",FuZhi_HuiFu)&">允许</option><option value=""0"" "&Selected("0",FuZhi_HuiFu)&">禁止</option></select>")
		Call LieBiao(ShangJi_ID)
		c.Writeln("LOGO:<input name=""BanKuai_LOGO"" value="""&BanKuai_LOGO&""" />")
		c.Writeln("显示LOGO:<select name=""XianShi_LOGO""><option value=""0"" "&Selected("0",XianShi_LOGO)&">不显示</option><option value=""1"" "&Selected("1",XianShi_LOGO)&">显示</option></select>")
		'c.Writeln("允许管理:<select name=""FangWen_GuanLi""><option value=""1"" "&Selected("1",FangWen_GuanLi)&">允许</option><option value=""0"" "&Selected("0",FangWen_GuanLi)&">禁止</option></select>")
		c.Writeln("显示下级版块:<select name=""XianShi_XiaJi""><option value=""1"" "&Selected("1",XianShi_XiaJi)&">显示</option><option value=""0"" "&Selected("0",XianShi_XiaJi)&">不显示</option></select>")
		c.Writeln("允许游客发贴:<select name=""YouKe_FaTie""><option value=""1"" "&Selected("1",YouKe_FaTie)&">允许</option><option value=""0"" "&Selected("0",YouKe_FaTie)&">禁止</option></select>")
		c.Writeln("允许游客回复:<select name=""YouKe_HuiFu""><option value=""1"" "&Selected("1",YouKe_HuiFu)&">允许</option><option value=""0"" "&Selected("0",YouKe_HuiFu)&">禁止</option></select>")
		c.Writeln("进入需要等级:<input name=""DenJi"" value="""&DenJi&""" />")
		c.Writeln("发贴审核:<select name=""ShengHe""><option value=""0"" "&Selected("0",ShengHe)&">否</option><option value=""1"" "&Selected("1",ShengHe)&">是</option></select>")
		c.Writeln("权限:<select name=""BanKuai_QuanXian""><option value=""0"" "&Selected("0",BanKuai_QuanXian)&">任何人可进入</option><option value=""1"" "&Selected("1",BanKuai_QuanXian)&">会员才能进入</option><option value=""2"" "&Selected("3",BanKuai_QuanXian)&">特殊会员才可进入</option></select>")
		c.Writeln("成员加入:<select name=""ChengYuan_JiaRu""><option value=""1"" "&Selected("1",ChengYuan_JiaRu)&">任何人可加入</option><option value=""2"" "&Selected("2",ChengYuan_JiaRu)&">需要审核才可进入</option><option value=""3"" "&Selected("3",ChengYuan_JiaRu)&">禁止任何人加入</option></select>")
		c.Write("<input type=""submit"" value=""修改"" /></form>")
	End Sub
	Private Sub b2()
		Dim BanKuai_MingChen,BanKuai_JianJie,BanKuai_BanZhu,XianShi_BanZhu,FangWen_FaTie,FangWen_HuiFu,FuZhi_TieZhi,FuZhi_HuiFu,ShangJi_ID,ShangJi_Str,BanKuai_PaiXu,BanKuai_LOGO,XianShi_LOGO,FangWen_GuanLi,XianShi_TieZhi,XianShi_XiaJi,XianShi_Jing,XianShi_Ding,XianShi_Suo,XianShi_Mai,XianShi_Tou,YouKe_FaTie,YouKe_HuiFu,DenJi,ShengHe,BanKuai_QuanXian,BanKuai_ZhuangTai,SQL,BanZhu_NiChen,ChengYuan_JiaRu
		ChengYuan_JiaRu=s.Form("ChengYuan_JiaRu")
		BanKuai_MingChen=s.Form("BanKuai_MingChen")
		BanKuai_JianJie=s.Form("BanKuai_JianJie")
		BanKuai_BanZhu=s.Form("BanKuai_BanZhu")
		If BanKuai_BanZhu<>"0" Then
			Call OpenData()
			BanZhu_NiChen=Get_NiChen(BanKuai_BanZhu)
			Call CloseData()
		End If
		XianShi_BanZhu=s.Form("XianShi_BanZhu")
		FangWen_FaTie=s.Form("FangWen_FaTie")
		FangWen_HuiFu=s.Form("FangWen_HuiFu")
		FuZhi_TieZhi=s.Form("FuZhi_TieZhi")
		FuZhi_HuiFu=s.Form("FuZhi_HuiFu")
		ShangJi_ID=s.Form("ShangJi_ID")
		ShangJi_Str=BanMian_MingChen(ShangJi_ID)
		BanKuai_LOGO=s.Form("BanKuai_LOGO")
		XianShi_LOGO=s.Form("XianShi_LOGO")
		FangWen_GuanLi=s.Form("FangWen_GuanLi")
		XianShi_XiaJi=s.Form("XianShi_XiaJi")
		YouKe_FaTie=s.Form("YouKe_FaTie")
		YouKe_HuiFu=s.Form("YouKe_HuiFu")
		DenJi=s.Form("DenJi")
		ShengHe=s.Form("ShengHe")
		BanKuai_QuanXian=s.Form("BanKuai_QuanXian")
		XianShi_Tou=s.Form("XianShi_Tou")
		If BanKuai_MingChen="" Then
			Call xkon_Error("版面名称不能为空")
		Else
			SQL="Update BanKuai Set "
			SQL=SQL&"BanKuai_MingChen='"&BanKuai_MingChen&"',"
			SQL=SQL&"BanKuai_JianJie='"&BanKuai_JianJie&"',"
			SQL=SQL&"BanKuai_BanZhu='"&BanKuai_BanZhu&"',"
			SQL=SQL&"XianShi_BanZhu='"&XianShi_BanZhu&"',"
			SQL=SQL&"FangWen_FaTie='"&FangWen_FaTie&"',"
			SQL=SQL&"FangWen_HuiFu='"&FangWen_HuiFu&"',"
			SQL=SQL&"FuZhi_TieZhi='"&FuZhi_TieZhi&"',"
			SQL=SQL&"FuZhi_HuiFu='"&FuZhi_HuiFu&"',"
			SQL=SQL&"ShangJi_ID='"&ShangJi_ID&"',"
			SQL=SQL&"ShangJi_Str='"&ShangJi_Str&"',"
			SQL=SQL&"BanKuai_LOGO='"&BanKuai_LOGO&"',"
			SQL=SQL&"XianShi_LOGO='"&XianShi_LOGO&"',"
			SQL=SQL&"FangWen_GuanLi='"&FangWen_GuanLi&"',"
			SQL=SQL&"XianShi_XiaJi='"&XianShi_XiaJi&"',"
			SQL=SQL&"YouKe_FaTie='"&YouKe_FaTie&"',"
			SQL=SQL&"YouKe_HuiFu='"&YouKe_HuiFu&"',"
			SQL=SQL&"DenJi='"&DenJi&"',"
			SQL=SQL&"BanZhu_NiChen='"&BanZhu_NiChen&"',"
			SQL=SQL&"ShengHe='"&ShengHe&"',"
			SQL=SQL&"ChengYuan_JiaRu='"&ChengYuan_JiaRu&"',"
			SQL=SQL&"BanKuai_QuanXian='"&BanKuai_QuanXian&"'"
			SQL=SQL&" Where ID="&Clng(ID)
			Call OpenData()
				Conn.Execute(SQL)
				Call JiLu("修改版面信息"&ID)
			Call CloseData()
	Response.Write("<script language=javascript>location.href=""LT_BanMian.Asp"";</script>")
	Response.End()
		End If
	End Sub
	Private Sub Delete()
		Call OpenData()
			Conn.Execute("Delete From BanKuai Where ID="&Clng(ID))
			Conn.Execute("Update TieZhi Set Shan='1' Where BanKuai="&Clng(ID))
			Call JiLu("删除版块"&ID)
		Call CloseData()
	Response.Write("<script language=javascript>location.href=""LT_BanMian.Asp"";</script>")
	Response.End()
	End Sub
	Call H_Title("版面管理")
	Select Case l
	Case "j"
		Call j()
	Case "j2"
		Call j2()
	Case "x"
		Call x()
	Case "b"
		Call b()
	Case "b2"
		Call b2()
	Case "s"
		Call Delete()
	End Select
	c.Write("<a href=""LT_BanMian.Asp"">返回版块管理</a>")
	Call H_End()
Set c=Nothing
Set s=Nothing
%>