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