文件显示问题 - 编程论坛

#2

yms1232008-04-07 16:33

Dim FSO,file,folder
Set FSO=Server.CreateObject("Srcipting.FileSystemObject")'创建FSO对象
Set folder=FSO.getFolder("C:\")'定位到C盘
'遍历c盘根目录所有文件
For each file in folder.files
Response.Write file.name
Next

#3

edevices2008-04-07 16:36

服务器对象错误 'ASP 0177 : 800401f3'

Server.CreateObject 失败

报以上错误！

#4

edevices2008-04-07 16:42

我有这样的代码：
<html>
<head>
<title></title>
<style type="text/css">
.STYLE1 {font-family: "隶书";font-size: 12px;}
</style></head>
<body >
<p align="center">　</p><p class="STYLE1">
<%
testfolder="temp"
set sy=CreateObject("Scripting.FileSystemObject")
set s=sy.GetFolder(server.maPPATH(testfolder))
set fs=s.subfolders
response.write"<h2></h2><blockquote>"
for each whatever in fs
response.write"<A HREF='"
response.write request.servervariables("Script_name")
response.write"?pathh="&whatever.name
response.write"'>"
response.write whatever.name &" - "& whatever.datecreated
response.write"</A><br>"
Next
response.write "</blockquote>"
response.write"<h2>文件</h2><blockquote>"
set fc=s.files
for each whatever in fc
response.write"<A HREF='"
response.write testfolder &whatever.name
response.write"'>"
response.write whatever.name &" _ "& whatever.datecreated
response.write"</A><br>"
Next
response.write"</blockquote>"
%></p>
</body></html>

文件是显示出来了，但无法打开文件。
请指点！谢谢！

#5

piaoxue2008-04-07 16:43

是控件FSO的问题，你用的是什么系统？打开注册一下就好了

#6

edevices2008-04-07 16:45

我用的是2000，怎么注册呀？
我不会，帮我一下，谢谢啦！

#7

yms1232008-04-07 16:48

首先确定ASP的写入权限是否打开。

#8

edevices2008-04-07 16:48

1、首先在系统盘中查找scrrun.dll，如果存在这个文件，请跳到第三步，如果没有，请执行第二步。
2、在安装文件目录i386中找到scrrun.dl_，用winrar解压缩，得scrrun.dll，然后复制到x（你的系统盘）:\windows\system32\目录中。
3、运行regsvr32 scrrun.dll即可
本篇文章来源于中国网管之家原文链接：http://

我用以上方式做了，还是报同样的错误！

#9

edevices2008-04-07 16:49

ASP的写入权限？怎么确定？

#10

yms1232008-04-07 16:52

网站属性里的写入复选框选中

#11

edevices2008-04-07 16:56

这个是开了的！

#12

yms1232008-04-07 17:47

Dim FSO,file,folder
Set FSO=Server.CreateObject("Scripting.FileSystemObject")'创建FSO对象
Set folder=FSO.getFolder("C:\")'定位到C盘
'遍历c盘根目录所有文件
For each file in folder.files
Response.Write file.name
Next
单词拼写错误-_-Scripting

#13

edevices2008-04-07 17:52

哦,好的我在去看看.先谢谢你啦!!!!

#14

edevices2008-04-07 17:59

把文件名显示出来了，但不规则，而且不可以在网页上打开。可有办法呀！

#15

edevices2008-04-07 18:04

显示出来是这样的效果：index_11.jpgindex_14.jpgindex2.htm4-4.asp
所有文件名一个接一个，我想把它们像：
                      index_11.jpg
                      index_14.jpg
                      index2.htm
                      4-4.asp
这样来显示，并且点击可以直接打开。

#16

tianyu1232008-04-07 18:06

<%
Dim FSO,file,folder
Set FSO=Server.CreateObject("Scripting.FileSystemObject")'创建FSO对象
Set folder=FSO.getFolder("C:\")'定位到C盘
'遍历c盘根目录所有文件
For each file in folder.files
Response.Write"<a href='C:\"& file.name &"'>"& file.name &"</a><br><br>"
Next
%>

#17

edevices2008-04-07 18:09

显示好了。但无法打开呀？

#18

tianyu1232008-04-07 18:23

呵呵
这样简单的连接只能下载打包的文件，要想直接在网页上打开其他类型的文件，还

需要进行其他设置！

#19

edevices2008-04-07 18:25

哦，那什么样的设置呢？应该如果做呢？请指教。谢谢啦！
我想要的效果就是，显示出来的文件可以直接打开，也可以下载。
谢谢你啦！

#20

gupiao1752008-04-07 19:16

你可以参看ASP文件类型

你可以参看ASP文件类型，或者找ASP下载函数，在本网站应该就可以找得到，会有很详细的文件类归纳！新手上路，支持支持！！！呵呵！

#21

edevices2008-04-07 19:22

好的。谢谢啦！！！