〈% end if%〉 //新闻修改 ‘#######news_update.asp 〈!--#include file="news_session.asp"--〉 〈SCRIPT ID=clientEventHandlersJS LANGUAGE=javascript〉 〈!-- function client_onblur(ii) { server=eval("form1.server"+ii) if(server.value==""){ client=eval("form1.client"+ii) clientvalue=client.value+"" varlen=clientvalue.length a=clientvalue.lastIndexOf('\\') clientvalue=clientvalue.substring(a+1) //alert(clientvalue); server.value=clientvalue } } function form1_onsubmit() { for(i=1;i〈1;i++){ client=eval("form1.client"+i) server=eval("form1.server"+i) if(client.value!="" && server.value==""){alert("上传后的文件名不能空！");server.focus();return false} } } //--〉 〈/SCRIPT〉 〈% dim myid myid=Request.QueryString ("id") if len(myid)=0 then Response.Write "没有该新闻" Response.End end if dim myfso,myread,mytext,newscontent '#######打开对应的新闻内容文件,并读取用变量存储 set myfso=createobject("scripting.filesystemobject") if myfso.FileExists (server.mappath("./news_content/"&myid&".txt")) then set myread=myfso.opentextfile(server.mappath("./news_content/"&myid&".txt"),1,0) newscontent=myread.readall myread.close newscontent=replace(newscontent,"〈br〉",chr(13)) newscontent=replace(newscontent," "," ") newscontent=replace(newscontent," ",chr(32)) newscontent=replace(newscontent,"'' ",chr(34)) else Response.Write "该新闻已被删除" Response.End end if dim mytext2,myread2 '#######打开新闻列表文件 set myread2=myfso.opentextfile(server.mappath("./new_list.asp"),1,0) if myread2.atendofstream then Response.Write "没有新闻内容" Response.End end if mytext2=myread2.readall dim listarray listarray=split(mytext2,"") '#########读取记录并以#分割成listarray数组 dim count,sf,i,title,src count=ubound(listarray) for i=0 to count '###########根据ID找到该新闻并用变量存储给新闻的标题 sf=split(listarray(i),",") if right(sf(0),7)=right(myid,7) then title=sf(1) src=sf(3) exit for end if next %〉 〈head〉
精品推荐