一段ASP单页显示文件夹下所有图片的代码
程序员文章站
2022-06-05 13:32:47
复制代码 代码如下: <% dim fso,objfolder,objfiles dim filelist set fso=server.createobject("...
复制代码 代码如下:
<%
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
if getext(objfile.name)="gif" or getext(objfile.name)="jpg" or getext(objfile.name)="jpeg" then
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%>
基于上面的代码,就可以二次开发来做做文章了。
上一篇: 成都本地人必吃的店是哪些,绝对是美食一条街最火的店
下一篇: C#数组的常用操作方法小结