(转)asp生成htm教程

From:http://www.help-union.net/
1。在数据库中关于新闻列表中添加一个[url]字段,文本类型，用来描述生成的htm对应的文章。

2。在动态的基础上发表新闻的时候直接利用FSO生成HTM文件，并且把生成的新闻地址放入刚添加的那个字段中。

实际代码

生成文件名函数：（日期命名）
引用
function makefilename(fname)
fname = now()
fname = replace(fname,"-","")
fname = replace(fname," ","")
fname = replace(fname,":","")
fname = replace(fname,"PM","")
fname = replace(fname,"AM","")
fname = replace(fname,"上午","")
fname = replace(fname,"下午","")
makefilename=fname & ".htm"
end function
生成地址并且写入数据库
引用
'rs("E_Memo")为模板内容
fname = makefilename(now())

dddd = year(now()) & "年" & month(now()) & "月" & day(now()) & "日" & hour(now())&":"&minute(now())
pencat=rs("E_Memo")
pencat=replace(pencat,"lx",typename1)
pencat=replace(pencat,"Date",dddd)
if from="" then
pencat=replace(pencat,"From","动态网站制作指南")
else
pencat=replace(pencat,"From",from)
end if
if zznews="" then
pencat=replace(pencat,"Fname","SAYYES")
else
pencat=replace(pencat,"Fname",zznews)
end if
pencat=replace(pencat,"H_Title",title)
pencat=replace(pencat,"H_Memo",content)
pencat=replace(pencat,"labout",about)

Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set fout = fso.CreateTextFile(server.mappath(filePath& "/" & fname))
fout.WriteLine pencat
fout.close

set rs=server.createobject("adodb.recordset")
sql="select * from article where (newsid is null)"
rs.open sql,conn,1,3
rs.addnew
rs("title")=title
rs("path")=filepath
rs("content")=content
rs("Nfrom")=from
rs("selectpic")=selectpic
rs("typeid")=typeid
rs("typename")=typename1
rs("tjnews")=tjnews
rs("shenghe")=shenghe
rs("N_Fname")=fname
rs("zznews")=zznews
rs("about")=about
rs.update

articleid=rs("newsid")
rs1.close
set rs1=nothing
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
3。首页调用即读取数据库中的列表生成htm