pencat是模板 

<%  
set rs=server.createobject("adodb.recordset") 
sqltxt="select * from news"                        '读去新闻内容 
rs.open sqltxt,conn,3,2 
x=0 
do while rs.eof=false 
set rs1=server.createobject("adodb.recordset") 
sql="select * from mb where id=1"             '读去模版内容这样可以自由选择多个模版 
rs1.open sql,conn,3,2 

pencat=rs1("content") 

title=rs("d_title") '标题 
t=rs("d_addtime")     '加入时间 
ly=rs("d_author")   '来源 
content=rs("d_content")   '文章内容 
id=rs("d_id")              '唯一识别的编号 
zz=rs("d_editor")       '作者 

pencat=replace(pencat,"$TITLE$",title)      '把标签为$TITLE$的替换为现在的标题 
pencat=replace(pencat,"$TIME$",time)        '把标签为$TIME$的替换为现在的时间 
pencat=replace(pencat,"$FORM$",ly)             '把标签为$FORM$的替换为现在的来源 
pencat=replace(pencat,"$CONTENT$",content)      '把标签为$CONTENT$的替换为现在的文章内容 
pencat=replace(pencat,"$zz$",ly) 
t=replace(t,"-","")     '把时间中的- ： 空格全部取掉 
t=replace(t,":","") 
t=replace(t," ","") 
t=t&id              '用时间和ID命名文件名 
Set fso = Server.CreateObject("Scripting.FileSystemObject") 
Set fout = fso.CreateTextFile(server.mappath("2006/" & t &".htm"))      '建立一个后缀为 .htm文件 
fout.WriteLine pencat                 '把替换后的模版pencat写入HTM文件中 
fout.close                            
set fso = nothing 
url="2006/" & t &".htm"            '用时间命名HTM文件 
rs("D_LinkUrl")=url 
rs.update 
response.write x+1&".<a href='"&url&"' target='_blank'>" 
response.write title 
response.write "</a>　　　已经完成<br><br>" 
rs.movenext 
x=x+1 
loop 
%>