หัวข้อนี้ค่อนข้างสับสน วันนี้กลุ่มกำลังพูดถึงคำถามนี้อยู่ เพื่อนๆ ที่ต้องการก็สามารถอ้างอิงได้
คำถาม: ฉันต้องการเปลี่ยนชื่อไฟล์เมื่ออัปโหลด แล้วเปลี่ยนชื่อกลับเมื่อดาวน์โหลด
ตัวอย่างเช่น: ฉันอัปโหลด "My Photo.jpg" และเปลี่ยนเป็นชื่อระบบ "20040302001.jpg" หลังจากอัปโหลด แล้วเปลี่ยนกลับเป็น "My Photo.jpg" เมื่อดาวน์โหลด
ฐานข้อมูลใช้บันทึกชื่อไฟล์เก่าและใหม่ (เรียบร้อยแล้ว)
เป็นเพียงว่าฉันไม่สามารถเปลี่ยนชื่อเมื่อดาวน์โหลดได้
รหัส:
คัดลอกรหัสรหัสดังต่อไปนี้:
-
ฟังก์ชั่น dl(f,n)
เมื่อเกิดข้อผิดพลาดดำเนินการต่อต่อไป
ตั้งค่า S=CreateObject( "Adodb.Stream ")
S.โหมด=3
S.ประเภท=1
ส.โอเพ่น
S.LoadFromFile(f)
ถ้า Err.Number> 0 แล้ว
Response.Status= "404 "
อื่น
Response.ContentType= "application/octet-stream"
Response.AddHeader "การจัดการเนื้อหา: ", "ไฟล์แนบ; ชื่อไฟล์= " & n
Range=Mid(Request.ServerVariables( "HTTP_RANGE "),7)
ถ้า Range= " " แล้ว
Response.BinaryWrite(S.อ่าน)
อื่น
S.position=Clng(แยก(ช่วง, "- ")(0))
Response.BinaryWrite(S.อ่าน)
จบถ้า
สิ้นสุดถ้า
การตอบสนองสิ้นสุด
ฟังก์ชั่นสิ้นสุด
-
ตัวอย่างการใช้งานฟังก์ชัน:
คัดลอกรหัสรหัสดังต่อไปนี้:
โทร dl(Server.MapPath( "download/20040302001.jpg "), "My Photos.jpg ")