admin_sortsave.asp

来自「为中小型企业与欲创业的个人提供一个合适的企业型网站」· ASP 代码 · 共 137 行

<!--#include file="Include/Tyi86_setup.asp"-->
<!--#include file="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 Sort 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 Sort where Id="& ID
    DelAll="delete from Sort where B_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("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 Sort "
    rs.open sql,conn,1,3
    rs.addnew
    rs("AddTime")=date()
    rs("Names")=Request("Names")
    rs("Setting")=Request("Setting")
    rs("B_id")=Request("B_id")
    rs("S_Order")=Request("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")="Setting" then
    If Request("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 Sort where ID="&ID&""
    rs.open sql,conn,1,3
    rs("Names")=Request("Names")
    If Request("Setting")<>"" Then
    rs("Setting")=Request("Setting")
    end if
    rs("S_Order")=Request("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("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 Sort where ID="&ID&""
    rs.open sql,conn,1,3
    rs("Names")=Request("Names")
    rs("B_id")=Request("B_id")
    rs.update
    rs.close
    response.redirect "Admin_Sort.asp"
    end if
%>
<!--SETINFO修改-->
<%
    if Request.QueryString("Action")="SetInfo" then
    If Request("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 Sort where ID="&ID&""
    rs.open sql,conn,1,3
    rs("Names")=Request("Names")
    rs("Info")=Request("content")
    rs.update
    rs.close
    response.redirect "Admin_Sort.asp"
    end if
%>