ASP+模板生成Word、Excel、html的代码第1/2页(4)

   templatechar="gb2312"                      '模板文本的编码
   filepath="files/word/"                     '生成文件保存的路径，当前目录请留空，其他目录，路径必须以“/”结尾
   filename="Doc1.doc"                           '即将生成的文件名
   CreateMultiFolder(filepath)                '这一句用来判断文件夹是否存在，没有则自动创建，支持n级目录
   fileCharset="gb2312"                       '打算生成的文本编码
'读取指定的模板内容
templateContent=ReadFromTextFile(templateName,templatechar)   
'以下就交给你来替换模板内容了
templateContent=replace(templateContent,"{$websiteName}","蓝色理想")
templateContent=replace(templateContent,"{$userName}","幸福的子弹")
templateContent=replace(templateContent,"{$now}",Now())
'其他内容......
'最终调用函数来生成文件         
Call WriteToTextFile(filepath&filename,templateContent,fileCharset)   
'最后关闭adodb.stream对象
stm.flush
stm.Close
set stm=nothing
downloadFile(filepath&filename)
%>