|
|
主题: 小田，我不懂FSO,请有时间再看看这个贴子啊。。。
|
zgqzgq
职务：普通成员
等级：1
金币：0.0
发贴：136
注册：2001/11/7 15:36:46
|
#12002/10/30 9:48:19
<%
Dim fname
Dim filepath
fname = makefilename(now()) '文件名
filepath=("../newsfile/"&fname)
%>
我就想把newsfile换成当前日期，最好把原代码写在这里啊小田。回头还有好多问题要问你的啊，谁让你是专家呢，哈。。。
真的谢谢你了！
|
5D荣誉斑竹
职务：普通成员
等级：2
金币：10.0
发贴：710
注册：2001/10/24 18:34:42
|
#22002/10/30 10:53:50
名称可以这样：folderName=FormatDateTime(Now(),2)
<%
Dim fname
Dim filepath
Dim folderName
fname = makefilename(now()) '文件名
folderName=FormatDateTime(Now(),2)
filepath=("../"&folderName&"/"&fname)
'这里要先把文件夹建好
set myFSO=Server.CreateObject("Scripting.FileSystemObject")
myFSO.CreateFolder(Server.MapPath(folderName))
%>
编辑历史:[这消息被guiTar小田编辑过(编辑时间2002-10-30 11:13:27)]
|
zgqzgq
职务：普通成员
等级：1
金币：0.0
发贴：136
注册：2001/11/7 15:36:46
|
#32002/10/30 11:14:43
非常地感谢！！！！！！！！！！！！！！！！！！！！
我再试试看。
|
5D荣誉斑竹
职务：普通成员
等级：2
金币：10.0
发贴：710
注册：2001/10/24 18:34:42
|
#42002/10/30 11:25:48
对了，仔细一点的话，还应该先判断一下文件夹是否已经存在！
<%
Dim fname
Dim filepath
Dim folderName
fname = makefilename(now()) '文件名
folderName=FormatDateTime(Now(),2)
filepath=("../"&folderName&"/"&fname)
'这里要先把文件夹建好
set myFSO=Server.CreateObject("Scripting.FileSystemObject")
'判断是否文件夹已经存在
if myFSO.FolderExists(Server.MapPath(folderName))=false then
myFSO.CreateFolder(Server.MapPath(folderName))
end if
%>
注意，这里的folderName既是文件夹的名字也是文件夹的路径，如果想创建在另外的地方的话，可以是： folderName=FormatDateTime(Now(),2) folderName="../"&folderName '前面随便你放路径
|
zgqzgq
职务：普通成员
等级：1
金币：0.0
发贴：136
注册：2001/11/7 15:36:46
|
#52002/10/30 11:26:31
刚才我传上去了，服务器报错啊小田。在此之前在服务器上你做的新闻系统一切正常。这是怎么回事？不能创建目录吗？我又得烦你了。
我是照原码贴在add.asp里的对应位置上的啊。
|
zgqzgq
职务：普通成员
等级：1
金币：0.0
发贴：136
注册：2001/11/7 15:36:46
|
#62002/10/30 11:45:07
我添加新闻时说无法显示该页，服务器错误。
|
5D荣誉斑竹
职务：普通成员
等级：2
金币：10.0
发贴：710
注册：2001/10/24 18:34:42
|
#72002/10/30 13:21:08
不是直接帖上去就行的，要自己改的，你可以多试试，方法和语句都写上了，再不行我可没办法喽！
|
zgqzgq
职务：普通成员
等级：1
金币：0.0
发贴：136
注册：2001/11/7 15:36:46
|
#82002/10/30 14:42:44
好的好的，我多试试看，万一不行就只好把它们放在固定的文件夹内了。
真诚地谢谢你！！
|
