用文本+ASP打造新聞發布系統(四)新聞刪除/新聞刪除

<!--#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="javascript">
  alert("刪除成功");
  location.href =("news_admin1.asp");
  </script>
---------------
news_view.asp
<%  Response.Expires=0
    dim myid,myfso,myread,mytext1
    myid=request.querystring("id")
    
    if len(myid)=0 then
    Response.Write "沒有該新聞"
    Response.End
    end if
    
    set myfso=createobject("scripting.filesystemobject")
    set myread=myfso.opentextfile(server.mappath("./news_content/