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