国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 編程 > ASP > 正文

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

2024-05-04 11:08:33
字體:
來源:轉載
供稿:網友
發一段ASP單頁顯示文件夾所有圖片的代碼,有利于讀取當前文件夾下面的圖片,進行讀取并加以控制。
 
 
 
復制代碼代碼如下:

<% 
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%> 

基于上面的代碼,就可以二次開發來做做文章了。

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板: 万宁市| 洛川县| 玉林市| 安康市| 乌兰察布市| 元朗区| 广灵县| 延津县| 中西区| 台山市| 湖州市| 邵武市| 贵定县| 松原市| 丹寨县| 阜康市| 安多县| 德钦县| 广宁县| 永新县| 黄浦区| 定结县| 会昌县| 巴塘县| 彰武县| 文昌市| 陆良县| 谢通门县| 普陀区| 宁国市| 荥阳市| 黔西| 西盟| 盐边县| 沧源| 溆浦县| 任丘市| 孝昌县| 陇西县| 永和县| 宝清县|