📄 admin_guidesave.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_guide where Id="& ID
    rs.open sqltext,conn,3,3
    set rs=nothing
    conn.close
    response.redirect "Admin_guide.asp"
    end if
%>
<!--删除大类  -->
<%
    if Request.QueryString("Action")="B_Del" then
    ID=request("ID")
    set rs=server.createobject("adodb.recordset")
    DelBig="delete from zf11_guide where Id="& ID
    DelAll="delete from zf11_guide where B_id="& ID
    rs.open DelBig,conn,3,3
    rs.open DelAll,conn,3,3
    set rs=nothing
    conn.close
    response.redirect "Admin_guide.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 zf11_guide "
    rs.open sql,conn,1,3
    rs.addnew

    rs("Names")=Request("names")
    rs("setting")=Request("setting")
    rs("B_id")=Request("B_id")

    if Request("Tuijian")<>"" then
    rs("Tuijian")=Request("Tuijian")
    else 
    rs("Tuijian")=False
    end if
    rs.update
    rs.close
    response.redirect "Admin_guide.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 zf11_guide where ID="&ID&""
    rs.open sql,conn,1,3
    rs("Names")=Request("names")
    If Request("setting")<>"" Then
    rs("setting")=Request("setting")
    end if
    
    if Request("Tuijian")<>"" then
    rs("Tuijian")=Request("Tuijian")
    else 
    rs("Tuijian")=False
    end if
    rs.update
    rs.close
    response.redirect "Admin_guide.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 zf11_guide 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_guide.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 zf11_guide where ID="&ID&""
    rs.open sql,conn,1,3
    rs("Names")=Request("names")
    rs("Info")=Request("content")
    rs.update
    rs.close
    response.redirect "Admin_guide.asp"
    end if
%>
⌨️ 快捷键说明

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