del.asp

鄂尔多斯建站网全站程序(冬季修正版)

<!--#include file="conn.asp"-->
<!--#include file="session.asp"-->
<%
'**********************************
'版本:Host_free 3.0               *
'官方网站:Http://www.850518.com   *
'技术论坛:Http://forum.850518.com *
'QQ:54455245 (欢迎咨询商业版)     *
'MSN: [e-mail]         *
'手机:[phone]              *
'mail:[e-mail]            *
'版权所有，请保留该信息，谢谢合作 *
'**********************************
%>
<%
'==============================================删除购物栏内的商品
if request("action")="del" then
basket_id=request("basket_id")
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from basket where basket_id="&request("basket_id")
rs.open sql,conn,3,3
rs.delete
rs.update
response.redirect"basket.asp"
rs.close
set rs=nothing
end if
'=================================================删除留言版信息
if request("action")="del_book" then
id=request("id")
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from book where id="&request("id")
rs.open sql,conn,3,3
rs.delete
rs.update
response.redirect"book.asp"
rs.close
set rs=nothing
end if
'==================================================删除问题
if request("action")="del_question" then
id=request("id")
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from control_4 where id="&request("id")
rs.open sql,conn,3,3
rs.delete
rs.update
response.redirect"re_answer.asp"
rs.close
set rs=nothing
end if
'==================================================
conn.close
set conn=nothing
%>
<%
'**********************************
'版本:Host_free 3.0               *
'官方网站:Http://www.850518.com   *
'技术论坛:Http://forum.850518.com *
'QQ:54455245 (欢迎咨询商业版)     *
'MSN: [e-mail]         *
'手机:[phone]              *
'mail:[e-mail]            *
'版权所有，请保留该信息，谢谢合作 *
'**********************************
%>