一段ASP單頁顯示文件夾下所有圖片的代碼
更新時間：2010年04月28日 09:47:18 作者：
發(fā)一段ASP單頁顯示文件夾所有圖片的代碼，有利于讀取當前文件夾下面的圖片，進行讀取并加以控制。
復制代碼 代碼如下:
<%
dim fso,objFolder,objFiles
dim filelist
Set fso=Server.CreateObject("scripting.FileSystemObject")
Set objFolder=fso.GetFolder(server.MapPath("thumbs"))
Set objFiles=objFolder.Files
'循環(huán)輸出文件夾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%>
基于上面的代碼，就可以二次開發(fā)來做做文章了。
相關文章
這篇文章主要介紹了asp+JMAIL實現(xiàn)發(fā)送郵件實例代碼，感興趣的小伙伴們可以參考一下2015-09-09
用存儲過程、GetRows()、抽取10萬條數(shù)據(jù)的速度測試
用存儲過程、GetRows()、抽取10萬條數(shù)據(jù)的速度測試...2007-03-03
asp 讀取 utf-8格式文檔并生成utf-8格式文檔的亂碼問題
asp 讀取 utf-8格式文檔并生成utf-8格式文檔的亂碼問題...2007-07-07
很多朋友對于asp的換行的實現(xiàn)，不是很懂，不懂什么情況下該使用什么樣的代碼，這里腳本之家簡單的為大家說下，希望對大家能有所幫助。2011-01-01
最近網(wǎng)站改版正好發(fā)現(xiàn)原來的分頁不帶數(shù)字的，只有首頁 上頁 下頁 末頁 然后是select的跳轉(zhuǎn)，都是以前比較流行的，而現(xiàn)在比較流行的是數(shù)字分頁在中間，正好研究并分享下，需要的朋友可以參考下2014-06-06
如何使用ASP設置指定站點CPU最大使用程度...2007-01-01
ASP之處理用Javascript動態(tài)添加的表單元素數(shù)據(jù)的代碼
ASP之處理用Javascript動態(tài)添加的表單元素數(shù)據(jù)的代碼...2007-11-11
這個方法不錯，可以生成小寫字符跟數(shù)字的隨機字符串，大家可以加入一些特殊字符和一些大寫字母等。2009-01-01
asp 常用函數(shù)用法...2006-10-10
Asp實現(xiàn)假靜態(tài)...2007-02-02