生成HTML代码

网络整理 - 08-29

以下是处理表单提交时

同时生成静态页

<%
''生成功能处理第一部开始
dim dtime,filename1,sql1,rs1
okfile=fsow("movie_mb.asp") '模板文件名
dtime=date()
filename1=year(now)&month(now)&day(now)&hour(now)&minute(now)&second(now)& ".html"
file1=server.mappath( "../piao" ) '文件夹
file2=file1&"\"&filename1
''生成处理第一部结束

moviename=request.form("moviename")
playdate=request.form("playdate")
country=request.form("country")
piao=request.form("piao")
EN_name=request.form("EN_name")
Director=request.form("Director")
leading=request.form("leading")
language=request.form("language")
flag=request.form("flag")
grade=request.form("grade")
hours=request.form("hours")
mcolor=request.form("mcolor")
types=request.form("types")
intro=request.form("intro")
linkurl=request.form("linkurl")

Add_Time=now()
set rs=Server.createObject("adodb.recordset")
strsql="select * from piaofang"
rs.open strsql,conn,3,3
rs.addnew
rs("Add_Time")=Add_Time
rs("moviename")=moviename
rs("playdate")=playdate
rs("country")=country
rs("piao")=piao
rs("EN_name")=EN_name
rs("Director")=Director
rs("leading")=leading
rs("language")=language
rs("flag")=flag
rs("grade")=grade
rs("hours")=hours
rs("mcolor")=mcolor
rs("types")=types
rs("intro")=intro
rs("linkurl")=linkurl
rs("File_url")=filename1
rs.update
rs.close
set rc=Server.createObject("adodb.recordset")''生成第二部开始创建文件名
sql="select * from piaofang where file_url = '"&filename1&"'"
rc.open sql,conn,3,3
iid = rc("ID")
okfile = replace(okfile,"#iid",iid) '#Idd等为模板中调用的标签注意这里是区分大小写的
okfile = replace(okfile,"#moviename",moviename)
okfile = replace(okfile,"#playdate",playdate)
okfile = replace(okfile,"#country",country)
okfile = replace(okfile,"#piao",piao)
okfile = replace(okfile,"#EN_name",EN_name)
okfile = replace(okfile,"#Director",Director)
okfile = replace(okfile,"#leading",leading)
okfile = replace(okfile,"#language",language)
okfile = replace(okfile,"#flag",flag)
okfile = replace(okfile,"#grade",grade)
okfile = replace(okfile,"#hours",hours)
okfile = replace(okfile,"#mcolor",mcolor)
okfile = replace(okfile,"#types",types)
okfile = replace(okfile,"#intro",intro)
okfile = replace(okfile,"#linkurl",linkurl)
okfile = replace(okfile,"#Add_Time",Add_Time)
Set fso = Server.CreateObject("Scripting.FileSystemObject") 'FSO 生成文件
Set fout = fso.Createtextfile(file2,true)
fout.writeline okfile
fout.close
%>