นี่เป็นครั้งแรกที่ฉันแปลบทความ ผิดพลาดประการใดขออภัยด้วย
เหตุผลที่ตอนนี้อินเดียกลายเป็นผู้ส่งออกซอฟต์แวร์รายใหญ่ก็เพราะว่าอินเดียมีความเหนือกว่าเราในหลายๆ แห่ง ข้อดีข้อแรกประการหนึ่งคือภาษาราชการของอินเดียคือภาษาอังกฤษ ซึ่งนำข้อดีเฉพาะมาสู่โปรแกรมเมอร์ชาวอินเดียที่ใช้ภาษาอังกฤษเป็นภาษาเขียนโปรแกรม สำหรับพวกเราในอุตสาหกรรมไอที เราควรเสริมสร้างการฝึกอบรมภาษาอังกฤษของเราด้วย
บทนำ หากคุณมีเว็บไซต์ที่เปิดดำเนินการมานานกว่าสองเดือน คุณอาจสังเกตเห็นว่ามีไฟล์รูปภาพจำนวนมากสะสมอยู่ในเว็บไซต์ของคุณ แม้ว่าเราทุกคนจะพยายามอย่างดีที่สุดในการตั้งชื่อไฟล์รูปภาพเหล่านี้ให้ดี แต่เมื่อเราเรียกดูชื่อไฟล์ของรูปภาพเหล่านี้ เป็นเรื่องยากสำหรับเราที่จะจดจำความหมายพิเศษหรือการใช้ชื่อไฟล์รูปภาพบางชื่อ
ในเวลานี้เรามักจะเปิดภาพเหล่านั้นด้วยเบราว์เซอร์ซ้ำๆ เพื่อดูว่าเป็นภาพอะไร? ในขณะนี้ รหัส ASP นี้สามารถใช้เป็นเบราว์เซอร์รูปภาพ (และตัวล้างข้อมูล) เพื่อเรียกดูรูปภาพเหล่านี้และดำเนินการทำความสะอาดได้
การเข้ารหัส:
ที่จริงแล้วโปรแกรมนี้เป็นหน้ารายการที่มีรูปภาพทั้งหมดในไดเร็กทอรีหนึ่งโดยใช้อ็อบเจ็กต์ FileSystemObject เพื่อแสดงรายการไฟล์รูปภาพเหล่านี้ (ไฟล์ gif และ jpeg)
เพิ่มการแสดงสลับลิงก์ไปยังเพจเพื่อควบคุมว่าจะแสดงรูปภาพหรือไม่ เมื่อคุณมีไฟล์จำนวนมากและไม่ต้องการโหลดทั้งหมด คุณสามารถปล่อยให้รูปภาพบนเพจแสดงลิงก์ได้ ในทางกลับกัน หากคุณไม่แน่ใจว่าชื่อไฟล์บางชื่อหมายถึงอะไร ฟังก์ชันนี้จะเป็น a ความช่วยเหลือที่ดีสำหรับคุณในการทำความสะอาด
ต่อไปนี้เป็นรหัสที่กระชับมาก
<%@ ภาษา=VBScript %>
<% ตัวเลือกที่ชัดเจน %>
-
Const ImageFilePath = "รูปภาพ"
Const DeleteButtonLabel = "ลบรูปภาพที่เลือก"
Dim objFSO
หรี่ objFolder
Dim objFile
Dim strFileName
Dim strFileExtension
Dim blnShowImages
ถ้า Request.QueryString("ShowImages") = "" จากนั้น
blnShowImages = เท็จ
อื่น
blnShowImages = CBool(Request.QueryString("ShowImages"))
สิ้นสุด If
If Request.Form("btnDelete") = DeleteButtonLabel จากนั้น
ตั้ง objFSO = Server.CreateObject("Scripting.FileSystemObject")
สำหรับแต่ละ strFileName ใน Request.Form("delete")
objFSO.DeleteFile (เซิร์ฟเวอร์ MapPath (ImageFilePath & "/" & _
strFileName))
ถัดไป
objFSO = ไม่มีเลย
สิ้นสุดถ้า
-
<html>
<หัว>
<title>เบราว์เซอร์รูปภาพ ASP 101 & Killer!</title>
</หัว>
<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>
-
ตั้ง objFSO = Server.CreateObject("Scripting.FileSystemObject")
ตั้งค่า objFolder = objFSO.GetFolder(Server.MapPath(ImageFilePath))
สำหรับแต่ละ objFile ใน objFolder.Files
strFileExtension = LCase(กลาง(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">
<ประเภทอินพุต = "ช่องทำเครื่องหมาย" ชื่อ = "ลบ"
value="<%= objFile.Name %>" />
</td>
-
สิ้นสุดถ้า
ถัดไป
objFolder = ไม่มีเลย
ตั้ง objFSO = ไม่มีเลย
-
<tr>
<td colspan="3" align="right">
<ประเภทอินพุต = "ส่ง" ชื่อ = "btnDelete"
ค่า="<%= DeleteButtonLabel %>">
</td>
</tr>
</table>
</form>
</body>
</html>
เมื่อดำเนินการลบ โปรดทราบว่าหากไม่มีข้อความยืนยันการลบในโปรแกรม โปรแกรมจะไม่สามารถยกเลิกการลบได้
บทสรุป ผู้คนจะไม่ใช้ ASP เพื่อสร้างเว็บไซต์ที่ปรับขนาดได้ขนาดใหญ่ (หมายเหตุผู้แปล: ประโยคนี้ไม่เหมาะสมนักหากไม่มีการแปล จากประสบการณ์การทำงานของฉัน ASP สามารถสร้างระบบเว็บไซต์ขนาดใหญ่ได้อย่างสมบูรณ์ ในส่วนของ ASP ฉันได้มีส่วนร่วมในการสร้างอินทราเน็ตองค์กรขนาดใหญ่ แอปพลิเคชันอุตสาหกรรมมือถือ ฯลฯ) แต่บางครั้งคุณสามารถใช้สิ่งนี้เพื่อทำให้งานของคุณง่ายขึ้น แม้ว่าโค้ดจะไม่เคยเผยแพร่บนเว็บก็ตาม
หากต้องการรับโค้ด คุณสามารถดาวน์โหลดไฟล์ ZIP การสนทนาที่มีโค้ดนี้ได้จากไดเร็กทอรีรากของ http://www.weiw.com หลังจากเรียกใช้โค้ดแล้ว รูปภาพทั้งหมดจะอยู่ภายใต้ http://www.weiw.com/images / จะปรากฏขึ้น
คุณสามารถเปลี่ยนค่าของค่าคงที่ ImageFilePath ได้ คุณยังสามารถใส่เส้นทางเสมือนบางส่วนได้ที่นี่ และโค้ดจะใช้ Server.MapPath เพื่อกำหนดเส้นทางทางกายภาพที่เหมาะสม คุณสามารถระบุสถานที่บางแห่งบนเว็บไซต์ของคุณได้อย่างง่ายดาย ตัวอย่างเช่น การเปลี่ยนค่าคงที่จาก "images" เป็น "/images" จะชี้โปรแกรมไปที่ไดเร็กทอรีรูปภาพในไดเร็กทอรีรากของเว็บไซต์ ในทำนองเดียวกัน ค่าของ ImageFilePath สามารถแก้ไขได้เพื่อให้บรรลุวัตถุประสงค์เดียวกัน
ประการที่สอง: เมื่อเขียนโค้ดนี้ ฉันเพียงแค่ใช้ประเภทไฟล์ในเครื่องของฉัน สิ่งนี้ทำงานได้อย่างราบรื่นบนเครื่องของฉันเท่านั้น ปรากฎว่าคำอธิบายของประเภทไฟล์สามารถเปลี่ยนพื้นฐานของการรวมไฟล์ของคุณได้ เพื่อให้ได้นามสกุลที่คุณเลือกให้แสดงตามไฟล์ดังกล่าวแทนประเภท ฉันได้ใช้ฟังก์ชันนี้ในโค้ดในไฟล์ ZIP นี้แล้ว นี่คือเวอร์ชันล่าสุดของโปรแกรม