<p>fso实例</p>
<p><!--#include file="config.asp"--> <br />
<!--#include file="inc/articlechar.inc"--> <br />
<% <br />
function changechr(str) <br />
changechr=replace(replace(replace(replace(changechr,"[pic]","<img src="),"","<b>"),"[red]","<font color=CC0000>"),"[big]","<font size=7>") <br />
changechr=replace(replace(replace(replace(changechr,"[/pic]","></img>"),"","</b>"),"[/red]","</font>"),"[/big]","</font>") <br />
changechr=replace(replace(replace(replace(str,"<","<"),">",">"),chr(13),"<br>")," "," ") <br />
end function <br />
%><br />
<% <br />
if request.cookies("newsadminok")="" then <br />
response.redirect "login.asp" <br />
end if <br />
if request.form("txttitle")="" then <br />
response.write "错误提示:请输入新闻标题!" <br />
response.end <br />
end if <br />
if request.form("txtcontent")="" then <br />
response.write "错误提示:请未输入新闻内容!" <br />
response.end <br />
end if <br />
dim title <br />
dim content <br />
dim sql <br />
dim rs <br />
dim articleid <br />
dim classid,Nclassid <br />
dim from<br />
title=htmlencode2(request.form("txttitle")) <br />
from=request.form("Nfrom") <br />
zznews=request.form("zznews") <br />
typeid=request.form("typeid") <br />
about=request.form("about") <br />
headline=request.form("headline") <br />
ftitle=htmlencode2(request.form("ftitle"))<br />
dim sql1 <br />
dim rs1 <br />
dim typename <br />
sql1="select * from type where typeid=" & typeid <br />
set rs1=server.createobject("adodb.recordset") <br />
rs1.open sql1,conn,1,1 <br />
typename=rs1("type")<br />
if request.form("checkbox1")="1" then <br />
tjnews=1 <br />
else <br />
tjnews=2 <br />
end if<br />
if request.form("yheadline")="1" then <br />
yheadline=1 <br />
else <br />
yheadline=0 <br />
end if<br />
content=htmlencode(request.form("txtcontent"))<br />
set rs = server.CreateObject("ADODB.RecordSet") <br />
StrSql = "select E_Memo from Example" <br />
set rs = conn.Execute (StrSql) <br />
fname = makefilename(now())<br />
dddd = year(now()) & "年" & month(now()) & "月" & day(now()) & "日" & hour(now())&":"&minute(now()) <br />
pencat=rs("E_Memo") <br />
pencat=replace(pencat,"lx",typename) <br />
pencat=replace(pencat,"Date",dddd) <br />
if from="" then <br />
pencat=replace(pencat,"From","") <br />
else <br />
pencat=replace(pencat,"From","摘自：" & from) <br />
end if <br />
if zznews="" then <br />
pencat=replace(pencat,"Fname",Editor) <br />
zznews=Editor <br />
else <br />
pencat=replace(pencat,"Fname",zznews) <br />
end if <br />
pencat=replace(pencat,"H_Title",title) <br />
pencat=replace(pencat,"H_Memo",content) <br />
pencat=replace(pencat,"labout",about) <br />
pencat=replace(pencat,"ftitle",ftitle)<br />
newsdate = year(now()) & "." & month(now()) & "." & day(now()) <br />
TimePath = year(Now()) & "-" & month(now()) & "-" & day(Now()) <br />
FolderPath = Server.MapPath(".")& "\" & TimePath<br />
rs.close <br />
'将新闻保存入数据库<br />
sql="select * from article where (newsid is null)"<br />
rs.open sql,conn,1,3 <br />
rs.addnew <br />
rs("title")=title <br />
rs("content")=content <br />
rs("Nfrom")=from <br />
rs("typeid")=typeid <br />
rs("path")=TimePath <br />
rs("typename")=typename <br />
rs("tjnews")=tjnews <br />
rs("N_Fname")=fname <br />
rs("zznews")=zznews <br />
rs("about")=about <br />
rs("newsdate")=newsdate <br />
rs("yheadline")=yheadline <br />
rs("headline")=headline <br />
if ftitle <> "" then rs("ftitle")=ftitle <br />
rs.update<br />
pencat=replace(pencat,"h_id",rs("newsid"))<br />
Set fso = Server.CreateObject("Scripting.FileSystemObject") <br />
If CheckDir(FolderPath) = True Then <br />
Set fout = fso.CreateTextFile(FolderPath & "\" & fname) <br />
Else <br />
MakeNewsDir TimePath <br />
Set fout = fso.CreateTextFile(FolderPath & "\" & fname) <br />
End if <br />
fout.WriteLine pencat <br />
fout.close<br />
articleid=rs("newsid") <br />
UpdateJs(news) <br />
rs1.close <br />
set rs1=nothing <br />
rs.close <br />
set rs=nothing <br />
conn.close <br />
set conn=nothing <br />
response.redirect "addnews.asp" <br />
%></p>