小弟正做一个把数据库内容写成静态htm页的新闻系统，当然要用到FSO，不过程序在本地测试没问题，传到服务器就不行了（服务器是支持FSO的，原先我在上面试过一个类型的程序），我估计是FSO里的路径设置问题，小弟是个菜鸟还请各位高手们指教。

我的代码是：

<%
Dim N_Title
Dim N_Content
Dim N_Date
Dim fname
Dim filepath
fname = makefilename(now()) '文件名

N_Title=Request.Form("texTitle")
N_Content=Request.Form("texContent")
N_Date=Request.Form("h_Date")

filepath=Server.MapPath("newsfile\"&fname)  ' 路径,newsfile文件夹已存在的

pencat=rs.Fields.Item("E_Meno").Value  '新闻模板的数据库记录
pencat=replace(pencat,"E_Title",N_Title)
pencat=replace(pencat,"E_Content",N_Content)
pencat=replace(pencat,"E_Date",N_Date)
'把数据动态内容写成静态文件
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set fout = fso.CreateTextFile(filepath)
fout.WriteLine pencat
fout.close
%>

应该不会的，我上传测试的那个新闻程序也是用的“\”

我上传测试的程序是用相对路径的！！

前天还运行的很好,FSO还有呢,可是今天运行的时候就告诉不能创建SCRIPTING.FILESYSTEMOBJECT,总是错误,还有'Scripting.Dictionary' 也不能创建,这些好象都是IIS自带的吧,为什么我这会有问题不能创建呢???而且前些天还可以.
我用探针发现好多IIS自带的组件都不能用,这是不是在IIS那里面配置啊,如果是的话在那里??如果不是,那么改如何解决这问题???

急需,请指教!!!谢先!

deepdark在上个帖子中说

引用:

---

makefilename(now())

检查这个函数,你怎么改的时间获得文件名的?
因为本地时间一般是yyyy-MM-dd的格式.
而NT服务器的时间格式一般是yyyy/MM/dd
注意兼容.

如果还是不对的话,贴出错误信息

---

这个函数你看看

<%
function makefilename(fname)
  fname = now()
  fname = replace(fname,"-","")
  fname = replace(fname," ","") 
  fname = replace(fname,":","")
  fname = replace(fname,"PM","")
  fname = replace(fname,"AM","")
  fname = replace(fname,"上午","")
  fname = replace(fname,"下午","")
  makefilename=fname & ".htm"
end function 
%>