'########把记录反排序存储在新的数组实现按时间反排序 dim c(100) n=0 for i=recordcount to 0 step -1 c(n)=b(i) n=n+1 next
dim currentrecord currentrecord=pagesize*(topage-1)+1 '#########显示每一页 for k=1 to pagesize if len(c(currentrecord))=0 then exit for end if Response.Write c(currentrecord)&"〈br〉" currentrecord=currentrecord+1 next Response.Write "〈body bgcolor=#EDF0F5 topmargin=10 marginheight=5 leftmargin=4 marginwidth=0〉" for m=1 to pagenum response.write "〈span style=font-size:10pt〉〈a href=news_list.asp?topage="&m&"〉"&m&"〈/a〉〈/span〉 " next
end if%> //新闻删除 〈!--#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/"&myid&".txt"),1,0)
精品推荐