📄 lt_banmian_caozuo.asp

📁 支持IE 手机同步访问的WAP论坛社区程序很不错
💻 ASP
📖 第 1 页 / 共 2 页
字号:
12 下一页
<!--#Include File="../Inc/Head.Asp"--><%
Private FangWen
Set FangWen=New xkon_FangWen
	FangWen.FangWen()
	FangWen.BanKuai()
Set FangWen=Nothing
Private c,s
Set c=New xkon_Response
Set s=New xkon_Request
	Private l
	l=s.QueryString("l")
	Private Sub LieBiao(Str)
		Dim Cn1
		c.Write("上级版块:<select name=""ShangJi_ID""><option value=""0"">顶级版块</option>")
		Call OpenData()
			Set Cn1=Server.CreateObject("Adodb.Recordset")
			Cn1.Open "Select id,BanKuai_MingChen From BanKuai Order By Id Desc",Conn,1,1
			Do While(Not Cn1.Eof)
				c.Write("<option value="""&Cn1("ID")&""" "&Selected(Cn1("ID"),Str)&">"&Cn1("BanKuai_MingChen")&"</option>")
				Cn1.MoveNext
			Loop
			Cn1.Close
			Set Cn1=Nothing
		Call CloseData()
		c.Writeln("</select>")
	End Sub
	Private Sub j()
		c.Writeln("<form method=""post"" action=""LT_BanMian_CaoZuo.Asp?l=j2"">版面名称:<input name=""BanKuai_MingChen"" />")
		c.Writeln("简介:<input name=""BanKuai_JianJia"" />")
		c.Writeln("版主用户名:<input name=""BanKuai_BanZhu"" value=""0"" />")
		c.Writeln("显示版主:<select name=""XianShi_BanZhu""><option value=""1"">显示</option><option value=""0"">不显示</option></select>")
		c.Writeln("允许发贴:<select name=""FangWen_FaTie""><option value=""1"">允许</option><option value=""0"">禁止</option></select>")
		c.Writeln("允许回复:<select name=""FangWen_HuiFu""><option value=""1"">允许</option><option value=""0"">禁止</option></select>")
'		c.Writeln("允许复制贴子:<select name=""FuZhi_TieZhi""><option value=""1"">允许</option><option value=""0"">禁止</option></select>")
'		c.Writeln("允许复制回复:<select name=""FuZhi_HuiFu""><option value=""1"">允许</option><option value=""0"">禁止</option></select>")
		Call LieBiao("")
		c.Writeln("LOGO:<input name=""BanKuai_LOGO"" />")
		c.Writeln("显示LOGO:<select name=""XianShi_LOGO""><option value=""0"">不显示</option><option value=""1"">显示</option></select>")
'		c.Writeln("允许管理:<select name=""FangWen_GuanLi""><option value=""1"">允许</option><option value=""0"">禁止</option></select>")
		c.Writeln("显示下级版块:<select name=""XianShi_XiaJi""><option value=""1"">显示</option><option value=""0"">不显示</option></select>")
		c.Writeln("允许游客发贴:<select name=""YouKe_FaTie""><option value=""1"">允许</option><option value=""0"">禁止</option></select>")
		c.Writeln("允许游客回复:<select name=""YouKe_HuiFu""><option value=""1"">允许</option><option value=""0"">禁止</option></select>")
		c.Writeln("进入需要等级:<input name=""DenJi"" value=""0"" />")
		c.Writeln("发贴审核:<select name=""ShengHe""><option value=""0"">否</option><option value=""1"">是</option></select>")
		c.Writeln("权限:<select name=""BanKuai_QuanXian""><option value=""0"">任何人可进入</option><option value=""1"">会员才能进入</option><option value=""2"">特殊会员才可进入</option></select>")
		C.Writeln("成员加入:<select name=""ChengYuan_JiaRu""><option value=""1"">允许任何人加入</option><option value=""2"">加入需要审核</option><option value=""3"">禁止任何人加入</option></select>")
		c.Write("<input type=""submit"" value=""增加"" /></form>")
	End Sub
	Private Sub j2()
		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,BanZhu_NiChen,ChengYuan_JiaRu
		ChengYuan_JiaRu=s.Form("ChengYuan_JiaRu")
		BanKuai_MingChen=s.Form_Str("BanKuai_MingChen",1,250)
		BanKuai_JianJie=s.Form_Str("BanKuai_JianJie",1,250)
		BanKuai_BanZhu=s.Form_Str("BanKuai_BanZhu",1,250)
		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")
		If BanKuai_MingChen="" Then
			Call xkon_Error("版面名称不能为空")
		Else
			Dim SQL
			Call OpenData()
			Dim Cn1,Cn2
			Set Cn1=Server.CreateObject("Adodb.Command")
			Cn1.ActiveConnection=Conn
			Cn1.CommandType=1
			Cn1.CommandText="Select id From BanKuai Order By ID Desc"
			Set Cn2=Cn1.Execute
			Dim J_ID
			If Cn2.Eof Then
				J_ID=1
			Else
				J_ID=Cn2("ID")+1
			End If
			Set Cn2=Nothing
			Set Cn1=Nothing
			SQL="Insert Into BanKuai("
			SQL=SQL&"ID,BanKuai_MingChen,BanKuai_JianJie,BanKuai_BanZhu,BanZhu_NiChen,ShuLiang_TieZhi,ShuLiang_HuiFu,XianShi_BanZhu,FangWen_FaTie,FangWen_HuiFu,FuZhi_TieZhi,FuZhi_HuiFu,BanKuai_ShiJian,BanKuai_DianJi,ShangJi_ID,BanKuai_LOGO,XianShi_LOGO,FangWen_GuanLi,ZuiHouFaTieShiJian,ZuiHouFaTieHuiYuan,ShangJi_Str,XianShi_XiaJi,YouKe_FaTie,YouKe_HuiFu,DenJi,ShengHe,BanKuai_QuanXian,ChengYuan_JiaRu"
			SQL=SQL&")Values("
			SQL=SQL&"'"&J_ID&"',"
			SQL=SQL&"'"&BanKuai_MingChen&"',"
			SQL=SQL&"'"&BanKuai_JianJie&"',"
			SQL=SQL&"'"&BanKuai_BanZhu&"',"
			SQL=SQL&"'"&BanZhu_NiChen&"',"
			SQL=SQL&"'0','0',"
			SQL=SQL&"'"&XianShi_BanZhu&"',"
			SQL=SQL&"'"&FangWen_FaTie&"',"
			SQL=SQL&"'"&FangWen_HuiFu&"',"
			SQL=SQL&"'"&FuZhi_TieZhi&"',"
			SQL=SQL&"'"&FuZhi_HuiFu&"',"
			SQL=SQL&"'"&now()&"',"
			SQL=SQL&"'0',"
			SQL=SQL&"'"&Clng(ShangJi_ID)&"',"
			SQL=SQL&"'"&BanKuai_LOGO&"',"
			SQL=SQL&"'"&XianShi_LOGO&"',"
			SQL=SQL&"'"&FangWen_GuanLi&"',"
			SQL=SQL&"'"&Now()&"',"
			SQL=SQL&"'',"
			SQL=SQL&"'"&ShangJi_Str&"',"
			SQL=SQL&"'"&XianShi_XiaJi&"',"
			SQL=SQL&"'"&YouKe_FaTie&"',"
			SQL=SQL&"'"&YouKe_HuiFu&"',"
			SQL=SQL&"'"&Clng(DenJi)&"',"
			SQL=SQL&"'"&ShengHe&"',"
			SQL=SQL&"'"&BanKuai_QuanXian&"',"
			SQL=SQL&"'"&ChengYuan_JiaRu&"')"
				Conn.Execute(SQL)
				Call JiLu("增加版面"&J_ID)
			Call CloseData()
	Response.Write("<script language=javascript>location.href=""LT_BanMian.Asp"";</script>")
	Response.End()
		End If
	End Sub
	Private ID
	ID=s.QueryString("ID")
	Private Sub x()
		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
			c.Writeln("该内容不存在")
		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()
		Select Case BanKuai_QuanXian
		Case "0"
			BanKuai_QuanXian="任何人可进入"
		Case "1"
			BanKuai_QuanXian="会员才可进入"
		Case "2"
			BanKuai_QuanXian="特殊会员才可进入"
		End Select
		Select Case ChengYuan_JiaRu
		Case "1"
			ChengYuan_JiaRu="任何人可加入"
		Case "2"
12 下一页
⌨️ 快捷键说明

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