UC知道求救!!asp高手进!!
来源：百度知道 编辑：UC知道 时间：2024/07/02 01:21:10
Set f = fso.GetFolder(Server.MapPath("/")&root&folderspec)是以下<% %>中的一句代码,以下是一个网络硬盘的一小部分代码,如果我将该网络硬盘的所有代码放在一个文件夹中定义为一个站点就可以运行,但当我将该文件夹放在另外的一个站点中时,当我运行时,就会出现找不到路径的错误提示,我知道一定是"Set f = fso.GetFolder(Server.MapPath("/")&root&folderspec)"这里有问题,请各位朋友可以详细给我解释一下这句话吗?以下代码就不必解释了,如果大家有需要的话,就看看吧,谢谢.
<%
Sub ShowFolderList(folderspec)
Dim fs, f, f1, fc, s, schild, p, fsize, fsizedy
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder(Server.MapPath("/")&root&folderspec)
Set fc = f.SubFolders
For Each f1 in fc
s = f1.name
p = f1.DateLastModified
if f1.Size>2000 then
if f1.Size>2000000 then
fsize = round(f1.Size/1048576,1)
fsizedy=" M"
else
fsize = round(f1.Size/1024,1)
fsizedy=" K"
end if
else
fsize = f1.Size
f
<%
Sub ShowFolderList(folderspec)
Dim fs, f, f1, fc, s, schild, p, fsize, fsizedy
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder(Server.MapPath("/")&root&folderspec)
Set fc = f.SubFolders
For Each f1 in fc
s = f1.name
p = f1.DateLastModified
if f1.Size>2000 then
if f1.Size>2000000 then
fsize = round(f1.Size/1048576,1)
fsizedy=" M"
else
fsize = round(f1.Size/1024,1)
fsizedy=" K"
end if
else
fsize = f1.Size
f
可能有以下地方错误：
1. 指定的路径不存在
2. IIS里未启用‘父路径'
3. 服务器权限
应该是楼上兄弟说的是没有启用“父路径”的原因，在IIS里设置一下就好了。