对于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. IOS 图片转换二进制 二进制转换为图片

    //类方法 图片 转换为二进制 +(NSData *)Image_TransForm_Data:(UIImage *)image { NSData *imageData = UIImageJPEGRe ...

  2. Android（java）学习笔记265：Android线程形态之 HandlerThread

    1.  HandlerThread Android HandlerThread 完全解析 Handler与HandlerThread区别,HandlerThread应用(对比AsyncTask) 备注 ...

  3. 《Cortex-M0权威指南》之体系结构---异常和中断

    转载请注明来源:cuixiaolei的技术博客 异常会引起程序控制的变化.在异常发生时,处理器停止当前的任务,转而执行异常处理程序,异常处理完成后,会继续执行刚才的任务.异常分为很多种,中断是其中之一 ...

  4. MySQL优化之COUNT(*)效率

    MySQL优化之COUNT(*)效率 刚给一个朋友解决他写的Discuz!插件的问题,说到MySQL的COUNT(*)的效率,发现越说越说不清楚,干脆写下来,分享给大家. COUNT(*)与COUNT ...

  5. vb.net详解MDI窗体操作方法

    MDI窗体可以避免打开窗体的时候被无数个子窗体困扰,我将为大家一一的介绍一下vb.net中MDI窗体的操作方法 一.如何创建MDI窗体? 1.创建mdi主窗体 新建建立一个默认空白的Windows应用 ...

  6. http错误码大全

    响应码由三位十进制数字组成,它们出现在由HTTP服务器发送的响应的第一行.响应码分五种类型,由它们的第一位数字表示:1.1xx:信息,请求收到,继续处理2.2xx:成功,行为被成功地接受.理解和采纳3 ...

  7. Http StatuCode说明

    HTTP 200 - 文件被正常的访问 HTTP 302 - 临时重定向 HTTP 400 - 请求无效 HTTP 401.1 - 未授权:登录失败 HTTP 401.2 - 未授权:服务器配置问题导 ...

  8. LeetCode 55

    Jump Game Given an array of non-negative integers, you are initially positioned at the first index o ...

  9. hdu 4424 并查集

    思路:将边从大到小排序,判断向哪边连,能使总和最大. #include<map> #include<set> #include<cmath> #include< ...

  10. Centos下LAMP环境搭建

    CentOs下环境搭建.2015.04.15.0001 Author:周凯 Time: 2015.04.15 版本号:2015.04.15.0001 安装过程 安装apache yum install ...