对于Web开发人员来说，生成静态文件这个概念并不陌生。

对于Web开发来说，如何能避免客户端访问时不停的查询数据库？现在比较常用的有两种方法，一种是使用缓存技术，将查询出来的结果缓存至缓存框架中，以后当有用户访问时，直接通过缓存框架读取数据，这样就避免了大量用户同时访问数据库。另一种方法就是使用静态生成技术，静态生成技术常见的做法有两种，一种是通过模板文件（模板文件中保存好前期定义好的变量，后台通过数据加载对相应变量进行替换，然后再对替换完的数据进行生成静态文件）；一种是直接访问Web地址，通过Http协议读取网页内容，然后再将内容生成相应的静态文件。

对于像Java、.NET这些语言来说，外界都会给出相应的缓存框架，Java的缓存框架就更多了。但对Asp这样的低端语言来说呢，只能通过用静态生成技术来实现减少用户大量的数据访问，本文就结合自己准备要做的项目来谈谈Asp如何实现静态生成。

Asp静态生成技术的原理上面我已经讲过了，两种做法最终都会通过读取HTML文件（或动态或模板文件）来生成相应的静态页面。

方法一：通过模板文件来实现静态化：

如题所示，通过模板文件实现静态化，当然首先要创建相应的模板文件，我的模板文件如下template.htm：

<!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><#PageTitle#></title>
</head>

<body>
 <#article:title#>
 <#article:content#>
</body>
</html>

请注意：我使用<#article:title#>做为变量，这样的话，在进行文件替换的时候我就会查询包含此变量的内容进行替换。

模板文件创建后，就是静态化处理的核心部分，代码如下：

<%
filename="Template.htm"
'tt.txt是模板文件
Dim objFSO,objCountFile,FiletempData 
' 创建FSO文件对象
Set objFSO = Server.CreateObject("Scripting.FileSystemObject") 
Set objCountFile = objFSO.OpenTextFile(Server.MapPath(filename),1,True) 
FSOFileRead = objCountFile.ReadAll 
'response.write FSOFileRead&"<br>"
FSOFileRead = replace(FSOFileRead,"<#PageTitle#>","杰之蓝")
FSOFileRead = replace(FSOFileRead,"<#article:title#>","杰之蓝Asp静态生成技术")
FSOFileRead = replace(FSOFileRead,"<#article:content#>","杰之蓝Asp静态生成技术详细内容。")
Response.write FSOFileRead
objCountFile.Close

Set fso = Server.CreateObject("Scripting.FileSystemObject")
'fso.CreateFolder(Server.MapPath(folder)) 创建文件夹
Set fout = fso.CreateTextFile(Server.MapPath("aaa.html"))
fout.WriteLine FSOFileRead
fout.close

%>

请注意：<#PageTitle#>，<#article:title#>，<#article:content#>这三个变量为我在模板页面中使用，此处将这些变量变成真实的值；对文件替换完成后，就对进行文件的创建，此处要求您的服务器可以使用FSO对象，我将文件生成后放在于模板文件同级的目录下，当然如果你要创建在别的目录下的时候你就要将创建文件夹那个注释放开，然后添加上你自己的目录；文件创建完成后一定记得关闭FSO对象。

方法二：读取Url地址生成静态文件

这种方法就像上面所说的是通过读取URL地址，然后提取URL地址中的内容，最后再生成相应的静态文件。

下面来看具体代码：

<%
'///////////////////////////////////////////////////////////////////////////////
'//              ASP生成静态
'// 作    者:    杰之蓝
'// 版权所有:    www.52cfml.com
'// 技术支持:    www.52cfml.com
'// 开始时间:    2010-07-16
'// 最后修改:    
'// 备    注:    
'///////////////////////////////////////////////////////////////////////////////

response.write "<textarea cols=""79"" rows=""30"">"&GetHttpPage(("http://www.52cfml.com/"),"gb2312")&"</textarea>"

'函数名：GetHttpPage
'作 用：获取网页源码
'参 数：HttpUrl ------网页地址,Cset 编码
'===============================================
Function GetHttpPage(ByVal URL, ByVal Cset)
 Dim BlockStartTime
 On Error Resume Next
 Dim Http
 If IsNull(URL)=True Or Len(URL)<18 Or URL="$False$" Then
    GetHttpPage="$False$"
    Exit Function
 End If
 BlockStartTime = Timer()
 Set Http=server.createobject("MSXML2.XMLHTTP")
 Http.open "GET",URL,False
 Http.Send()
 '循环等待数据接收
 Dim temp,BlockTimeout 
 BlockTimeout = 64
 While (http.ReadyState <> 4)
 ' 判断是否块超时
    temp = Timer() - BlockStartTime
    Response.Write(Timer())
    If (temp > BlockTimeout) Then
  http.abort
  Set Http=Nothing 
  GetHttpPage="$False$"
  Exit function
  Response.End
    End If
    http.waitForResponse 10000'等待1000毫秒
 Wend
 
 If Http.Readystate<>4 then
    Set Http=Nothing 
    GetHttpPage="$False$"
    Exit function
 End If
 GetHTTPPage=BytesToBstr(Http.responseBody,Cset)
 Set Http=Nothing

If Err.number<>0 then
    If IsNull(URL)=True Or Len(URL)<18 Or URL="$False$" Then
  GetHttpPage="$False$"
  Exit Function
    End If
    Set Http=Nothing
    Err.Clear
 End If

End Function

Function BytesToBstr(body,Cset)
 dim objstream
 set objstream = Server.CreateObject("adodb.stream")
 objstream.Type = 1
 objstream.Mode =3
 objstream.Open
 objstream.Write body
 objstream.Position = 0
 objstream.Type = 2
 objstream.Charset = Cset
 BytesToBstr = objstream.ReadText 
 objstream.Close
 set objstream = nothing
End Function
%>

上述两种方法都可以生成静态文件，只不过每种方法的侧重点不同，有需要的朋友可以根据自己的需要选择相应的方法，当然真实环境下必须有数据库的支持，由于本文只是例子，就没有结合数据库实现，有需要的朋友可以根据自己的需要建立相应的数据库，对于方法一来说，模板变量的命名必须是前期定义好的。

ASP专栏——ASP生成静态文件（用于大量文章）的更多相关文章

  1. 基于 Vue.js 之 iView UI 框架非工程化实践记要 使用 Newtonsoft.Json 操作 JSON 字符串 基于.net core实现项目自动编译、并生成nuget包 webpack + vue 在dev和production模式下的小小区别 这样入门asp.net core 之 静态文件 这样入门asp.net core，如何

    基于 Vue.js 之 iView UI 框架非工程化实践记要   像我们平日里做惯了 Java 或者 .NET 这种后端程序员,对于前端的认识还常常停留在 jQuery 时代,包括其插件在需要时就引 ...

  2. ASP.NET Core使用静态文件、目录游览与MIME类型管理

    前言 今天我们来了解了解ASP.NET Core中的静态文件的处理方式. 以前我们寄宿在IIS中的时候,很多静态文件的过滤 和相关的安全措施 都已经帮我们处理好了. ASP.NET Core则不同,因 ...

  3. phpcms V9 修改生成静态文件路径/html

    在论坛看到部分用户反馈这个问题,要修改的其实是html_root的值,默认是"/html"如果要生成在网站根目录的话,这个值则要为空.论坛上现在看到的办法是打开caches\con ...

  4. 用include（）和ob_get_contents( )方法 生成静态文件

    1. 生成静态文件可以在打开缓冲区的前提下,用include()方法去包含要执行的动态文件,这样该动态文件就会在缓冲区中执行,执行完毕后的静态HTML代码就保存在缓冲区中,然后用ob_get_cont ...

  5. [js高手之路]Node.js+jade+mongodb+mongoose实现爬虫分离入库与生成静态文件

    接着这篇文章[js高手之路]Node.js+jade抓取博客所有文章生成静态html文件继续,在这篇文章中实现了采集与静态文件的生成,在实际的采集项目中, 应该是先入库再选择性的生成静态文件.那么我选 ...

  6. ASP生成静态文件编码为UTF-8格式的HTML文件

    一般在ASP环境下,运行动生静操作时都用到的是FSO,FSO是专门对文件进行操作的一个组件,FSO的编码属性只有三种,系统默认,Unicode,ASCII,并没有utf-8,所以一般中文系统上使用FS ...

  7. asp.net core 控制静态文件的授权

    静态文件访问在网站中是一项重要的服务,用于向前端提供可以直接访问的文件,如js,css,文档等,方法是在Startup的Configure中添加UseStaticFiles()管道. 参考:ASP.N ...

  8. 这样入门asp.net core 之 静态文件

    本文章主要说明asp.net core中静态资源处理方案: 一.静态文件服务 首先明确contentRoot和webroot这两个概念 contentRoot:web的项目文件夹,其中包含webroo ...

  9. ASP.NET MVC生成静态页面

    1.先付上封装好生成静态页的原代码: public class Common { #region 获取模板页的Html代码 /// <summary> /// 获取页面的Html代码 // ...

随机推荐

  1. solr查询在solrconfig.xml中的配置

    <requestHandler name="/select" class="solr.SearchHandler"> <lst name=&q ...

  2. 使用sharepreferce记录数组数据

    使用sharepreferce记录数组数据 /** * * sharepreference纪录news数据 * * */ private static final String name=" ...

  3. Oracle基础 exp/imp 数据泵导入/导出 命令

    一.导出方式: 使用exp/imp方式导出数据分为四种方式: 1.表方式导出:一个或多个指定的表,包括表的定义.表数据.表的所有者授权.表索引.表约束,以及创建在该表上的触发器.也可以只导出结构,不导 ...

  4. 查看centos中的用户和用户组

    用户列表文件:/etc/passwd 用户组列表文件:/etc/group 查看系统中有哪些用户:cut -d : -f 1 /etc/passwd查看可以登录系统的用户:cat /etc/passw ...

  5. Smart法则

    设立目标不是一个很简单的事情.人们经常会犯一些基本的错误,即过于理想化.不符合客观情况.不容易执行落实,因此计划容易变成一种“美好的愿望”而已.在20世纪70年代,一位美国人为设立目标做出了一个简单而 ...

  6. 应用越来越广泛的css伪类

    说起css伪类,学习web前端网页设计的同学们应该对此应该不是很陌生,以前很多的网页的特效大多是通过js来实现的.但是随着CSS3不断开发,利用css实现网页的特效不仅响应不错,而且还减少了很多的代码 ...

  7. 设置input(radio,checkbox)和lable对齐的问题

    在做页面的时候几次遇到label和前面的小图标无法对齐的情况,后来发现解决方法不过是 label { display:inline-block; vertical-align:top; line-he ...

  8. 【Ionic】---App名字和图标修改+启动画修改（SplashScreen）

    APP名字 1 修改项目目录下config.xml--name标签 END APP图标和启动画 1 在项目的根目录下创建resources文件夹 在文件夹中都放入 icon.png(应用图标,最小19 ...

  9. C# 图片截图(圆形)

    //要截图的图片 Image img = Image.FromFile("D:\\soure.jpg"); //截图画板 Bitmap bm = , ); Graphics g = ...

  10. 用宏定义封装LoadLibrary，方便的动态加载dll

    同学们动态加载dll的时候是不是感觉挺麻烦的,每次都::LoadLibrary,::GetProcAddress,还要typedef一堆函数.最近闲来无聊,用宏封装了一下,可以少写不少代码,用来也挺方 ...