<%
'****************************************************************
'**   版权所有：烈火工作室  演示网站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 = "config.asp"-->
<!--#include file = "const.asp"-->
<%
se_ClassName=Request("se_ClassName")

selecttype=Request("selecttype")
searchkeys=Request("searchkeys")
page=Request("page")
ID=Request("id")

'删除相关图片
	Set oRs = Server.CreateObject( "ADODB.Recordset" )
	sSql = "SELECT * FROM article WHERE id=" & ID
	oRs.Open sSql, Conn, 1, 3
	If Not oRs.Eof Then		
		sSavePathFileName = oRs("SavePathFileName")	
		ClassName=oRs("ClassName")
	
		if sSavePathFileName<>"" then
			' 把带"|"的字符串转为数组	
			aSavePathFileName = Split(sSavePathFileName, "|")
			' 删除新闻相关的文件，从文件夹中
			For i = 0 To UBound(aSavePathFileName)
			' 按路径文件名删除文件
				Call DoDelFile(aSavePathFileName(i))
			Next
   		 end if
		' 删除
		oRs.delete
		oRs.update
	End If
	
	oRs.Close
	 '删除htm文件
	 
	

conn.close
set conn=nothing
if selecttype=2 then
response.write"<SCRIPT language=JavaScript>alert('删除成功！');"
		response.write"location.href ='ArticleModSelClass.asp'</SCRIPT>"
		response.end
else
Response.Redirect "searchlist.asp?searchkeys="&searchkeys&"&selecttype="&selecttype&"&se_ClassName="&se_ClassName&"&page="&page

end if



%>