📄 admin_sortsave.asp

📁 夏茂政府网站
💻 ASP
字号:
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> 
<%Session.CodePage=936%>
<!--#include file="setting.asp"-->
<!--#include file="../include/Conn.asp"-->
<!--#include file="../include/char.asp" -->
<!--#include file="../Include/check.asp"-->
<!--#include FILE="../Include/Admin_Function.asp"-->
<%CheckAdmin3%>
<!--删除小类  -->
<%
    if Request.QueryString("Action")="Del" then
    ID=request("ID")
    set rs=server.createobject("adodb.recordset")
    sqltext="delete from zf11_type where Id="& ID
    rs.open sqltext,conn,3,3
    set rs=nothing
    conn.close
    response.redirect "Admin_Sort.asp"
    end if
%>
<!--删除大类  -->
<%
    if Request.QueryString("Action")="B_Del" then
    ID=request("ID")
    set rs=server.createobject("adodb.recordset")
    DelBig="delete from zf11_type where Id="& ID
    DelAll="delete from zf11_type where zf11_big_id="& ID
    rs.open DelBig,conn,3,3
    rs.open DelAll,conn,3,3
    set rs=nothing
    conn.close
    response.redirect "Admin_Sort.asp"
    end if
%>
<!--分类添加  -->
<%
    if Request.QueryString("Action")="Add" then
    If Request("zf11_names")="" Then
    response.write "SORRY <br>"
    response.write "请输入分类的名称!!<a href=""javascript:history.go(-1)"">返回重输</a>"
    response.end
    end if
    Set rs = Server.CreateObject("ADODB.Recordset")
    sql="select * from zf11_type "
    rs.open sql,conn,1,3
    rs.addnew
    rs("AddTime")=date()
    rs("zf11_names")=Request("zf11_names")
    rs("zf11_setting")=Request("zf11_setting")
    rs("zf11_big_id")=Request("zf11_big_id")
    rs("zf11_order")=Request("zf11_order")
    if Request("Indexshow")<>"" then
    rs("Indexshow")=Request("Indexshow")
    else 
    rs("Indexshow")=False
    end if
    if Request("Tuijian")<>"" then
    rs("Tuijian")=Request("Tuijian")
    else 
    rs("Tuijian")=False
    end if
    rs.update
    rs.close
    response.redirect "Admin_Sort.asp"
    end if
%>
<!--一般修改-->
<%
    if Request.QueryString("Action")="zf11_setting" then
    If Request("zf11_names")="" Then
    response.write "SORRY <br>"
    response.write "请输入分类的名称!!<a href=""javascript:history.go(-1)"">返回重输</a>"
    response.end
    end if
    ID=Request("ID")
    Set rs = Server.CreateObject("ADODB.Recordset")
    sql="select * from zf11_type where ID="&ID&""
    rs.open sql,conn,1,3
    rs("zf11_names")=Request("zf11_names")
    If Request("zf11_setting")<>"" Then
    rs("zf11_setting")=Request("zf11_setting")
    end if
    rs("zf11_order")=Request("zf11_order")
    If Request("Info")<>"" Then
    rs("Info")=Request("Info")
    end if
    if Request("Indexshow")<>"" then
    rs("Indexshow")=Request("Indexshow")
    else 
    rs("Indexshow")=False
    end if
    if Request("Tuijian")<>"" then
    rs("Tuijian")=Request("Tuijian")
    else 
    rs("Tuijian")=False
    end if
    rs.update
    rs.close
    response.redirect "Admin_Sort.asp"
    end if
%>
<!--小类修改-->
<%
    if Request.QueryString("Action")="Modify" then
    If Request("zf11_names")="" Then
    response.write "SORRY <br>"
    response.write "请输入分类的名称!!<a href=""javascript:history.go(-1)"">返回重输</a>"
    response.end
    end if
    ID=Request("ID")
    Set rs = Server.CreateObject("ADODB.Recordset")
    sql="select * from zf11_type where ID="&ID&""
    rs.open sql,conn,1,3
    rs("zf11_names")=Request("zf11_names")
    rs("zf11_big_id")=Request("zf11_big_id")
    rs.update
    rs.close
    response.redirect "Admin_Sort.asp"
    end if
%>
<!--SETINFO修改-->
<%
    if Request.QueryString("Action")="SetInfo" then
    If Request("zf11_names")="" Then
    response.write "SORRY <br>"
    response.write "请输入分类的名称!!<a href=""javascript:history.go(-1)"">返回重输</a>"
    response.end
    end if
    ID=Request("ID")
    Set rs = Server.CreateObject("ADODB.Recordset")
    sql="select * from zf11_type where ID="&ID&""
    rs.open sql,conn,1,3
    rs("zf11_names")=Request("zf11_names")
    rs("Info")=Request("content")
    rs.update
    rs.close
    response.redirect "Admin_Sort.asp"
    end if
%>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -