lt_banzhu_caozuo.asp

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

<!--#Include File="../Inc/Head.Asp"--><%
Private FangWen
Set FangWen=New xkon_FangWen
	FangWen.FangWen()
	FangWen.BanZhu()
Set FangWen=Nothing
Private c,s
Set c=New xkon_Response
Set s=New xkon_Request
	Private ID,l
	l=s.QueryString("l")
	ID=s.QueryString_Long("ID")
	Private Sub j()
		c.Writeln("<form method=""post"" action=""LT_BanZhu_CaoZuo.Asp?l=j2"">")
		Call BanKuai_LieBiao()
		c.Writeln("")
		c.Writeln("用户名:<input name=""HuiYuan"" />")
		c.Write("<input type=""submit"" value=""增加"" />")
		c.Write("</form>")
	End Sub
	Private Sub j2()
		Dim J_ID,MingChen,HuiYuan,Ding,Jing,Shan,JiaHei,JingBi,Suo,ShangJi_ID
		HuiYuan=s.Form_Str("HuiYuan",1,250)
		Call OpenData()
		MingChen=Get_NiChen(HuiYuan)
		Call CloseData()
		ShangJi_ID=s.Form_Long("ShangJi_ID")
		If HuiYuan="" Then
			Call xkon_Error("会员用户名不能为空")
		Else
			Dim Cn1,Cn2,SQL
			SQL="Select id From BanZhu Order By Id Desc"
			Call OpenData()
			Set Cn1=Server.CreateObject("Adodb.Command")
			Cn1.ActiveConnection=Conn
			Cn1.CommandType=1
			Cn1.CommandText=SQL
			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
			SQL="Insert Into BanZhu(ID,BanKuai,MingChen,HuiYuan)Values('"&J_ID&"','"&ShangJi_ID&"','"&MingChen&"','"&HuiYuan&"')"
			Conn.Execute(SQL)
			Call JiLu("增加版主"&J_ID)
			Call CloseData()
	Response.Write("<script language=javascript>location.href=""LT_BanZhu.Asp"";</script>")
	Response.End()
		End If
	End Sub
	Private Sub b()
		Call OpenData()
			Dim Cn1,Cn2,SQL
			SQL="Select * From BanZhu Where ID="&Clng(ID)
			Set Cn1=Server.CreateObject("Adodb.Command")
			Cn1.ActiveConnection=Conn
			Cn1.CommandType=1
			Cn1.CommandText=SQL
			Set Cn2=Cn1.Execute
			If Cn2.Eof Then
				Call xkon_Error("该内容不存在")
				Response.End()
			Else
				Dim MingChen,HuiYuan,Ding,Jing,Shan,JiaHei,JingBi,Suo
				MingChen=Cn2("MingChen")
				HuiYuan=Cn2("HuiYuan")
			End If
			Set Cn1=Nothing
			Set Cn2=Nothing
		Call CloseData()
		c.Writeln("<form method=""post"" action=""LT_BanZhu_CaoZuo.Asp?l=b2&amp;id="&ID&""">")
		Call BanKuai_LieBiao()
		c.Writeln("用户名:<input name=""HuiYuan""  value="""&HuiYuan&"""/>")
		c.Write("<input type=""submit"" value=""修改"" />")
		c.Write("</form>")
	End Sub
	Private Sub b2()
		Dim HuiYuan,Ding,Jing,Shan,JiaHei,Suo,JingBi,BanKuai,MingChen
		BanKuai=s.Form_Long("BanKuai")
		HuiYuan=s.Form_Str("HuiYuan",1,250)
		Call OpenData()
		MingChen=Get_NiChen(HuiYuan)
		Call CloseData()
		If HuiYuan="" Then
			Call xkon_Error("会员用户名不能为空")
		Else
			Dim SQL
			SQL="Update BanZhu Set MingChen='"&MingChen&"',BanKuai='"&BanKuai&"',HuiYuan='"&HuiYuan&"' Where ID="&Clng(ID)
			Call OpenData()
				Conn.Execute(SQL)
				Call JiLu("编辑版主"&ID)
			Call CloseData()
	Response.Write("<script language=javascript>location.href=""LT_BanZhu.Asp"";</script>")
	Response.End()
		End If
	End Sub
	Private Sub Delete()
		Dim SQL
		SQL="Delete From BanZhu Where ID="&Clng(ID)
		Call OpenData()
			Conn.Execute(SQL)
		Call CloseData()
	Response.Write("<script language=javascript>location.href=""LT_BanZhu.Asp"";</script>")
	Response.End()
	End Sub
	Call H_Title("版主管理")
	Select Case l
	Case "j"
		Call j()
	Case "j2"
		Call j2()
	Case "b"
		Call b()
	Case "b2"
		Call b2()
	Case "s"
		Call Delete()
	End Select
	c.Writeln("<a href=""LT_BanZhu.Asp"">返回版主管理</a>")
	Call H_End()
Set c=Nothing
Set s=Nothing
%>