<%
'作者：赵良杰,本人菜鸟一个，希望志同道合的朋友一起讨论，QQ：893247010
'table是表名，id是ID值。
'使用请修改mbPath，htmlPath，数据库字段。mbPath和htmlPath为模板地址和输出html地址。
'获取刚插入数据ID方法，set rst=conn.execute("SELECT @@IDENTITY AS id")，变量=rst（“id”）
sub toHtml(table,id)
dim mbPath,htmlPath
mbPath="html\zxmb.html"
htmlPath="html\"
'读出模板文件
set fso=server.CreateObject("scripting.filesystemobject")
set fs=fso.opentextfile(mbPath)
mbCont=fs.readall
fs.close
'打开数据库
set rs=server.CreateObject("adodb.recordset")
sql="select * from "&table&" where id="&id&""
rs.open sql,conn,1,1
title=rs("i_title")
bt=rs("i_title")
cont=rs("i_cont")
rs.close
set rs=nothing
'写入文件
html=replace(mbCont,"{title}",title)
html=replace(html,"{zxTitle}",bt)
html=replace(html,"{zxCont}",cont)
set fs=fso.CreateTextFile(htmlPath&"zx_"&id&".html")
fs.write html
fs.close
end sub
%>