<!--#include file="Session.asp"-->
<!--#include file="Conn.asp"-->
<%
'=======================================
'88red科技獨立開發完成本程序，并提供免費技術支持與升級服務
'官方網站 http://www.88red.com    QQ:8375158  TEL:13964489818
'對于商業客戶，本站提供細致周到的各項售后服務；對于盜版客戶恕不提供，對于散播本程序者本站將追究其法律責任
'88red科技將陸續開發其他各種先進程序，例如企業網站建站系統等等，對老客戶購買其他程序給予最大程度的優惠，歡迎洽談
'=======================================	
	set rs=server.CreateObject("adodb.recordset")
	sql="select * from news where id="&request("id")
	rs.open sql,conn,1,1
	purl=rs("sp_pic")
	filename1=rs("filename")
	on error resume next
	set fso=server.CreateObject("scripting.filesystemobject")
	fso.deletefile(server.mappath("../news/"&filename1&".htm"))
	set fso=nothing
	set fso=Server.CreateObject("scripting.filesystemobject") 
    fileName="../"&purl
    myFile=Server.MapPath(fileName) 
    if fso.FileExists(myFile) then 
    fso.DeleteFile myFile 
    end if 
    set fso=Nothing 
	rs.close
	set rs=nothing
	sql="delete from news where id="&request("id")
	conn.execute(sql)
    conn.close
	set conn=nothing
	if request("b")="1" then
	response.write"<script language=javascript>alert('新聞刪除成功');this.location.href='modify12.asp?bid="&request("theid")&"';</script>"
	else
	response.write"<script language=javascript>alert('新聞刪除成功');this.location.href='modify22.asp?sid="&request("theid")&"';</script>"
	end if
%>