用文本+ASP打造新闻发布系统

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/"&myid&".txt"),1,0)

if myread.atendofstream then

Response.Write "没有新闻内容"

Response.End

else

mytext1=myread.readall '#######打开对应的新闻内容文件,并读取用变量存储