asp生成html页面的模板类

一直就想把页面静态化的功能实现
正好现在的项目用得到,写了一个简单的类
过几天再细化一下
 
<script type="text/javascript">google_ad_client = "pub-2048279401139630";google_ad_slot = "8856771542";google_ad_width = 728;google_ad_height = 90;document.write("<s"+"cript type='text/javascript' s"+"rc='http://pagead2.googlesyndication.com/pagead/show_ads"+"."+"js'></scr"+"ipt>");</script>

<%
'-------------------------------------------------------
'模板类
'blindcat
'2006/07/12
'-------------------------------------------------------

Class cls_Template
    Private fso
    Private html_in
    Private html_out
    Private htmlcode
    

    '类初始化
    Private Sub Class_Initialize()
        Set fso=Server.CreateObject("Scripting.FileSystemObject") 
    End Sub

    
    '载入模板文件
    Public Sub loadTemplate(template)
        On Error Resume Next
        Set html_in=fso.OpenTextFile(Server.MapPath(template))  
        htmlcode = html_in.ReadAll
        html_in.close
        Set html_in = Nothing  
    End Sub

    '替换模板内容
    Public Sub replaceTag(sourceTag,targetTag)
        htmlcode = Replace(htmlcode,sourceTag,targetTag)
    End Sub
    
        
    '生成html文件
    Public function makeHtml(htmlPath,filename)
        makeHtml = false
        'On Error Resume Next
        Set fso = Server.CreateObject("Scripting.FileSystemObject")
        if htmlpath<>"" then
            if Not fso.FolderExists(Server.MapPath(htmlpath))then
                fso.CreateFolder Server.MapPath(htmlPath)
            end if
            if Not fso.FolderExists(Server.MapPath(htmlpath&"img/")) then
                fso.CopyFolder Server.MapPath("/template"),Server.MapPath(htmlpath),True
                'fso.CopyFile Server.MapPath("cls_template.asp"),Server.MapPath("tttt.asp"),True
            end if
        end if    
        Set html_out = fso.CreateTextFile(Server.MapPath(htmlPath&filename))
        html_out.Write htmlcode
        html_out.close
        Set html_out = Nothing
        makeHtml = true
    End Function


    Private Sub class_terminate()
        set fso=Nothing 
    End Sub 

end Class
%>
<<script type="text/javascript">google_ad_client = "pub-2048279401139630";google_ad_slot = "8856771542";google_ad_width = 728;google_ad_height = 90;document.write("<s"+"cript type='text/javascript' s"+"rc='http://pagead2.googlesyndication.com/pagead/show_ads"+"."+"js'></scr"+"ipt>");</script>"");