====关于fso的问题请大家帮忙====
做了个动态生成静态的新闻发布 但生出来的页面都是空白的 好象没找到模板 希望大家帮忙看看错在哪里了 谢谢
<!--#include file="../conn.asp" -->
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<%if request("Type") = "add" then%>
<%
filename1=year(now)&month(now)&day(now)&hour(now)&minute(now)&second(now)& ".html"
lanmu=request.form("lanmu")
yetai=request.form("yetai")
zhuanti=request.form("zhuanti")
titletype=request.form("titletype")
Title=request.form("Title")
wtitle=request.form("wtitle")
ftitle=request.form("ftitle")
titlep=request.form("titlep")
keytxt=request.form("keytxt")
Author=request.form("Author")
source=request.form("source")
outurl=request.form("outurl")
hotdesc=request.form("hotdesc")
guding=request.form("guding")
ishot=request.form("ishot")
hit=request.form("hit")
addtime=request.form("addtime")
Content=request.form("Content")
'template=request.form("template")
set rs=Server.createObject("adodb.recordset")
strsql="select * from news"
rs.open strsql,conn,3,3
rs.addnew
rs("newsclass")=lanmu
rs("newsfolder")=yetai
rs("ztfolder")=zhuanti
rs("titletype")=titletype
rs("Title")=Title
rs("wtitle")=wtitle
rs("ftitle")=ftitle
'rs("titlep")=titlep
rs("keytxt")=keytxt
rs("Author")=Author
rs("source")=source
rs("outurl")=outurl
rs("hotdesc")=hotdesc
rs("guding")=guding
rs("ishot")=ishot
rs("hits")=hit
rs("addtime")=addtime
rs("Content")=Content
rs("File_Name")=filename1
%>
<%
okfile=("temple/3C/news_02.htm")
file1=server.mappath( "temple\3C" )
Set fso = Server.CreateObject("Scripting.FileSystemObject")
'file1=server.mappath( "help_html" )
'file2=file1&"\"&filename1
set rs1=Server.createObject("adodb.recordset")
strsql="select * from newsfolder where id="&rs("newsfolder")
rs1.open strsql,conn,1,1
path3=trim(rs1("name"))
path=split(rs("addtime")," ")
path2=trim(rs("id"))
set rsa=Server.createObject("adodb.recordset")
strsql="select * from news where File_Name = '"&filename1&"'"
rsa.open strsql,conn,3,3
okfile = replace(okfile,"Title",Title)
okfile = replace(okfile,"Content",Content)
okfile = replace(okfile,"addtime",addtime)
'fso.writeline okfile
'fso.close
if not fso.FolderExists(server.MapPath("..\"&path3)) then
fso.createFolder(server.MapPath("..\"&path3))
end if
if not fso.FolderExists(server.MapPath("..\"&path3&"\"&path(0))) then
fso.createFolder(server.MapPath("..\"&path3&"\"&path(0)))
end if
Set fout= fso.createTextFile (server.MapPath("..\"&path3&"\"&path(0)&"\"&filename1&"") , true)
fout.writeline okfile
fout.close
rs.update
rs.close
%>
<script language="JavaScript">
<!--
var message;
message="发布成功!"
window.alert(message);
self.navigate("addarticle.asp")
//-->
</script>
<%end if%>