简单ASP静态生成代码

<%
'---------------------------------
'---读取模板内容函数--------------
'---------------------------------
function readfile(jaes_mb)
dim stm,jaes_mb1
jaes_mb1=server.mappath(jaes_mb)
set stm=server.createobject("ADODB.Stream")
stm.charset="gb2312"
stm.open
stm.loadfromfile jaes_mb1
readfile=stm.readtext
set stm=nothing
end function
'----------------------------------
'-----用Stream生成html文件--------
'----------------------------------
sub create_u(file_name,filetype)
    dim objStream
Set objStream = Server.CreateObject("ADODB.Stream")
    With objStream
    .Open
    .Charset = "gb2312"
    .Position = objStream.Size
    .WriteText=filetype
    .SaveToFile server.mappath(file_name),2
    .Close
    End With
    Set objStream = Nothing
end sub

Dim j_title,j_time,j_content,j_tempstr

'读取html静态模板
j_tempstr=readfile("temp/01.html")  

'数据赋值
j_title="标题"
j_time="作者:风雨无阻&nbsp;&nbsp;时间:2008-8-2&nbsp;&nbsp;点击:122"
j_content="内容"

'替换数据
j_tempstr=replace(j_tempstr,"{$jaes_title}",j_title)
j_tempstr=replace(j_tempstr,"{$jaes_time}",j_time)
j_tempstr=replace(j_tempstr,"{$jaes_content}",j_content)

'生成html静态页
call create_u("html/02.html",j_tempstr)

'提示成功
response.write("<a href='html/02.html'>生成成功!</a>")

'*********************************************************************
' 以上文件夹(如"temp","html"等文件夹)没有则要自己创建,否则操作将失败.
'*********************************************************************

%>