日韩欧美国产精品免费一二-日韩欧美国产精品亚洲二区-日韩欧美国产精品专区-日韩欧美国产另-日韩欧美国产免费看-日韩欧美国产免费看清风阁

asp中引用：
<%Call showsize("123.rar")%>

利用FSO可以做到 但是你要注意文件夾的權限設置
<%
Option Explicit
dim infopath '當前路徑
dim serverpath '服務器路徑
dim objfso '文件組件
dim objfile '文件
dim objfolder '目錄
dim objfoldercontents '所有文件
dim objfoldercount '臨時數組變量-文件夾
dim objfileitem '臨時數組變量-文件

infopath=request.servervariables("path_info") '得到文件相對路徑 根據自己需要修改
serverpath=server.mappath(infopath) '得到文件絕對路徑 根據自己需要修改

set objfso=createobject("scripting.filesystemobject") '實例文件組件
set objfile=objfso.GetFile(serverpath) '讀取文件所在路徑
set objfolder=objfile.parentfolder '根據文件所在路徑得到上級目錄
set objfoldercontents=objfolder.files '所有文件付給數組
response.write "<table width=100% border=0><tr>"
response.write "<td>文件名</td>"
response.write "<td>文件屬性</td>"
response.write "<td>文件大小</td>"
response.write "<td>更新日期</td></tr>"

for each objfoldercount in objfolder.subfolders '循環顯示文件夾

response.write "<tr><td><a href=?path="&objfoldercount.name&" target=""_blank"">"&objfoldercount.name&"</td>" '文件夾名稱
response.write "<td>"&objfoldercount.type&"</td>" '文件夾屬性
response.write "<td> </td>"

'文件夾大小
response.write "<td>"&objfoldercount.DateCreated&"</td>" '時間
next

for each objfileitem in objfoldercontents '循環
response.write "<tr><td><a href="&objfileitem.name&">"&objfileitem.name&"</a></td>"

'文件名
response.write "<td>"&objfileitem.type&"</td>" '類型
response.write "<td>"&objfileitem.size&"k</td>" '文件大小
response.write "<td>"&objfileitem.datelastmodified&"</td></tr>" '更新日期
next
response.write "</table>"
%>