asp显示文件夹下面的图片

2025-02-26 14:54:53
推荐回答(3个)
回答1:

<%
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 ""
response.write ""
response.write ""
response.write ""
response.write ""

for each objfoldercount in objfolder.subfolders '循环显示文件夹
response.write "" '文件夹名称
response.write "" '文件夹属性
response.write "" '文件夹大小
response.write "" '时间
next

for each objfileitem in objfoldercontents '循环
response.write "" '文件名
response.write "" '类型
response.write "" '文件大小
response.write "" '更新日期
next
response.write "
文件名文件属性文件大小更新日期
"&objfoldercount.name&""&objfoldercount.type&" "&objfoldercount.DateCreated&"
"&objfileitem.name&""&objfileitem.type&""&objfileitem.size&"k"&objfileitem.datelastmodified&"
"
%>
更多关于FSO的介绍参照http://hi.baidu.com/yerunian/blog/item/468757f0746412aea40f5298.html

回答2:

用一个框架,选中整个你放图片的框架,然后加代码:


要连接的话,你直接选中图版,然后用热区连接到你新闻上就行了

回答3:

做个数据库啊