ASP生成静态页面

<%
'==============================================
'FileName: asptohtml.asp
'Author: Ustonet [AT] Gmail.com
'Function: 动态页面生成HTML静态文件，文件自动命名
'Update: 2006.12.14
'==============================================

'转换日期时间函数
function chan_time(shijian)
    s_year=year(shijian)
    if len(s_year)=2 then s_year="20"&s_year
    s_month=month(shijian)
    if s_month<10 then s_month="0"&s_month
    s_day=day(shijian)
    if s_day<10 then s_day="0"&s_day
    s_hour=hour(shijian)
    if s_hour<10 then s_hour="0"&s_hour
    s_minute=minute(shijian)
    if s_minute<10 then s_minute="0"&s_minute
    chan_time=s_year & s_month & s_day & s_hour & s_minute
end function

'转换日期时间函数
function chan_data(shijian)
    s_year=year(shijian)
    if len(s_year)=2 then s_year="20"&s_year
    s_month=month(shijian)
    if s_month<10 then s_month="0"&s_month
    s_day=day(shijian)
    if s_day<10 then s_day="0"&s_day
    chan_data=s_year & s_month & s_day
end function 

'转换日期时间函数
function chan_file(shijian)
    s_month=month(shijian)
    if s_month<10 then s_month="0"&s_month
    s_day=day(shijian)
    if s_day<10 then s_day="0"&s_day
    s_hour=hour(shijian)
    if s_hour<10 then s_hour="0"&s_hour
    s_minute=minute(shijian)
    if s_minute<10 then s_minute="0"&s_minute
    s_ss=second(shijian)
    if s_ss<10 then s_ss="0"&s_ss
    chan_file = s_month & s_day & s_hour & s_minute & s_ss
end function

function get_pass(pass)
    pass=cstr(pass)
    pass=replace(pass," ","")
    pass=replace(pass," ","")
    pass=replace(pass,"-","")
    pass=replace(pass," ","")
    pass=replace(pass,":","")
    pass=replace(pass,".","")
    pass=replace(pass,"+","")
    pass=replace(pass,"_","")
    pass=replace(pass,"<","")
    pass=replace(pass,">","")
    pass=replace(pass,"!","")
    pass=replace(pass,"@","")
    pass=replace(pass,"#","")
    pass=replace(pass,"$","")
    pass=replace(pass,"%","")
    pass=replace(pass,"^","")
    pass=replace(pass,"&","")
    pass=replace(pass,"*","")
    pass=replace(pass,"(","")
    pass=replace(pass,")","")
    pass=replace(pass,"=","")
    pass=replace(pass,"","")
    pass=replace(pass,"/","")
    pass=replace(pass,"|","")
    get_pass=pass
end function

Public function htmlcode(content)
if content<>"" then
        content=replace(content,"&amp;","&")
        content=replace(content,"&lt;","<")
        content=replace(content,"&gt;",">")
        content=replace(content,"&quot;","'")
        content=replace(content,"  ","&nbsp;&nbsp;")
        content=replace(content,"&lt;P&gt;","<br>")
        content=replace(content,"&lt;/P&gt;","")
    end if
    htmlcode=content
End Function

'Sub asptohtml(News_Title,News_Date,News_Hits,News_From,News_Content)
Public Function asptohtml(News_Title,News_Date,News_Hits,News_From,News_Content)
    '// 创建文件系统对象 
    Set fso=Server.CreateObject("Scripting.FileSystemObject")
    '// 打开网页模板文件，读取模板内容 
    Set htmlwrite=fso.OpenTextFile(Server.MapPath("temp.html")) 
    msg=htmlwrite.ReadAll 
    htmlwrite.close

    msg=Replace(msg,"$News_Title$",News_Title)
    msg=Replace(msg,"$News_Date$",News_Date)
    msg=Replace(msg,"$News_Hits$",News_Hits)
    msg=Replace(msg,"$News_From$",News_From)
    msg=Replace(msg,"$News_Content$",htmlcode(News_Content))
    
    Set fs=Server.CreateObject("Scripting.FileSystemObject")
    all_tree2=server.mappath("int")&""&chan_data(now)
    if (fs.FolderExists(all_tree2)) then'判断今天的文件夹是否存在
    
    else
        fs.CreateFolder(all_tree2)
    end if   
    pass=chan_file(now)
    randomize  '使用系统计时器来初始化乱数产生器
    pass=rnd(pass)
    pass=get_pass(pass)
    pass=left(pass,10) 
    
    file1=pass
    files=file1&".txt"
    filez=all_tree2&""&files 
    
    set ts = fs.createtextfile(filez,true) '写文件
    for z=1 to len(msg)
        write_now=mid(msg,z,1)
        ts.write(write_now)
    next
    ' ts.writeline(all_msg)
    ts.close
    set ts=nothing    '文件生成
    
    if err.number<>0 or err then
        'response.Write("发生错误。")
    else
        'response.Write("HTML文件生成完成。")
    end if
    
    Set MyFile = fs.GetFile(filez) 
    all_tree2=server.mappath("int")&""&chan_data(now)
    if (fs.FolderExists(all_tree2)) then
    else
        fs.CreateFolder(all_tree2)
    end if
    
    MyFile.name= left(MyFile.name,len(MyFile.name)-4)&".html"
    '//返回文件名
    asptohtml="int/"&chan_data(now)&"/"&MyFile.name
    
    set MyFile=nothing 
    set fs=nothing
    set fdir=nothing
    '// 释放文件系统对象 
    set htmlwrite=Nothing 
    set fso=Nothing 
End Function
%>