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

end function

'##########################

dim k,mytext,mappath

mappath=server.mappath("./")

set mytext=myfso.createtextfile(mappath&"\new_list.asp",-1,0)

for i=0 to ubound(listarray)' ##########把所有数据重新写入文件

if i=ubound(listarray) then

mytext.write htmlencode2(listarray(i))

else

mytext.write htmlencode2(listarray(i)&"|")

end if

next

%〉

〈script language="javascript"〉

alert("更改成功");

window.location=("news_admin1.asp");

〈/script〉

上一篇： Web服务器上防范基于ASP程序的木马

下一篇： 利用ASP木马程序获取管理权限