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
%>
