Question

asp显示文件夹下面的图片

我要在一个页面里显示/images/这个文件下面的全部图片?(并非是图片路径）
怎么实现？
贴个代码出来参考一下可以？

想要实现能自动更新获取 images 文件的图片

实现循环显示的那种

鞠躬感谢！
框架可能不行吧？
我还要实现点击就可以到达图片的新闻文章呢

没简单的办法吗？

Answer 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 "<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&">"&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>"
%>
更多关于FSO的介绍参照http://hi.baidu.com/yerunian/blog/item/468757f0746412aea40f5298.html

Answer 2

用一个框架,选中整个你放图片的框架,然后加代码:
<MARQUEE scrollAmount=1 scrollDelay=1 onmouseover=stop() onmouseout=start() direction=up width=200 height=230>

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

Answer 3

做个数据库啊