delnews.asp

来自「静态新闻系统 88red静态新闻系统1.0经过精心打造正式推出」· ASP 代码 · 共 29 行

<!--#include file="Session.asp"-->
<!--#include file="Conn.asp"-->
<%
'=======================================
'88red科技独立开发完成本程序，并提供免费技术支持与升级服务
'官方网站 http://www.88red.com    QQ:8375158  TEL:[phone]
'对于商业客户，本站提供细致周到的各项售后服务；对于盗版客户恕不提供，对于散播本程序者本站将追究其法律责任
'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>"
%>