ASP生成静态的HTML技术

最新推荐文章于 2021-06-15 17:03:58 发布

dearspring2010

最新推荐文章于 2021-06-15 17:03:58 发布

阅读量173

点赞数

分类专栏：网络编程文章标签： HTML ASP

本文链接：https://blog.csdn.net/dearspring2010/article/details/83814302

版权

网络编程专栏收录该内容

5 篇文章 0 订阅

订阅专栏

以前在网上看一些新闻发布网站，总是看到除了主页是动态的页面外，其他子页的链接都是静态。

采用的是HTML静态页面生成技术。

我所知的一共有三种方法。但我所了解只有两种。还是用代码说话。。。

//第一种生成方式。

<%
Function CreatHtml(HtmlName,HtmlTitile,HtmlContent)'参数为相对路径 
 Set objFSO  = CreateObject("Scripting.FileSystemObject")
 Set fileout = objFSO.CreateTextFile(server.mappath(HtmlName), True)
 fileout.WriteLine("<html><head><title>"+HtmlTitile+"</title></head>")
 fileout.WriteLine("<html><head><title>"+HtmlContent+"</title></head>")
 fileout.Close
 Set objFSO = nothing
End function 
%>
<%
=CreatHtml("ddd.html","你好吗？","呵呵")
%>

//第二种方式，采用模板页。要先创个模板页，在里面某处在插入内容处进行标记。
//生成HTML代码

生成的ASP:

<%
dim t,fso
dim strTitle,strContent,strOut
set fso=Server.CreateObject("Scripting.FileSystemObject") 
set t=fso.OpenTextFile(server.MapPath("template.htm"),1,false) 
strOut=t.ReadAll

strTitle="生成的网页标题"  
strContent="生成的网页内容"  
strOut=Replace(strOut,"$title$",strTitle)  
strOut=Replace(strOut,"$body$",strContent)  

Set htmlwrite=fso.CreateTextFile(Server.MapPath("strOut.htm"),true)
htmlwrite.close
t.close

%>

dearspring2010

关注

0
点赞
踩
0

收藏

觉得还不错? 一键收藏
0
评论
ASP生成静态的HTML技术

以前在网上看一些新闻发布网站，总是看到除了主页是动态的页面外，其他子页的链接都是静态。采用的是HTML静态页面生成技术。我所知的一共有三种方法。但我所了解只有两种。还是用代码说话。。。 //第一种生成方式。&lt;%Function CreatHtml(HtmlName,HtmlTitile,HtmlContent)'参数为相对路径 Set objFSO = Cre...
复制链接

扫一扫