www.gusucode.com > 共享世纪内容管理系统 2.1 build 080704 全站开源版 > admin/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 '========================================== set rs=server.CreateObject("ADODB.RecordSet") if xoYuStudioAdminDj=2 and request("id")="" then errmsg=errmsg & ""您没有进入本页面的权限!" \n" if xoYuStudioAdminDj=2 and request("id")<>"" then rs.open "select * from infotype where id="&request("id"),conn,1,1 TM=rs("typemaster") if instr("|"&TM&"|","|"&xoYuStudioAdminName&"|")<1 then errmsg=errmsg & ""您没有进入本页面的权限!" \n" rs.close end if if errmsg<>"" then response.write("<script>alert('" & errmsg & "');history.go(-1)</script>") else sql="select * from infotype where id="&request("id") 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 infotype 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 tid="&rs_type("id") conn.execute "delete * from infotype 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 "html_listLB.asp?id="&request("sortid")&"" end if%>