<!--#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
	if not rs.eof then
	filename1=rs("filename")
	on error resume next
	set fso=server.CreateObject("scripting.filesystemobject")
	fso.deletefile(server.mappath("../news/"&filename1&".htm"))
	set fso=nothing
	end if
	rs.close
	
	sql="delete from news where id="&Request.QueryString("id")
    conn.execute(sql)

   set rs=nothing
   	response.write"<span id=showImport></span><IE:Download ID=""oDownload"" STYLE=""behavior:url(#default#download)"" />"
    response.write"<script>function onDownloadDone(downDate){showImport.innerHTML=downDate}oDownload.startDownload('newsmake.asp',onDownloadDone)</script>"
	response.write"<script language=javascript>alert('新聞刪除成功');this.location.href='news1.asp?id1="&request("2id")&"';</script>"
%>