利用模板技術把asp轉換成html

<%
sub asp2htm()
'定義Recordset對象
Set rs=Server.CreateObject("ADODB.Recordset")
'設置rs的ActiveConnection屬性，綁定到連接
Set rs.ActiveConnection = Conn
'設置游標類型
rs.CursorType = 3
sql="select * from article where title='"&title&"'"
rs.open sql
do while not rs.eof
ArticleID=rs("ArticleID")
title=rs("title")
author=rs("Author")
copyfrom=rs("copyfrom")
hits=rs("hits")
updatetime=rs("updatetime")
editor=rs("editor")
content=rs("content")
Key=rs("key")
content = replace(content,"../UploadFiles/","../../UploadFiles/") '解決圖片路徑問題
'title = Request("title") '獲取標題
'content = Request("content") '獲取內容
'path = Server.MapPath("html") '保存路徑
tnow = now()
fname = year(tnow)&FormatNumber(month(tnow)/100,2,Flase)&FormatNumber(day(tnow)/100,2,Flase)&FormatDateTime(tnow,3)&ArticleID
fname = replace(fname,".","")
fname = replace(fname,":","")
fname = fname & ".htm" '生成HTML文件的文件名

Set fso = CreateObject("Scripting.FileSystemObject")
Set ftemp = fso.OpenTextFile(Server.MapPath("asp2htm/templates.txt"), 1)
TempData = ftemp.ReadAll '讀取模板內容
ftemp.Close

TempData = Replace(TempData,"#title#",title) '寫入標題
TempData = Replace(TempData,"#content#",content) '寫入內容
TempData = Replace(TempData,"happig",author)
TempData = Replace(TempData,"本站原創",copyfrom)
'TempData = Replace(TempData,"#click#",hits)
TempData = Replace(TempData,"2006-11-9 15:56:13",updatetime)
TempData = Replace(TempData,"admin",editor)
TempData = Replace(TempData,"7744",articleid)
TempData = Replace(TempData,"|asp,自動生成,html,優化|",Key)
TempData = Replace(TempData,"7744",ArticleID)

Set fhtml = fso.CreateTextFile(path&"\"&fname)
fhtml.WriteLine TempData '保存文件
fhtml.Close
Set fso = nothing

sql="update Article set content='"&fname&"' where articleid="&cint(articleid)
cmd(sql)
rs.movenext
response.Write("添加"&title&"成功<br>")
response.Clear()
Response.Flush()
loop
call cdb(rs)
'將信息存入數據庫略。
end sub
%>