admin_editalls.asp

新闻发布系统

<!--#include file = include.asp-->
<!--#include file = admin_Checkmana.asp-->
<%
'=========================================================
'产品目录：风讯产品N系列
'软件名称：风讯站点管理系统
'当前版本：2004.I.0225
'最新更新：2004.2.10
'=========================================================
'Copyright (C) 2002-2004 cooin.com. All rights reserved.
'网站: http://www.cooin.com  Foosun.net
'程序制作：轻风云(QQ:655071)
'Email:[e-mail],[e-mail]
'论坛支持：风讯在线论坛(http://bbs.cooin.com   http://bbs.foosun.net)
'=========================================================
%>
<%  
    session("FilePath")=""
    Num=request.form("DelID").count
    Set MyFile=Server.CreateObject("Scripting.FileSystemObject")
    for i=1 to Num
      set rs=Server.CreateObject("adodb.Recordset")
      sql="Select * from News where NewsID="&request.form("DelID")(i)
      rs.open sql,conn,1,1
      FileName=rs("FileName")
	  lpath=rs("lpath")
	  rs.close
      set rs=nothing
      conn.execute("Delete From News Where NewsID="&request.form("DelID")(i))
      conn.execute("Delete From Review Where FileName='"&FileName&"'")
      if MyFile.FileExists(Server.MapPath("..")&"\"&lpath&FileName&".html") then
        MyFile.DeleteFile(Server.MapPath("..")&"\"&lpath&FileName&"*.html")
      end if
      if MyFile.FileExists(Server.MapPath("..")&"\"&lpath&FileName&".asp") then
        MyFile.DeleteFile(Server.MapPath("..")&"\"&lpath&FileName&".asp")
      end if
    next
	set MyFile=nothing
    Response.write"<script>alert(""成功删除选定新闻,请重新生成相应类别下的新闻"");location.href=""admin_editall.asp"";</script>"
    Response.end
 	%>