記事を翻訳するのは初めてなので、至らない点があるかもしれませんがご容赦ください。
インドが現在主要なソフトウェア輸出国である理由は、多くの点でインドがインドよりも優れているからです。最初の利点の 1 つは、インドの公用語が英語であることです。これは、プログラミング言語として英語を使用するインドのプログラマーに独特の利点をもたらします。 IT業界に携わる者にとっても、英語研修を強化すべきです。
はじめに Web サイトを 2 か月以上運営している場合、Web サイト上に大量の画像ファイルが蓄積していることに気づいたかもしれません。私たちは皆、これらの画像ファイルに適切な名前を付けようと最善を尽くしていますが、これらの画像のファイル名を参照するときに、一部の画像ファイル名の特別な意味や使用法を思い出すのは常に困難です。
このとき、私たちは通常、その写真をブラウザで繰り返し開いて、それが何の写真なのかを確認します。現時点では、この ASP コードを画像ブラウザ (およびクリーナー) として使用して、これらの画像を参照し、クリーニング操作を実行できます。
コーディング：
実際、このプログラムは、特定のディレクトリ内のすべての画像を含むリスト ページであり、FileSystemObject オブジェクトを使用してこれらの画像ファイル (gif および jpeg ファイル) をリストします。
画像を表示するかどうかを制御するには、表示を切り替えるリンクをページに追加します。ファイルがたくさんあり、すべてをロードしたくない場合は、ページ上の画像にリンクを表示するだけで済みます。逆に、一部のファイル名の意味がわからない場合は、この機能が役立ちます。掃除の良い助けになります。
以下は非常に簡潔なコードです
<%@ 言語=VBScript %>
<% 明示的なオプション %>
<%
Const ImageFilePath = "画像"
Const DeleteButtonLabel = "選択した画像を削除"
Dim objFSO
Dim objFolder
Dim objFile
Dim strFileName
Dim strFileExtension
Dim blnShowImages
If Request.QueryString("ShowImages") = "" then
blnShowImages = False
それ以外
blnShowImages = CBool(Request.QueryString("ShowImages"))
End If
If Request.Form("btnDelete") = DeleteButtonLabel then
Request.Form("delete") の strFileName ごとに
objFSO = Server.CreateObject("Scripting.FileSystemObject") を設定します
objFSO.DeleteFile(Server.MapPath(ImageFilePath & "/" & _
strファイル名))
次に、
objFSO = なしを設定します
。
終了の場合
%>
<html>
<頭>
<title>ASP 101 画像ブラウザ & キラー!</title>
</head>
<body>
<form action="<%= Request.ServerVariables("URL") %>" method="post">
<table border="1">
<tr>
<th>イメージ名</th>
<th>画像<a href="<%= Request.ServerVariables("URL") %>?
ShowImages=<%= blnShowImages %>">(表示の切り替え)</a></th>
<th>この画像を削除</th>
</tr>
<%
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
objFolder.Files の各 objFile に対して
objFolder = objFSO.GetFolder(Server.MapPath(ImageFilePath)) を設定します
strFileExtension = LCase(Mid(objFile.Name, _
InStrRev(objFile.Name, ".", -1, 1) + 1))
strFileExtension = "gif" または strFileExtension = "jpg" または _
strFileExtension = "jpeg" 次に、
' 元の画像ファイル識別オプション:
'objFile.Type = "GIF 画像" または _ の場合
objFile.Type = "JPEG 画像" 次に、
%>
<tr>
<td>
<a href="<%= ImageFilePath & "/" & objFile.Name %>">
<%= objFile.Name %></a>
</td>
<%
blnShowImages の場合は、
%>
<td>
<img src="<%= ImageFilePath & "/" & objFile.Name %>" />
</td>
<%
それ以外
%>
<td>
<a href="<%= ImageFilePath & "/" & objFile.Name %>">
画像を見る</a>
</td>
<%
終了の場合
%>
<td align="center">
<input type="チェックボックス" name="削除"
value="<%= objFile.Name %>" />
</td>
<%
終了の場合
次に
objFolder = Nothing を設定します
objFSO = なしを設定します
%>
<tr>
<tdcolspan="3" align="right">
<input type="submit" name="btnDelete"
value="<%= 削除ボタンラベル %>">
</td>
</tr>
</table>
</form>
</body>
</html>
削除操作を実行するときは、プログラムに削除の確認プロンプトがない場合、プログラムは削除操作を元に戻すことができないことに注意してください。
結論 大規模でスケーラブルな Web サイトを構築するために ASP を使用する人はいないでしょう。 (訳者注: この文は翻訳しないとあまり適切ではありません。私の実務経験によると、ASP は大規模な Web サイト システムを完全に構築できます。ASP に関しては、大規模な企業イントラネット、モバイル業界アプリケーションの構築に参加しました) 、など) ただし、コードが WEB 上に公開されない場合でも、これを使用して作業を簡素化できる場合があります。
コードを入手するには、このコードを含むディスカッション ZIP ファイルをhttp://www.weiw.comのルート ディレクトリからダウンロードします。コードが実行された後、 http://www.weiw.com/imagesの下にあるすべての画像がダウンロードされます。 / が表示されます。
ImageFilePath 定数の値は変更できます。ここに仮想パスをいくつか置くこともできます。コードは Server.MapPath を使用して適切な物理パスを決定します。 Web サイト上の特定の場所を簡単に指定できます。たとえば、その定数の値を「images」から「/images」に変更すると、プログラムは Web サイトのルート ディレクトリにある image ディレクトリを指すことになります。同様に、ImageFilePath の値も同じ目的を達成するために変更できます。2
番目: このコードを作成するとき、私は単に自分のマシン上のファイル タイプを使用しました。これは私のマシンでのみスムーズに動作します。ファイル タイプの説明によって、ファイル結合の基礎が変わる可能性があることがわかりました。拡張子を取得するには、ファイルの種類ではなく、そのようなファイルに基づいて拡張子を表示することを選択します。この機能をこの ZIP ファイルのコードに実装しました。これがプログラムの最新バージョンです。