type_del.asp

很好的企业网站管理系统!可以适应各种不同的小型企业!

<%Admin="InfoType"%>
<!--#include file="check.asp"-->
<!--#include file="mdb_path_info.asp"-->
<%
'#################################################################
'#  晓宇听幽网站内容管理系统(xoYu CMS)
'# 
'#  版权所有: 晓宇听幽工作室
'#
'#  制作人  :  xoyu(晓宇)            
'#           
'#  主页地址: http://www.xoYu.com	    晓宇听幽工作室
'#  论坛地址: http://www.xoYu.com/bbs/	晓宇听幽讨论区
'#
'#【版权声明】
'#################################################################
'# 本软体为共享软体(shareware)提供个人网站免费使用，请勿非法修改,
'# 转载，散播，或用于其他图利行为，并请勿删除版权声明。
'# 如果您的网站正式起用了这个脚本，请您通知我们，以便我们能够知晓！
'# 如果可能，请在您的网站做上我们的链接，希望能给予合作。谢谢！
'#################################################################
'# 程序名称：晓宇听幽网站内容管理系统·网站内容管理系统
'# 英文名称：xoYu News 2004 Professional For xoYu CMS
'# 程序创建时间：2003-7-10
'# 程序完成时间：2003-9-11
'# 最后修改时间：2003-11-15
'#################################################################
'# 请您尊重我们的劳动和版权，不要删除以上的版权声明部分，谢谢合作
'# 如有任何问题请到我们的论坛(http://www.xoyu.com/bbs/)告诉我们。 
'#################################################################
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%>