SZ_TouXiang_CaoZuo.Asp
资源名称:4.rar [点击查看]
上传用户:zhbanny
上传日期:2020-11-04
资源大小:161k
文件大小:4k
源码类别:
手机WAP编程
开发平台:
ASP/ASPX
- <!--#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&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
- %>