<%@LANGUAGE="Vbscript" CODEPAGE="936"%>















添加文章


文章标题：


文章内容：












删除文章


文章编号：


文章标题：


创建日期：




<%

Dim fso,htmlwrite,countwrite,addwrite,delwrite
Dim strTitle,strContent,strOut,add,strAll,strDel,deldate,deltitle
dim count,delnumber

'// 创建文件系统对象 
Set fso=Server.CreateObject("Scripting.FileSystemObject") 
'// 打开网页模板文件，读取模板内容 
Set htmlwrite=fso.OpenTextFile(Server.MapPath("Template/Template.html"))
strOut=htmlwrite.ReadAll
htmlwrite.close 
'设定新闻编号的计数器
Set countwrite=fso.OpenTextFile(Server.MapPath("Template/count.txt"))
strcount=countwrite.ReadLine
count=Cint(strcount)
countwrite.close
'接受传送过来的标题和内容
strTitle=request.Form("title")
strCOntent=request.Form("contents")

if strContent<>"" then
'// 用真实内容替换模板中的标记 
strOut=Replace(strOut,"$title$",strTitle) 
strOut=Replace(strOut,"$body$",strContent) 
'// 创建要生成的静态页
Set htmlwrite=fso.CreateTextFile(Server.MapPath("news/news"&strcount&".html"),true) 
'// 写入网页内容 
htmlwrite.WriteLine(strOut) 
htmlwrite.close 
'将+1后的新闻编号写入到count.txt中
Set countwrite=fso.CreateTextFile(Server.MapPath("Template/count.txt"),true)
countwrite.WriteLine(count+1)
countwrite.close

'添加文章代码到lpnews_index.html中
set addwrite=fso.OpenTextFile(Server.MapPath("news/lpnews_index.html"))
strOut=addwrite.ReadAll
addwrite.close
add="$add$
"&strTitle&""&Year(now())&"-"&Month(now())&"-"&Day(now())&"
"
'将添加新闻后的代码再写回去
strOut=Replace(strOut,"$add$",add)
set addwrite=fso.CreateTextFile(Server.MapPath("news/lpnews_index.html"),true)
addwrite.WriteLine(strOut)
addwrite.close

Response.Write("提交成功")
end if

'删除lpnews_index.html中的新闻代码
delnumber=request.Form("number")'接受传送过来的删除编号
deltitle=request.Form("deltitle")
deldate=request.Form("deldate")

if delnumber<>"" then
set delwrite=fso.OpenTextFile(Server.MapPath("news/lpnews_index.html"))
strAll=delwrite.ReadAll
delwrite.close
strDel="
"&deltitle&""&deldate&"
"'要从中删除的字符串
if instr(strAll,strDel)=0 then 
Response.Write("新闻代码删除失败，输入有误！
")
else   
strAll=Replace(strAll,strDel,"") 
response.Write("新闻代码删除成功
")
end if
set delwrite=fso.CreateTextFile(Server.MapPath("news/lpnews_index.html"))
delwrite.WriteLine(strAll)
delwrite.close

'删除新闻文件
set delwrite=fso.GetFile(Server.MapPath("news/news"&delnumber&".html"))
delwrite.Delete
response.Write("新闻文件删除成功
")
end if
'// 释放文件系统对象
set delwrite=Nothing
set addwrite=Nothing
set countwrite=Nothing
set htmlwrite=Nothing 
set fso=Nothing 
%>