<!--#include file="UserManageClass.asp" -->
<%
IF CblogObj.FormRequest("Action")="delete" And CblogObj.FormRequest("ArticleID")<>"" Then
	Dim ArticleID,Ch
	ArticleID=CblogObj.FormRequest("ArticleID")
	'ArticleArr=Split(ArticleID, ",")
	'For Arrj = 0 To UBound(ArticleArr)
		'ID=CblogObj.IsCint(Trim(ArticleArr(Arrj)))
		'CblogObj.DelFile(CblogObj.GetDir(Session("UserID")) & "/" & ID & ".Xml")
	'Next
	Set Rs=Conn.Execute("Select Article_Code From Article Where Article_ID IN("& ArticleID &") GROUP BY Article_Code")
	DO While Not Rs.Eof
	Ch=Ch & "|" & "Article_ByClass" & Rs(0)
	RS.MoveNext
	Loop
	Rs.Close:Set Rs=Nothing
	IF INSTR(Ch,"|")>0 Then
		Ch=Mid(Ch,2)
	End IF
	Conn.Execute "Delete From Article Where User_ID="& Session("UserID") &" And Article_ID IN("& ArticleID &")"
	Conn.Execute "Delete From Tb_Reply Where Reply_User="& Session("UserID") &" And Reply_Blog_ID IN("& ArticleID &")"
	Conn.Execute("delete from TrackBack where ArticleID in("& ArticleID &")")
	Call ArticledCaheAndXmlDel()
	CblogObj.DelCahe(Ch)
	CblogObj.GetHttpUrl("")
	Set CblogObj=Nothing
Else
Response.Redirect(Request.ServerVariables("HTTP_REFERER"))
Response.End
End IF
%>