一段ASP单页显示文件夹下所有图片的代码
2018-09-06 12:50
阅读：686
复制代码 代码如下:
<%
dim fso,objFolder,objFiles
dim filelist
Set fso=Server.CreateObject(scripting.FileSystemObject)
Set objFolder=fso.GetFolder(server.MapPath(thumbs))
Set objFiles=objFolder.Files
循环输出文件夹path下的文件的文件名
For each objFile in objFiles
filelist = filelist<img src=&objFile.name>
End If
Next
释放对象
Set objFolder=nothing
Set fso=nothing
获取文件类型
Function getExt(str)
getExt = Lcase(Right(str,Len(str)-InstrRev(str,.)))
End Function
%>
<%=filelist%>
基于上面的代码，就可以二次开发来做做文章了。
下一篇：ASP编程经典例子
评论
亲，登录后才可以留言！