subdel.asp

这是一套集“新闻、产品、订购、招聘、下载、留言”为一体的企业型后台管理系统 系统维护人员： #################################################

<%
if session("admin_name")="" then response.end
set rs=server.createobject("adodb.recordset")
%>
<!--#include file="../inc/adconn.asp"-->
<!--#include file="../css.asp"-->
<%
sub_id=request("sub_id")
if request("del")="del" then
	sq1="select * from dg where id="&sub_id
    rs.open sq1,conn,3,3
    if not rs.eof then
        'response.redirect "viewsub.asp"
   ' else
    rs.delete
    rs.update
    'end if
    rs.close
	end if
	'sq1="select * from basket where sub_number='"&sub_number&"'"
	'rs.open sq1,conn,3,3
    'if rs.eof then
        'response.redirect "submitsub.asp"
    'else
    'rs.delete
    'rs.update
    'end if
	'rs.close
	
	'sq1="select * from ts where sub_number='"&sub_number&"'"
	'rs.open sq1,conn,3,3
    'if rs.eof then
        'response.redirect "submitsub.asp"
    'else
    'rs.delete
    'rs.update
    'end if
	'rs.close
	response.write "删除成功"
    response.write "<br>"
    response.write "<a href='submitsub.asp'>返回</a>"
end if

%>