对于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- 自定义UIView （测试block和代理）

    #import <UIKit/UIKit.h> typedef void(^compeletionHandler) (NSInteger selectButtonIndex); @clas ...

  2. javascript,jquery(闭包概念)

    (function($){     $("div p").click(...);})(jQuery);    就是等于function tempFunction($){  //创建 ...

  3. jquery plugins —— Chosen

    官网地址:http://harvesthq.github.io/chosen/ Chosen (v1.4.2) Chosen has a number of options and attribute ...

  4. page74-泛型可迭代的基础集合数据类型的API-Bag+Queue+Stack

    [泛型可迭代的基础集合数据类型的API] 背包:就是一种不支持从中删除元素的集合数据类型——它的目的就是帮助用例收集元素并迭代遍历所有收集到的元素.(用例也可以检查背包是否为空, 或者获取背包中元素的 ...

  5. 如何取消IE“已限制此网页运行可以访问计算机的脚本或ActiveX控件

    在本地调试html页,如果其中包含js或flash,IE经常会提示“IE已限制此网页运行可以访问计算机的脚本或ActiveX控件”.虽然IE出于安全考虑阻止本地脚本运行这个做法没错,但作为程序开发者来 ...

  6. centos 6.5 安装lnmp(linux+nginx+mysql+php)

    参考:http://www.cnblogs.com/AloneSword/archive/2013/03/18/2966750.html (总结并简要) 一安装cmake wget -c http:/ ...

  7. C# 简单邮件群发通用类

    public static class Email { /// <summary> /// 发件人 /// </summary> public static string ma ...

  8. disucz!NT 3.5.0 验证码点击不能变化只是样式变化

    来博客园这么久了,第一次写博客啊!公司有个论坛10年没动了,是discuz!NT 3.5.0版本的,由于验证码不能变化老是被人刷.网上找了很多资料根本没有.可能有同行下次也会遇到这样的问题,我就把我的 ...

  9. DWZ (JUI) 教程 根据ID刷新 dialog

    reloadDialog:function(dialogId){ var dialog = $("body").data(dialogId); if(dialog){ $.pdia ...

  10. mvc路由规则相关

    1,可以创建多条路由规则,每条路由规则的name属性不能相同 2,路由规则是有顺序的,如果被前面的规则匹配了,那么后面的规则就没有机会了 下面是一条路由规则的代码 routes.MapRoute( n ...