28,390
社区成员
发帖
与我相关
我的任务
分享asp上传页面中已经上传了，如何将上传文件以列表的方式显示的问题，请大家帮忙？
已经实现上传到空间指定文件夹的功能，目前需要将文件夹的文件以列表形式显示出来，
并能够实现点击下载的功能，有人告诉我用fso做，但我实在菜鸟搞不出来啊，怎么做？
upload.htm
<html><title>example</title>
<body>
<form name="form1" method="post" action="upload.asp" enctype="multipart/form-data">
<input type=file name="file1">
<input type=file name="file2">
<input type=file name="file3">
<input type=submit name="submit" value="提交">
</form>
</body>
</html>
-------------------------------
upload.asp
<html><title>example</title>
<body>
<!--#include FILE="upload_5xsoft.inc"-->
<%
set upload=new upload_5xsoft
''列出所有form数据
for each formName in upload.objForm
response.write formName&"="&upload.objForm(formName)&"<br>"
next
''列出所有文件
for each formName in upload.objFile
set file=upload.objFile(formName)
if file.FileSize>0 then
'file.SaveAs Server.mappath(file.FileName)
file.SaveAs Server.mappath("test/"&file.FileName)
'file.SaveAs Server.mappath( "\test\" & file.FileName)
response.write file.FilePath&file.FileName&" ("&file.FileSize&") => "
response.write file.FileName&" 成功!<br>"
end if
set file=nothing
next
set upload=nothing
%>
以上是上传代码
并能够实现点击下载的功能，有人告诉我用fso做，但我实在菜鸟搞不出来啊，怎么做？
upload.htm
<html><title>example</title>
<body>
<form name="form1" method="post" action="upload.asp" enctype="multipart/form-data">
<input type=file name="file1">
<input type=file name="file2">
<input type=file name="file3">
<input type=submit name="submit" value="提交">
</form>
</body>
</html>
-------------------------------
upload.asp
<html><title>example</title>
<body>
<!--#include FILE="upload_5xsoft.inc"-->
<%
set upload=new upload_5xsoft
''列出所有form数据
for each formName in upload.objForm
response.write formName&"="&upload.objForm(formName)&"<br>"
next
''列出所有文件
for each formName in upload.objFile
set file=upload.objFile(formName)
if file.FileSize>0 then
'file.SaveAs Server.mappath(file.FileName)
file.SaveAs Server.mappath("test/"&file.FileName)
'file.SaveAs Server.mappath( "\test\" & file.FileName)
response.write file.FilePath&file.FileName&" ("&file.FileSize&") => "
response.write file.FileName&" 成功!<br>"
end if
set file=nothing
next
set upload=nothing
%>
以上是上传代码
...全文
请发表友善的回复…
发表回复
