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%>