<%
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 "
文件名 | "文件属性 | "文件大小 | "更新日期 |
"&objfoldercount.name&" | " '文件夹名称"&objfoldercount.type&" | " '文件夹属性" '文件夹大小 | "&objfoldercount.DateCreated&" | " '时间
"&objfileitem.name&" | " '文件名"&objfileitem.type&" | " '类型"&objfileitem.size&"k | " '文件大小"&objfileitem.datelastmodified&" |
用一个框架,选中整个你放图片的框架,然后加代码:
做个数据库啊