急！请教使用FSO显示xxx.*文件，在线等，马上结分

X_Saint 2005-12-24 03:07:57

请教如何使用FSO显示指定目录下的所有指定类型的文件
谢谢

Dec 24 PM 6 前结分

...全文

142 8 打赏收藏转发到动态举报

写回复

用AI写文章

8 条回复

切换为时间正序

请发表友善的回复…

发表回复

tylchina 2005-12-24

打赏
举报

学习

竹林听雨2005 2005-12-24

打赏
举报

学习，更佩服楼主。

wangyingdong 2005-12-24

打赏
举报

<%
'==================================================
'函数名：fso
'作用：Fso组件
'参数：无
'==================================================
function fso(filename)
set fs=server.CreateObject ("scripting.filesystemobject")
set fsts=fs.opentextfile(server.mappath(filename),1)
body=fsts.readall
fso=body
end function
%>

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta http-equiv="expires" content="0">
<title>上传文件浏览</title>
</head>

<body style='MARGIN: 0px'>
<table width="95%" border="0" align="center" cellpadding="0" cellspacing="1" style="border-collapse: collapse; border: 1px solid #666666;"> <tr align="center" bgcolor="#6D89DD">
<td height="20" class="tdtitle">图片浏览</td>
</tr>
</table>
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td height="475" valign="top"><table width="95%" border="0" align="center" cellpadding="3" cellspacing="3">
<%
maxpage=25
FileCount=0
if request("page")<>"" then
curPage=cint(request("page"))
else
curPage=1
end if

listtype=request("listtype")
inputname=request("inputname")
select case listtype
case "pic"
strUpFileType="jpg|gif|bmp|png"
case "flash"
strUpFileType="swf"
case "media"
strUpFileType="wmv|asf|avi|mpg|ram|rm|ra"
case else
strUpFileType="all"
end select
n=1
foldername=request.QueryString("foldername")
url=Request.ServerVariables("SCRIPT_NAME")&"?listtype="&listtype&"&foldername="&foldername&"&"
if foldername=Empty then
foldernames=Server.MapPath("../"&webuppath)
else
foldernames=Server.MapPath("../"&webuppath&foldername)
end if
Set fso = CreateObject("Scripting.FileSystemObject")
Set folder = fso.GetFolder(foldernames)
for each theFolder in folder.SubFolders
if n=1 then response.write "<tr align=center>" & vbcrlf
'if FileCount mod 5=0 then response.write "<tr align=center>" & vbcrlf
response.write "<td><a href=?listtype="&listtype&"&inputname="&inputname&"&foldername="&theFolder.Name&"><img src=../images/folder.gif width=100 height=70 border=0 align=absmiddleon alt='文件夹大小："&format(theFolder.Size)&"<br>修改时间："&theFolder.DateLastModified&"'></a><br>"&theFolder.Name&"</td>" & vbcrlf
if n=5 then n=0:response.write "</tr>" & vbcrlf
n=n+1
next
For Each theFile In folder.Files
strFileType=lcase(mid(theFile.Name,instrrev(theFile.Name,".")+1))
if instr(strUpFileType,strFileType)>0 then
FileCount=FileCount+1
'TotalSize=TotalSize+theFile.Size
end if
next
total=FileCount
FileCount=0
if curpage<1 then
curpage=1
end if
if (curpage-1)*MaxPage>total then
if (total mod MaxPage)=0 then
curpage= total \ MaxPage
else
curpage= total \ MaxPage + 1
end if
end if
For Each theFile In folder.Files
c=c+1
if FileCount=maxpage then exit for
if c>MaxPage*(CurPage-1) then
'if n=1 then response.write "<tr align=center>" & vbcrlf
if FileCount mod 5=0 then response.write "<tr align=center>" & vbcrlf
strFileType=lcase(mid(theFile.Name,instrrev(theFile.Name,".")+1))
if instr(strUpFileType,strFileType)>0 then
call list()
FileCount=FileCount+1
else
call list()
FileCount=FileCount+1
end if
if n=5 then n=0':response.write "</tr>" & vbcrlf
n=n+1
'FileCount=FileCount+1
if FileCount mod 5=0 then response.write "</tr>" & vbcrlf
end if
Next
set fso=nothing
%>
</table></td>
</tr>
<tr>
<td height="20" align="center"><a href=<%=Request.ServerVariables("SCRIPT_NAME")%>?listtype=<%=listtype%>&foldername=>返回</a> <%showpage url,total,maxpage,curpage%></td>
</tr>
</table>
<%
Function format(fig)
If fig <1024 Then
format = fig&" B"
ElseIf fig < 1048576 Then
format = Round(fig / 1024.1) & " KB"
Else
format = Round((fig/1024)/1024.1) & " MB"
End If
End Function
sub list()
select case strFileType
case "jpg","gif","bmp","png"
response.write "<td><img src='../" &webuppath&foldername&"/"&theFile.Name& "' border='0' title='文件大小："&format(theFile.Size)&"<br>修改时间："&theFile.DateLastModified&"' style='width:100px;height:70px;CURSOR: hand;' onClick=""javascript:window.opener."&inputname&".value='../" &webuppath&foldername&"/"&theFile.Name& "';window.close();""><br><a href=../" &webuppath&foldername&"/"&theFile.Name& " target=_blank>"&theFile.Name&"</a></td>" & vbcrlf
case "swf"
response.write "<td><img src='../images/flash.gif' style='width:100px;height:70px;CURSOR: hand;' onClick=""javascript:window.opener."&inputname&".value='../" &webuppath&foldername&"/"&theFile.Name& "';window.close();"" border='0'><br><a href../=" &webuppath&foldername&"/"&theFile.Name& " target=_blank>"&theFile.Name&"</a></td>" & vbcrlf
case "wmv","avi","asf","mpg"
response.write "<td><img src='../images/media.gif' style='width:100px;height:70px;CURSOR: hand;' onClick=""javascript:window.opener."&inputname&".value='../" &webuppath&foldername&"/"&theFile.Name& "';window.close();"" border='0'><br><a href=../" &webuppath&foldername&"/"&theFile.Name& " target=_blank>"&theFile.Name&"</a></td>" & vbcrlf
case "rm","ra","ram"
response.write "<td><img src='../images/rm.gif' style='width:100px;height:70px;CURSOR: hand;' onClick=""javascript:window.opener."&inputname&".value='../" &webuppath&foldername&"/"&theFile.Name& "';window.close();"" border='0'><br><a href=../" &webuppath&foldername&"/"&theFile.Name& " target=_blank>"&theFile.Name&"</a></td>" & vbcrlf
case "rar"
response.write "<td><img src='../images/rar.gif' style='width:100px;height:70px;CURSOR: hand;' onClick=""javascript:window.opener."&inputname&".value='../" &webuppath&foldername&"/"&theFile.Name& "';window.close();"" border='0'><br><a href=../" &webuppath&foldername&"/"&theFile.Name& " target=_blank>"&theFile.Name&"</a></td>" & vbcrlf
case "zip"
response.write "<td><img src='../images/zip.gif' style='width:100px;height:70px;CURSOR: hand;' onClick=""javascript:window.opener."&inputname&".value='../" &webuppath&foldername&"/"&theFile.Name& "';window.close();"" border='0'><br><a href=../" &webuppath&foldername&"/"&theFile.Name& " target=_blank>"&theFile.Name&"</a></td>" & vbcrlf
case "exe"
response.write "<td><img src='../images/exe.gif' style='width:100px;height:70px;CURSOR: hand;' onClick=""javascript:window.opener."&inputname&".value='../" &webuppath&foldername&"/"&theFile.Name& "';window.close();"" border='0'><br><a href=../" &webuppath&foldername&"/"&theFile.Name& " target=_blank>"&theFile.Name&"</a></td>" & vbcrlf
case else
response.write "<td><img src='../images/other.gif' style='width:100px;height:70px;CURSOR: hand;' onClick=""javascript:window.opener."&inputname&".value='../" &webuppath&foldername&"/"&theFile.Name& "';window.close();"" border='0'><br><a href=../" &webuppath&foldername&"/"&theFile.Name& " target=_blank>"&theFile.Name&"</a></td>" & vbcrlf
end select
end sub
%>
</body>
</html>

potter2002 2005-12-24

打赏
举报

路过接分不要白不要

Clnxx 2005-12-24

打赏
举报

学习

创造奇迹9999 2005-12-24

打赏
举报

X_Saint 2005-12-24

打赏
举报

已经习惯来CSDN了
居然忘了MS强大的MSDN
上面的代码就是MSDN的实例代码
稍稍做了修改
希望大家有事没事也多看看MSDN

X_Saint 2005-12-24

打赏
举报

Dim fso, f, f1, fc
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder(server.MapPath("/zzz/"))
Set fc = f.Files
For Each f1 in fc
response.Write "<a href='#'>" & f1.name & "</a><BR>"
Next

自己解决。。。
顶者接分

天轰川(田洪川) 一个中国人一个四川人一个剃了眉毛将 .NET 拉下神坛的人一堆视频的影响力超过微软过亿的推广方案他用执着诠释着人性化科技的含义功勋着著不过一个行业的顶级人才竟然经常为了生活而担忧很真实因为这两篇太安逸了,东西很多,很实用,所以转到我格子里! 总的来说,如果你要找js 的东西,而不看这两篇的话,肯定要多花好多时间!!哈哈!! ...

因为这两篇太安逸了,东西很多,很实用,所以转到我格子里!总的来说,如果你要找js 的东西,而不看这两篇的话,肯定要多花好多时间!!哈哈!!如果你找的javascript的东西的话,建议你 ctrl+F 直接在这个页上找,因为这里80%有你要找的,但是要让你挨着看的话,你就准备看完就去配眼镜!! 事件源对象 event.srcElement.tagName

javascript小技巧&&JavaScript[对象.属性]集锦[转载了多篇] Postedon2006-06-2321:50天轰穿阅读(34173)评论(41)编辑收藏网摘所属分类:非技术类、JavaScript入门系列因为这两篇太安逸了,东西很多,很实用,所以转到我格子里! 总的来说,如果你要找js的东西,而不看这两篇的话,肯定要多花好多时间!!哈哈!! ...

因为这两篇太安逸了,东西很多,很实用,所以转到我格子里! 总的来说,如果你要找js 的东西,而不看这两篇的话,肯定要多花好多时间!!哈哈!! 如果你找的javascript的东西的话,建议你 ctrl+F 直接在这个页上找,因为这里80%有你要找的,但是要让你挨着看的话,你就准备看完就去配眼镜!! 事件源对象 event.srcElement.ta...