首页 / 网页编程 / ASP / fso实例

<！--#include file="config.asp"-->
<！--#include file="inc/articlechar.inc"-->
<%
function changechr（str）
changechr=replace（replace（replace（replace（changechr,"[pic]","<img src="）,"[b]","<b>"）,"[red]","<font color=CC0000>"）,"[big]","<font size=7>"）
changechr=replace（replace（replace（replace（changechr,"[/pic]","></img>"）,"[/b]","</b>"）,"[/red]","</font>"）,"[/big]","</font>"）
changechr=replace（replace（replace（replace（str,"<","<"）,">",">"）,chr（13）,"<br>"）," "," "）
end function
%>

<%
if request.cookies（"newsadminok"）="" then
response.redirect "login.asp"
end if
if request.form（"txttitle"）="" then
response.write "错误提示:请输入新闻标题！"
response.end
end if
if request.form（"txtcontent"）="" then
response.write "错误提示:请未输入新闻内容！"
response.end
end if
dim title
dim content
dim sql
dim rs
dim articleid
dim classid,Nclassid
dim from

title=htmlencode2（request.form（"txttitle"））
from=request.form（"Nfrom"）
zznews=request.form（"zznews"）
typeid=request.form（"typeid"）
about=request.form（"about"）
headline=request.form（"headline"）
ftitle=htmlencode2（request.form（"ftitle"））

dim sql1
dim rs1
dim typename
sql1="select * from type where typeid=" & typeid
set rs1=server.createobject（"adodb.recordset"）
rs1.open sql1,conn,1,1
typename=rs1（"type"）

if request.form（"checkbox1"）="1" then
tjnews=1
else
tjnews=2
end if

if request.form（"yheadline"）="1" then
yheadline=1
else
yheadline=0
end if

content=htmlencode（request.form（"txtcontent"））

set rs = server.CreateObject（"ADODB.RecordSet"）
StrSql = "select E_Memo from Example"
set rs = conn.Execute （StrSql）




fname = makefilename（now（））



dddd = year（now（）） & "年" & month（now（）） & "月" & day（now（）） & "日" & hour（now（））&":"&minute（now（））
pencat=rs（"E_Memo"）
pencat=replace（pencat,"lx",typename）
pencat=replace（pencat,"Date",dddd）
if from="" then
pencat=replace（pencat,"From",""）
else
pencat=replace（pencat,"From","摘自：" & from）
end if
if zznews="" then
pencat=replace（pencat,"Fname",Editor）
zznews=Editor
else
pencat=replace（pencat,"Fname",zznews）
end if
pencat=replace（pencat,"H_Title",title）
pencat=replace（pencat,"H_Memo",content）
pencat=replace（pencat,"labout",about）
pencat=replace（pencat,"ftitle",ftitle）

newsdate = year（now（）） & "." & month（now（）） & "." & day（now（））
TimePath = year（Now（）） & "-" & month（now（）） & "-" & day（Now（））
FolderPath = Server.MapPath（"."）& "" & TimePath



rs.close
"将新闻保存入数据库

sql="select * from article where （newsid is null）"

rs.open sql,conn,1,3
rs.addnew
rs（"title"）=title
rs（"content"）=content
rs（"Nfrom"）=from
rs（"typeid"）=typeid
rs（"path"）=TimePath
rs（"typename"）=typename
rs（"tjnews"）=tjnews
rs（"N_Fname"）=fname
rs（"zznews"）=zznews
rs（"about"）=about
rs（"newsdate"）=newsdate
rs（"yheadline"）=yheadline
rs（"headline"）=headline
if ftitle <> "" then rs（"ftitle"）=ftitle
rs.update

pencat=replace（pencat,"h_id",rs（"newsid"））

Set fso = Server.CreateObject（"Scripting.FileSystemObject"）
If CheckDir（FolderPath） = True Then
Set fout = fso.CreateTextFile（FolderPath & "" & fname）
Else
MakeNewsDir TimePath
Set fout = fso.CreateTextFile（FolderPath & "" & fname）
End if
fout.WriteLine pencat
fout.close

articleid=rs（"newsid"）
UpdateJs（news）
rs1.close
set rs1=nothing
rs.close
set rs=nothing
conn.close
set conn=nothing
response.redirect "addnews.asp"
%>