<!--#include file="news_session.asp"-->

<%
  dim id
     id=Request.QueryString ("id")
    dim myfso
    set myfso=createobject("scripting.filesystemobject")
    if myfso.FileExists(server.mappath("./news_content/"&id&".txt"))then
          myfso.DeleteFile (server.mappath("./news_content/"&id&".txt"))'#############删除新闻内容
    end if
  
    dim mytext2,myread2
    set myread2=myfso.opentextfile(server.mappath("./new_list.asp"),1,0)
if   myread2.atendofstream then
     Response.Write "没有新闻内容"
     myread2.close
     Response.End
end if

     mytext2=myread2.readall
     myread2.close
     dim listarray,i,h,count,sf,title
      listarray=split(mytext2,"|")     '#########读取记录并以#分割成listarray数组
      count=ubound(listarray)
for i=0 to count      '###########根据ID找到该新闻实现删除功能
     sf=split(listarray(i),",")
            if right(sf(0),7)=right(id,7) then
              dim thisid
                  thisid=i
                  
      '#######为6说明上传了图片,删除新闻图片和该列表记录
                if ubound(sf)=6 then
                 myfso.deletefile(server.MapPath ("./images/"&sf(6)))
                end if             
               exit for
          end if   
next  
   
     dim mytext,mappath  
     mappath=server.mappath("./")
     set mytext=myfso.createtextfile(mappath&"\new_list.asp",-1,0)
        for i=0 to thisid-1'  ##########把所有数据重新写入文件
        mytext.write listarray(i)&"|"
        next
     
   for i=thisid+1 to ubound(listarray)
        if i=ubound(listarray)  then
        mytext.write listarray(i)
        exit for
        else
        mytext.write listarray(i)&"|"
        end if
   next
        mytext.close
    %>
  <script language="javascr