ASP生成Html

<%
function fsow(filename)                                         //建立一个过程
set mfo=Server.cr&#101;ateObject("Scripting.FileSystemObject")        //创建一个fso对象
set rtf=mfo.OpenTextFile(server.mappath(filename),1)           //打开文件
body=rtf.readall                                                //读取文件的所有内容
end function
%>
<%if request("Type") = "add" then%>
<%
dim dtime,filename1,sql1,rs1
okfile=fsow("../MB.html")                                //调用fsow
dtime=now()                                        //获取时间
filename1=year(now)&month(now)&day(now)&hour(now)&minute(now)&second(now)& ".html" //用时间作为要生成的文件名字
file1=server.mappath( "../News" ) //文件保存的地址
file2=file1&"\"&filename1       //文件保存的地址 加文件名字
News_Title=request.form("News_Title")        //获取变量
News_Class=request.form("Class")
News_Body=request.form("News_Body")
if request("True_Index") = "" then
True_Index = "No"
else
True_Index = "Yes"
end if
News_Date=date()
set rs=Server.cr&#101;ateObject("adodb.recordset")  //创建一个recordset对象
strsql="sel&#101;ct * from WEBNEWS"
rs.open strsql,conn,3,3
rs.addnew
rs("News_Title")=News_Title
rs("News_Class")=News_Class
rs("News_Body")=News_Body
rs("True_Index")=True_Index
rs("News_Date")=News_Date
rs("File_Name")=filename1
rs.up&#100;ate
rs.close
set rc=Server.cr&#101;ateObject("adodb.recordset")
sql="sel&#101;ct * from WEBNEWS wh&#101;re File_Name = '"&filename1&"'"
rc.open sql,conn,3,3
News_ID = rc("ID")
okfile = replace(okfile,"News_ID",News_ID)  //替换内容
okfile = replace(okfile,"News_Title",News_Title)
okfile = replace(okfile,"News_Body",News_Body)
okfile = replace(okfile,"News_date",News_date)
Set fso = Server.cr&#101;ateObject("Scripting.FileSystemObject")
Set fout = fso.cr&#101;atetextfile(file2,true)
fout.writeline okfile   //写入内容
fout.close
%>

说一下思路~~ 这是利用模版 生成 html

大体思路是 读取摸版 然后把获取的变量存入数据库 然后再把数据库里的内容 写到摸版

里面用到了 fso知识 大家不懂的话 看看 我以前发的关于fso的文章

关注微信公众号,手机阅读更方便: 程序员的阅微草堂

知识共享许可协议莿鸟栖草堂CFC4N 创作,采用 知识共享 署名-非商业性使用-相同方式共享(3.0未本地化版本)许可协议进行许可。基于http://www.cnxct.com上的作品创作。转载请注明转自:ASP生成Html

发表评论

电子邮件地址不会被公开。 必填项已用*标注

此站点使用Akismet来减少垃圾评论。了解我们如何处理您的评论数据