关闭

asp生成html页面的模板类

596人阅读 评论(0) 收藏 举报
一直就想把页面静态化的功能实现
正好现在的项目用得到,写了一个简单的类
过几天再细化一下
 
<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>
0
0

查看评论
* 以上用户言论只代表其个人观点,不代表CSDN网站的观点或立场
    个人资料
    • 访问:289084次
    • 积分:4362
    • 等级:
    • 排名:第6866名
    • 原创:100篇
    • 转载:203篇
    • 译文:1篇
    • 评论:101条
    文章分类
    最新评论