<%@language=vbscript codepage=936 %>
<%
'****************************************************************
'**   版权所有：烈火工作室  演示网站http://www.strongfire.cn   **
'**   QQ:839225572   邮箱：strongfire2008@163.com              **
'**   非正版用户不得擅自非法修改用于商业用途！查出必究。       **
'****************************************************************
%>
<!--#include file="islogin.asp"-->
<!--#include file="Check_SqlIn.asp"-->
<!--#include file="admin_conn.asp"-->
<!--#include file = "const.asp"-->

<%
dim ClassName,sql
ClassID=Request("ClassID")

if ClassID<>"" then
	sql="delete from Class where id=" & ClassID
	conn.Execute sql
	
	
		
		'清除列表文件
		
		
		
	
	'删除相关图片
	Set Rs = Server.CreateObject( "ADODB.Recordset" )
	Sql = "SELECT id,SavePathFileName FROM article WHERE ClassID=" & ClassID
	Rs.Open Sql, Conn, 1, 3
	If Not Rs.Eof Then
		do while not Rs.EOF 
		sSavePathFileName = Rs("SavePathFileName")
		id=Rs("id")
		if sSavePathFileName<>"" then
				' 把带"|"的字符串转为数组
			aSavePathFileName = Split(sSavePathFileName, "|")
				' 删除新闻相关的文件，从文件夹中
			For i = 0 To UBound(aSavePathFileName)
				' 按路径文件名删除文件
				Call DoDelFile(aSavePathFileName(i))
			Next
   		 end if
	' 删除新闻
		Rs.delete
	    Rs.update

	
	Rs.movenext
	loop 
	Rs.Close
	set Rs=nothing
	
	End If
	
end if
conn.close
set conn=nothing  
response.redirect "ClassManage.asp"
%>



