【ASP】ASP vbscript一个综合的例子，操作html文件添加、删除代码、删除文件。

最新推荐文章于 2024-09-18 09:47:26 发布

JimCarter

最新推荐文章于 2024-09-18 09:47:26 发布

阅读量1k

点赞数

分类专栏： asp 文章标签： html 网站建设 vbscript

本文链接：https://blog.csdn.net/catshitone/article/details/37741127

版权

asp 专栏收录该内容

3 篇文章 0 订阅

订阅专栏

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">


<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>后台管理</title>



</head>



<body>
<p><h1>添加文章</h1></p>
<form action="add.asp" method="post">
文章标题：<input type="text" name="title" size="20"/>
<br />
文章内容：<input type="text" name="contents" size="20"/>
<br/>
<input type="submit" value="提交"/>
</form>
<br/>
<br/>
<br/>
<br/>
<p><h1>删除文章</h1></p>
<form action="add.asp" method="post">
文章编号：<input type="text" name="number" size="20"/>
<br/>
文章标题：<input type="text" name="deltitle" size="20"/>
<br/>
创建日期：<input type="text" name="deldate" size="20"/>
<br/>
<input type="submit" value="删除"/>
</form>
<%

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$<li><a href="&chr(34)&"news"&strcount&".html"&chr(34)&"><span class="&chr(34)&"lbt"&chr(34)&">"&strTitle&"</span><span class="&chr(34)&"ldt"&chr(34)&">"&Year(now())&"-"&Month(now())&"-"&Day(now())&"</span></a></li>"
'将添加新闻后的代码再写回去
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="<li><a href="&chr(34)&"news"&delnumber&".html"&chr(34)&"><span class="&chr(34)&"lbt"&chr(34)&">"&deltitle&"</span><span class="&chr(34)&"ldt"&chr(34)&">"&deldate&"</span></a></li>"'要从中删除的字符串
if instr(strAll,strDel)=0 then 
Response.Write("新闻代码删除失败，输入有误！<br/>")
else   
strAll=Replace(strAll,strDel,"") 
response.Write("新闻代码删除成功<br/>")
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("新闻文件删除成功<br/>")
end if
'// 释放文件系统对象
set delwrite=Nothing
set addwrite=Nothing
set countwrite=Nothing
set htmlwrite=Nothing 
set fso=Nothing 
%>
</body>
</html>