Using text +asp to build news release System (v) News modification

' ###### #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 ("The file name after the upload cannot be empty!") "); Server.focus (); return false}


    }


}


//-->


</SCRIPT>


<% Dim myID


myid=request.querystring ("id")


If Len (myID) =0 then


Response.Write "No such news"


Response.End


End If


Dim myfso,myread,mytext,newscontent


' ###### #打开对应的新闻内容文件, and read with variable storage


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)