主頁 > 知識(shí)庫 > 一段ASP單頁顯示文件夾下所有圖片的代碼

一段ASP單頁顯示文件夾下所有圖片的代碼

熱門標(biāo)簽:地圖標(biāo)注宅基地 外呼系統(tǒng)還用卡么 徐州人工智能電銷機(jī)器人好用嗎 長沙防封電銷卡品牌 武漢營銷電話機(jī)器人軟件 騰訊地圖標(biāo)注商戶關(guān)閉 西寧公司外呼系統(tǒng)平臺(tái) 智能電銷機(jī)器人適用于哪些行業(yè) 地圖標(biāo)注服務(wù)哪家好
復(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ā)來做做文章了。

標(biāo)簽:運(yùn)城 鷹潭 荊門 普洱 巴彥淖爾 雅安 通化 通遼

巨人網(wǎng)絡(luò)通訊聲明:本文標(biāo)題《一段ASP單頁顯示文件夾下所有圖片的代碼》,本文關(guān)鍵詞  一段,ASP,單頁,顯示,文件夾,;如發(fā)現(xiàn)本文內(nèi)容存在版權(quán)問題,煩請(qǐng)?zhí)峁┫嚓P(guān)信息告之我們,我們將及時(shí)溝通與處理。本站內(nèi)容系統(tǒng)采集于網(wǎng)絡(luò),涉及言論、版權(quán)與本站無關(guān)。
  • 相關(guān)文章
  • 下面列出與本文章《一段ASP單頁顯示文件夾下所有圖片的代碼》相關(guān)的同類信息!
  • 本頁收集關(guān)于一段ASP單頁顯示文件夾下所有圖片的代碼的相關(guān)信息資訊供網(wǎng)民參考!
  • 推薦文章