ASP にコードを送信して、フォルダー内のすべての画像を 1 ページに表示します。これは、現在のフォルダーの下にある画像の読み取り、読み取り、制御に役立ちます。次のようにコードをコピーします。
<%
dim fso、objFolder、objFiles
薄暗いファイルリスト
fso=Server.CreateObject(scripting.FileSystemObject) を設定します。
set objFolder=fso.GetFolder(server.MapPath(thumbs))
objFiles=objFolder.Files を設定します
'フォルダーパス配下のファイルのファイル名を出力するループ
objFiles 内の各 objFile について
getExt(objFile.name)=gif または getExt(objFile.name)=jpg または getExt(objFile.name)=jpeg の場合
ファイルリスト = ファイルリスト<img src=&objFile.name>
終了の場合
次
'オブジェクトを解放する
objFolder=nothing を設定します
fso=nothing を設定します
'ファイルタイプを取得
関数 getExt(str)
getExt = Lcase(Right(str,Len(str)-InstrRev(str,.)))
終了機能
%>
<%=ファイルリスト%>
上記のコードを元に二次開発して大騒ぎすることも可能です。