用文本+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说明上传了图片,删除新闻图片和该列表记录