يتطلب مشروع ASP حديثًا تنزيله القسري للصور. ليس لدي خيار سوى القيام بذلك بنفسي.
لا تتم معالجة الصورة.
- FunctionDownloadFile (strfile)
- strfilename = server.mappath (strfile)
- استجابة. buffer = صحيح
- استجابة
- مجموعات = server.createBject (Adodb.stream)
- S.
- S.Type = 1
- onerrorresumenext
- setfso = server.createBject (scripting.filesystemObject)
- ifnotfso.filexists (strfilename) ثم
- Response.write (<h1> خطأ: </h1> و strfilename & doNotesist <p>)
- استجابة
- Endif
- setf = fso.getfile (strfilename)
- intfilelength = f.size
- s.loadfromfile (strfilename)
- iferrthen
- Response.write (<h1> خطأ: </h1> & err.description & <p>)
- استجابة
- Endif
- استجابة
- استجابة
- استجابة. Charset = UTF-8
- استجابة. contenttype = التطبيق/الثماني الثامن
- استجابة
- استجابة
- S.Close
- مجموعات = لا شيء
- الوظيفية
ما سبق هو الوظيفة التي شاركها هذه المقالة.