Stimson (العمل الأصلي)
حاليًا على العديد من فئات التحميل الأقل مكونًا، وقد ألقيت نظرة ووجدت أن معظمها معقد للغاية. والشيء الأكثر أهمية هو أنه لا يوجد أي منها يحتوي على أقل من 10 أسطر code :) قضيت ليلة كاملة في دراسة ADODB.Stream واستخدمت 6 أسطر من التعليمات البرمجية لتنفيذ تحميل بدون مكونات:
strFileName = Request.QueryString("file1")
تعيين objStream = Server.CreateObject("ADODB.Stream")
objStream.Type = 1 'adTypeBinary
objStream.Open
objStream.LoadFromFile strFileName
objStream.SaveToFile Server."123_onweb.gif"،2
كيفية الاستخدام:
اكتب الكود أعلاه كـ upload.asp
أدخل في المتصفح:
GetFileName = mid(strFile,InStrRev(strFile, "")+1)
آخر
اسم الملف = ""
نهاية إذا
نهاية الدالة
strFileName = Request.Form("file1")
تعيين objStream = Server.CreateObject("ADODB.Stream")
objStream.Type = 1 'adTypeBinary
objStream.Open
objStream.LoadFromFile strFileName
objStream.SaveToFile Server.MapPath(GetFileName(strFileName)),2
objStream.Close
%>
ملف upload.htm
<اسم النموذج = "FORM" action = "upload.asp" طريقة = "post">
<نوع الإدخال = "إرسال" الاسم = "إرسال" القيمة = "موافق">
<نوع الإدخال = "ملف" اسم = "ملف 1" نمط = "العرض: 400" القيمة = "">
</النموذج>