<%
function fsow(filename) //建立一个过程
set mfo=Server.createObject("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.createObject("adodb.recordset") //创建一个recordset对象
strsql="select * 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.update
rs.close
set rc=Server.createObject("adodb.recordset")
sql="select * from WEBNEWS where 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.createObject("Scripting.FileSystemObject")
Set fout = fso.createtextfile(file2,true)
fout.writeline okfile //写入内容
fout.close
%>
说一下思路~~ 这是利用模版 生成 html
大体思路是 读取摸版 然后把获取的变量存入数据库 然后再把数据库里的内容 写到摸版
里面用到了 fso知识 大家不懂的话 看看 我以前发的关于fso的文章
0 评论.