sz_touxiang_caozuo.asp

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

<!--#Include File="../Inc/Head.Asp"--><%
Private FangWen
Set FangWen=New xkon_FangWen
	FangWen.FangWen()
	FangWen.Admin_TouXiang()
Set FangWen=Nothing
Private c,s
Set c=New xkon_Response
Set s=New xkon_Request
	Private l,ID
	l=s.QueryString("l")
	ID=s.QueryString_Long("ID")
	Private Sub j()
		c.Writeln("<form method=""post"" action=""SZ_TouXiang_CaoZuo.Asp?l=j2"">名称:<input name=""mingchen"" />")
		c.Writeln("地址:<input name=""dizhi"" />")
		c.Writeln("性别:<select name=""XingBie""><option value=""0"">男</option><option value=""1"">女</option></select>")
		c.Writeln("金币:<input name=""jingbi"" />")
		c.Writeln("需要等级:<input name=""denji"" />")
		c.Write("<input type=""submit"" value=""增加"" /></form>")
	End Sub
	Private Sub j2()
		Dim MingChen,DiZhi,XingBie,JingBi,DenJi,J_ID
		MingChen=s.Form_Str("MingChen",1,250)
		DiZhi=s.Form_Str("DiZhi",4,250)
		XingBie=s.Form_Str("XingBie",1,1)
		JingBi=s.Form_Long("JingBi")
		DenJi=s.Form_Long("DenJi")
		If MingChen="" Or DiZhi="" Or JingBi="" Or DenJi="" 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 TouXiang 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 TouXiang(ID,MingChen,DiZhi,XingBie,JingBi,DenJi)values('"&J_ID&"','"&MingChen&"','"&DiZhi&"','"&XingBie&"','"&JingBi&"','"&DenJi&"')")
				Call JiLu("增加头像"&J_ID)
			Call CloseData()
	Response.Write("<script language=javascript>location.href=""SZ_TouXiang.Asp"";</script>")
	Response.End()
		End If
	End Sub
	Private Sub b()
		Dim Cn1,Cn2
		Call OpenData()
			Set Cn1=Server.CreateObject("Adodb.Command")
			Cn1.ActiveConnection=Conn
			Cn1.CommandType=1
			Cn1.CommandText="Select * From TouXiang Where ID="&Clng(ID)
			Set Cn2=Cn1.Execute
			If Cn2.Eof Then
				Call xkon_Error("该内容不存在")
			Else
				c.Writeln("<form method=""post"" action=""SZ_TouXiang_CaoZuo.Asp?l=b2&amp;id="&ID&""">名称:<input name=""mingchen"" value="""&Cn2("MingChen")&""" />")
				c.Writeln("地址:<input name=""dizhi"" value="""&Cn2("DiZhi")&""" />")
				c.Writeln("性别:<select name=""xingbie"" value="""&Cn2("XingBie")&"""><option value=""0"">男</option><option value=""1"">女</option></select>")
				c.Writeln("金币:<input name=""jingbi"" value="""&Cn2("JingBi")&""" />")
				c.Writeln("等级:<input name=""denji"" value="""&Cn2("DenJi")&""" />")
				c.Write("<input type=""submit"" value=""修改"" /></form>")
			End If
			Set Cn2=Nothing
			Set Cn1=Nothing
		Call CloseData()
	End Sub
	Private Sub b2()
		Dim MingChen,DiZhi,XingBie,JingBi,DenJi
		MingChen=s.Form_Str("MingChen",1,250)
		DiZhi=s.Form_Str("DiZhi",1,250)
		XingBie=s.Form_Str("XingBie",1,1)
		JingBi=s.Form_Long("JingBi")
		DenJi=s.Form_Long("DenJi")
		If MingChen="" Or DiZhi="" Or XingBie="" Or JingBi="" Or DenJi="" Then
			Call xkon_Error("所有填写项不能为空")
		Else
			Call OpenData()
				Conn.Execute("update TouXiang Set MingChen='"&MingChen&"',DiZhi='"&DiZhi&"',XingBie='"&XingBie&"',JingBi='"&JingBi&"',DenJi='"&DenJi&"' Where ID="&Clng(ID))
				Call JiLu("编辑头像"&ID)
			Call CloseData()
	Response.Write("<script language=javascript>location.href=""SZ_TouXiang.Asp"";</script>")
	Response.End()
		End If
	End Sub
	Private Sub Delete()
		Call OpenData()
			Conn.Execute("Delete From TouXiang Where ID="&Clng(ID))
			Call JiLu("删除头像"&ID)
		Call CloseData()
	Response.Write("<script language=javascript>location.href=""SZ_TouXiang.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=""SZ_TouXiang.Asp"">返回设置头像</a>")
	Call H_End()
Set c=Nothing
Set s=Nothing
%>