📄 admin_sortsave.asp

📁 政府网站集成OA办公考勤新闻发布网站信息管理会员管理
💻 ASP
字号:
<!--#INCLUDE FILE="../HXINCLUDE/HXINCLUDEHEAD.ASP"-->
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>

<!--删除小类  -->

<%
if WS_S.MemberPriv("WS_FrontSetadmin")<>1 then HX_GoBack "对不起,您的权限不够!",""
dim sqltext,DelBig,DelAll

    if Request.QueryString("Action")="Del" then
    ID=request("ID")
    set rs=server.createobject("adodb.recordset")
    sqltext="delete from a125_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 a125_type where Id="& ID
    DelAll="delete from a125_type where a125_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("a125_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 a125_type "
    rs.open sql,conn,1,3
    rs.addnew
    rs("a125_names")=Request("a125_names")
    rs("a125_setting")=Request("a125_setting")
    rs("a125_big_id")=Request("a125_big_id")
  if Request("a125_order")="" then 
    rs("a125_order")=1
  else
    rs("a125_order")=Request("a125_order")
  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")="a125_setting" then
    If Request("a125_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 a125_type where ID="&ID&""
    rs.open sql,conn,1,3
    rs("a125_names")=Request("a125_names")
    If Request("a125_setting")<>"" Then
    rs("a125_setting")=Request("a125_setting")
    end if
    rs("a125_order")=Request("a125_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
    if Request("Istopic")<>"" then
    rs("Istopic")=Request("Istopic")
    else 
    rs("Istopic")=False
    end if
    rs.update
  rs.close
    response.redirect "Admin_Sort.asp"
    end if
%>
<!--小类修改-->
<%
    if Request.QueryString("Action")="Modify" then
    If Request("a125_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 a125_type where ID="&ID&""
    rs.open sql,conn,1,3
    rs("a125_names")=Request("a125_names")
    rs("a125_big_id")=Request("a125_big_id")
    rs.update
    rs.close
    response.redirect "Admin_Sort.asp"
    end if
%>
<!--SETINFO修改-->
<%
    if Request.QueryString("Action")="SetInfo" then
    If Request("a125_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 a125_type where ID="&ID&""
    rs.open sql,conn,1,3
    rs("a125_names")=Request("a125_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 + -