news_title=request.Form("news_title")
news_info=replace(request.Form("content1"),"""","'")
rs.open "select * from news_info",conn,1,3
rs.addnew
rs("newstitle")=trim(news_title)
rs("title_id")=id
set fso=server.CreateObject("scripting.filesystemobject")
folder="../"&date()
if not fso.folderexists(server.mappath(folder)) then
fso.createfolder(server.mappath(folder))
end if
randomize
filename=year(now)&month(now)&day(now)&hour(now)&minute(now)&second(now)&int(rnd()*1000)
filepath=server.mappath(folder&"/"&filename&".htm")
fso.createtextfile(filepath)
set tx=fso.opentextfile(filepath,2)
tx.write(news_info)
tx.close
set tx=nothing
set fso=nothing
rs("newspath")=folder&"/"&filename&".htm"
rs.update
rs.close

没贴好