www.gusucode.com > 共享世纪内容管理系统 2.1 build 080704 全站开源版 > admin/down_type_del.asp

    <%Admin="DownType"%>
<!--#include file="check.asp"-->
<!--#include file="mdb_path_down.asp"-->
<%
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")&""%>