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

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

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

set objfso=createobject("scripting.filesystemobject") '實例文件組件
set objfile=objfso.GetFile(serverpath) '讀取文件所在路徑
set objfolder=objfile.parentfolder '根據(jù)文件所在路徑得到上級目錄
set objfoldercontents=objfolder.files '所有文件付給數(shù)組
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 '循環(huán)顯示文件夾

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 '循環(huán)
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>"
%>