รหัสโปรแกรม
<%
-
'ชื่อฟังก์ชัน: ChkImg
'ฟังก์ชั่น: ตรวจสอบว่าไฟล์ภาพนั้นถูกกฎหมายหรือไม่
'พารามิเตอร์: img, เส้นทางรูปภาพ, เส้นทางสัมบูรณ์สัมพันธ์กับไดเร็กทอรีรากของเว็บไซต์
'ค่าที่ส่งคืน: ประเภทบูลีน หากรูปภาพถูกต้องตามกฎหมาย ให้คืนค่าเป็น True หรือไม่เช่นนั้นจะคืนค่าเป็น False
'เงื่อนไข: เซิร์ฟเวอร์จะต้องรองรับส่วนประกอบ AspJpeg
' หากไม่รองรับ เพื่อหลีกเลี่ยงไม่ให้อัพโหลดรูปภาพทั้งหมดได้ ฟังก์ชันนี้จะคืนค่า True โดยตรง
-
ฟังก์ชั่น ChkImg(img)
ในข้อผิดพลาดดำเนินการต่อถัดไป 'เพื่อที่จะบันทึกข้อมูลข้อผิดพลาดรหัสจะต้องดำเนินการต่อไปเมื่อมีข้อผิดพลาดเกิดขึ้น
Dim RetunValue, ChkJpeg
RetunValue = True
'หากเส้นทางว่างเปล่า รูปภาพจะถือว่าผิดกฎหมาย
ถ้า isnull(img) ดังนั้น ChkImg = False:Exit Function
Set ChkJpeg = Server.CreateObject("Persits.Jpeg")
หาก -2147221005 <> ผิดพลาด จากนั้น 'หากส่วนประกอบได้รับการสนับสนุน ให้ใช้ส่วนประกอบเพื่อตรวจสอบความถูกต้องตามกฎหมายของรูปภาพ
ChkJpeg.Open Server.mappath (img)
หากผิดพลาดแล้ว
RetunValue = เท็จ
สิ้นสุดถ้า
มิฉะนั้น 'หากส่วนประกอบไม่รองรับ ให้ข้ามและส่งคืนค่า True โดยตรง
RetunValue = จริง
สิ้นสุด If
'www.downcodes.com งานควันหลงที่จำเป็น
ถ้า Err.number <> 0 ดังนั้น Err.clear
ตั้งค่า ChkJpeg = ไม่มีสิ่งใด
ChkImg = RetunValue
ฟังก์ชันสิ้นสุด
-
หมายเหตุ: เนื่องจาก AspJpeg สามารถประมวลผลได้เฉพาะไฟล์ที่มีอยู่แล้วบนเซิร์ฟเวอร์ เราจึงต้องดำเนินการนี้ในระหว่างการใช้งานจริง โดยขั้นแรกให้อัปโหลดรูปภาพไปยังโฟลเดอร์ชั่วคราว จากนั้นตรวจสอบความถูกต้องตามกฎหมายของรูปภาพ หากถูกกฎหมาย ให้คัดลอกรูปภาพ ไปยังไดเร็กทอรีบันทึกรูปภาพ ลบไฟล์ชั่วคราวและส่งคืนข้อความแจ้งความสำเร็จในการอัปโหลด หากผิดกฎหมาย ให้ลบไฟล์ชั่วคราวโดยตรงและส่งคืนคำเตือนข้อผิดพลาด
เนื่องจากรูปภาพถูกเปิดด้วย AspJpeg เท่านั้น และไม่มีการประมวลผลรูปภาพ ประสิทธิภาพการทำงานของฟังก์ชันนี้จึงยังคงสูงมาก และโดยพื้นฐานแล้วไม่จำเป็นต้องกังวลเกี่ยวกับปัญหาด้านประสิทธิภาพระหว่างการใช้งาน