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