deltype.asp

来自「ASP+ACCESS 产品报价系统 开发环境简单 主要是周杰伦FANs的交互活动」· ASP 代码 · 共 41 行

ASP
41
字号
<%
if session("admin_name")="" then response.end
set rs=server.createobject("adodb.recordset")
%>
<!--#include file="conn.asp"--><head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href=../css.css rel=STYLESHEET type=text/css>
</head>
<%
if request("action")="del" then
    sql="select * from company where id="&request("id")
    rs.open sql,conn,3,3
    if rs.eof then
        response.redirect "deltype.asp"
    else
    rs.delete
    rs.update
    end if
    response.write "商品类别删除成功"
    response.write "<br>"
    response.write "<a href=deltype.asp>返回</a>"
    rs.close
    
else

    sql="select * from company"
    rs.open sql,conn,3,3
    if rs.eof then
        response.write "没有商品分类"
    else
        do while not rs.eof%>
        
<a href="deltype.asp?id=<%=rs("id")%>&action=del"><%=rs("com_name")%></a><Br>
        <%rs.movenext
        loop
    end if
    rs.close

end if

%>

⌨️ 快捷键说明

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