www.gusucode.com > 共享世纪内容管理系统 2.1 build 080704 全站开源版 > admin/special_type_del.asp
<%Admin="InfoType"%> <!--#include file="check.asp"--> <!--#include file="mdb_path_info.asp"--> <% '========================================== ' ' 晓宇听幽新闻文章管理系统 2004 ' ' 主页地址:http://www.xoYu.com ' '========================================== '程序名称:晓宇听幽新闻文章管理系统 '英文名称:xoYu News 2004 Professional '程序创建时间:2003-7-10 '程序完成时间:2003-9-11 '最后修改时间:2003-10-10 '========================================== sql="select * from specialx where id="&request("id") Set rs= Server.CreateObject("ADODB.Recordset") rs.open sql,conn,1,1 if rs.eof and rs.bof then response.write "<li>参数错误,没有此分类!" response.end else Set rs_type= Server.CreateObject("ADODB.Recordset") sql_type="select * from specialx where ts like '"&rs("ts")&"%'" rs_type.open sql_type,conn,1,1 do while not rs_type.EOF conn.execute "delete * from info where sid="&rs_type("id") conn.execute "delete * from specialx where id="&rs_type("id") rs_type.MoveNext loop rs_type.close set rs_type=nothing end if rs.close set rs=nothing conn.close set conn=nothing response.redirect "specialLB.asp?id="&request("sortid")&""%>