โครงการ ASP ล่าสุดที่ฉันได้ทำต้องมีการดาวน์โหลดรูปภาพ ฉันไม่มีทางเลือกนอกจากต้องทำด้วยตัวเอง
รูปภาพไม่ได้ประมวลผล
- functiondownloadfile (strfile)
- strfilename = server.mappath (strfile)
- response.buffer = true
- Response.Clear
- sets = server.createObject (adodb.stream)
- S.Open
- S.Type = 1
- onerrorresumenext
- setfso = server.createObject (scripting.filesystemobject)
- ifnotfso.fileexists (strfilename) จากนั้น
- Response.write (<H1> ข้อผิดพลาด: </h1> & strfilename & notexist <p>)
- Response.end
- endif
- setf = fso.getFile (strfilename)
- intFileLength = F.Size
- s.loadfromfile (strfilename)
- Iferrthen
- Response.write (<H1> ข้อผิดพลาด: </h1> & err.description & <p>)
- Response.end
- endif
- Response.addheadercontent-Disposition, attightment; filename = & f.name
- Response.addheadercontent-Length, Intfilelength
- Response.charset = UTF-8
- Response.ContentType = แอปพลิเคชัน/อ็อกเท็ต-สตรีม
- Response.binaryWrites.read
- Response.flush
- s.close
- ชุด = ไม่มีอะไร
- endfunction
ข้างต้นเป็นฟังก์ชั่นที่ใช้ร่วมกันโดยบทความนี้