为什么GetFile没有响应啊?

FourthParty 2003-10-16 05:23:36
Set FSO = CreateObject("Scripting.FileSystemObject")
If FSO.FileExists(g_strSendFile) Then
Set TempFile = FSO.GetFile(g_strSendFile)
End If

其中g_strSendFile是文件的完整路径(D:\Test\test.mid)....
...全文
44 9 打赏 收藏 转发到动态 举报
写回复
用AI写文章
9 条回复
切换为时间正序
请发表友善的回复…
发表回复
FourthParty 2003-10-17
  • 打赏
  • 举报
回复
不好意思,可能是IIS有问题,换其他所有的机器都可以...
就那台以前IIS出过毛病的机器不行...
谢谢各位.....结帖!!!
xxrl 2003-10-17
  • 打赏
  • 举报
回复
看不出来有什么错误。
FourthParty 2003-10-17
  • 打赏
  • 举报
回复
To topmonkey:
我就是用那样做的,但页面一调用那个函数就停在那里不动了...最后报超时错误.
是不是IIS要做什么设置呀?

如果浏览localhost没有问题...

topmonkey 2003-10-16
  • 打赏
  • 举报
回复
刚才发错了

Function ShowFileSize(filespec)
Dim fso, f, s
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFile(filespec)
s = UCase(f.Name) & " 大小为 " & f.size & " 字节。"
ShowFileSize = s
End Function

'这是M$的例程
'© 2000 Microsoft Corporation 版权所有。保留所有权利。使用规定。
topmonkey 2003-10-16
  • 打赏
  • 举报
回复
Function ShowFileSize(filespec)
Dim fso, f, s
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFile(filespec)
s = UCase(f.Name) & " 大小为 " & f.size & " 字节。"
ShowFolderSize = s
End Function

'这是M$的例程
'© 2000 Microsoft Corporation 版权所有。保留所有权利。使用规定。
qdubit 2003-10-16
  • 打赏
  • 举报
回复
好像没定义好呀
double22822 2003-10-16
  • 打赏
  • 举报
回复
var fso, f;
fso = new ActiveXObject("Scripting.FileSystemObject");
f = fso.GetFile(filespec);
FourthParty 2003-10-16
  • 打赏
  • 举报
回复
To topmonkey:
接下来是Size = TempFile.Size
问题是GetFile()无法返回...
调用这段代码,页面就停在那里...

另外,在本机可以...远端访问就不行....
topmonkey 2003-10-16
  • 打赏
  • 举报
回复
不知道楼主想要GetFile做何响应呢?

28,390

社区成员

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧