sz_denji_caozuo.asp

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

<!--#Include File="../Inc/Head.Asp"--><%
Private FangWen
Set FangWen=New xkon_FangWen
	FangWen.FangWen()
	FangWen.DenJi()
Set FangWen=Nothing
Private c,s,l,id
Set c=New xkon_Response
Set s=New xkon_Request
l=s.QueryString("l")
id=s.QueryString("ID")
	Private Sub j()
		c.Writeln("<form method=""post"" action=""SZ_DenJi_CaoZuo.Asp?l=j2"">等级:<input name=""jibie"" />")
		c.Writeln("名称:<input name=""mingchen"" />")
		c.Writeln("图片:<input name=""tu"" />")
		c.Write("<input type=""submit"" value=""增加"" />")
		c.Write("</form>")
	End Sub
	Private Sub j2()
		Dim J_ID,JiBie,MingChen,Tu
		JiBie=s.Form_Long("JiBie")
		MingChen=s.Form_Str("MingChen",1,250)
		Tu=s.Form_Str("Tu",1,250)
		If JiBie="" Or MingChen="" Or Tu="" Then
			Call xkon_Error("所有填写项不能为空")
		Else
			Call OpenData()
				Dim Cn1,Cn2
				Set Cn1=Server.CreateObject("Adodb.Command")
				Cn1.ActiveConnection=Conn
				Cn1.CommandType=1
				Cn1.CommandText="Select ID From DenJi Order By ID Desc"
				Set Cn2=Cn1.Execute
				If Cn2.Eof Then
					J_ID=1
				Else
					J_ID=Cn2("ID")+1
				End If
				Set Cn1=Nothing
				Set Cn2=Nothing
				Conn.Execute("Insert Into DenJi(ID,JiBie,MingChen,Tu)Values('"&J_ID&"','"&JiBie&"','"&MingChen&"','"&Tu&"')")
				Call JiLu("增加等级设置"&J_ID)
			Call CloseData()
	Response.Write("<script language=javascript>location.href=""SZ_DenJi.Asp"";</script>")
	Response.End()
		End If
	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 DenJi Where ID="&Clng(ID)
			Set Cn2=Cn1.Execute
			If Cn2.Eof Then
				Call xkon_Error("该内容不存在")
			Else
				c.Writeln("<form method=""post"" action=""SZ_DenJi_CaoZuo.Asp?l=b2&amp;id="&ID&""">等级:<input name=""jibie"" value="""&Cn2("JiBie")&""" />")
				c.Writeln("名称:<input name=""mingchen"" value="""&Cn2("MingChen")&""" />")
				c.Writeln("图片:<input name=""tu"" value="""&Cn2("Tu")&""" />")
				c.Write("<input type=""submit"" value=""修改"" /></form>")
			End If
			Set Cn2=Nothing
			Set Cn1=Nothing
		Call CloseData()
	End Sub
	Private Sub b2()
		Dim JiBie,MingChen,Tu
		JiBie=s.Form_Long("JiBie")
		MingChen=s.Form_Str("MingChen",1,250)
		Tu=s.Form_Str("Tu",1,250)
		If JiBie="" Or MingChen="" Or Tu="" Then
			Call xkon_Error("所有填写项不能为空")
		Else
			Call OpenData()
				Conn.Execute("Update DenJi Set JiBie='"&JiBie&"',MingChen='"&MingChen&"',Tu='"&Tu&"' Where ID="&Clng(ID))
				Call JiLu("编辑等级设置"&ID)
			Call CloseData()
	Response.Write("<script language=javascript>location.href=""SZ_DenJi.Asp"";</script>")
	Response.End()
		End If
	End Sub
	Private Sub Delete()
		Call OpenData()
			Conn.Execute("Delete From DenJi Where ID="&Clng(ID))
			Call JiLu("删除等级设置"&ID)
		Call CloseData()
	Response.Write("<script language=javascript>location.href=""SZ_DenJi.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.Write("<a href=""ShouYe.Asp"">返回后台首页</a>")
	Call H_End()
Set c=Nothing
Set s=Nothing
%>