down_type_del.asp

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

<%Admin="DownType"%>
<!--#include file="check.asp"-->
<!--#include file="mdb_path_down.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/)告诉我们。 
'#################################################################
sql="select * from downtype 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 downtype where ts like '"&rs("ts")&"%'"
	rs_type.open sql_type,conn,1,1
		do while not rs_type.EOF
			    set rsf=server.CreateObject("ADODB.RecordSet")
			    sqlf="select * from down where tid="&rs_type("id")
			    rsf.open sqlf,conn,1,1
			      if not rsf.eof then
			          do while not rsf.EOF
			            conn.execute "delete from downfile where downid="&rsf("id")&""

set fh=Server.CreateObject("Scripting.FileSystemObject")
if not fh.FileExists(server.mappath("../softWare/xoYuSoft_"&rsf("id")&".html")) then
response.write "很抱歉，该软件的下载页不存在！"
else
fh.DeleteFile server.mappath("../softWare/xoYuSoft_"&rsf("id")&".html"),Ture
end if
set fh=nothing
			          
rsf.MoveNext
			          loop
			      end if
			    rsf.close
			    set rsf=nothing		
			conn.execute "delete from down where tid="&rs_type("id")&""
			conn.execute "delete from downtype 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 "down_sort.asp?id="&request("sortid")&""%>