تحميل ملفات الى قاعدة البيانات بلغة asp

السلام عليكم

أخي الكريم أنت سوف تقوم أولاً بإرفاق الصور إلى مجلد، وفي قاعدة البيانات سوف تقوم بتخزين امتداد الصورة، وعندما تقوم بعرض الصورة، تضع امتداد الصورة المخزنة داخل الجدول ، داخل وسم ال html الخاص بالصور.

فعندها سوف يتم عرض الصور.

مع تحياتي

اخى الكريم اولا شكرا على الرد

ان اعرف هده الطريقة تخزين مسار الصوره

ان اريد تخزين الصورة نفسه اى كا ملف فى قاعدة البيانات وجدتوا هدا المثال ولكن لم افهم

وان اريريد تحميل الملف الى قاعدة وشكرا

السلام عليكم

ممكن تعطيني المثال عشان أشوفه.

ان شاءلله بقدر أتعامل معه عشان أقدر أساعدك فيه.

مع تحياتي

السلام عليكم ورحمة الله وبركاته

المثال

UploadASP.zip

ارجو منك المساعدة لانى احتاج اليه ضرورى ارجوا منك الرد السريع

وبارك الله فيك

السلام عليكم

انا قمت بتحميل الملف، وغداً ان شاءلله برد عليك، لأنه انا جالس الان في مقهى.

مع تحياتي

السلام عليكم

اخي الكريم اين قاعدة البيانات

السلام عليك اخى الكريم سوف احمل لك الملف تانية ولكن بعد ساعات لانى لست فى المنزل الان وبارك الله فيك على الاهتمام

السلام عليكم

هدا الموقع الدى حملت منا المثال اضغط هنا

وهدا ايضا يوجد بيه كيف ولكن لم افهم

اضغط هنا

السلام عليكم

اخ fadia ali ، حملت الملف الموجود على الرابط الثاني.

وانا قاعد بحاول اني افهم الكود، لأنه هو مستخدم object oriented للفيجول بيسك 6 وانا ما عندي خلفية كبيرة عنها.

وانا الان لست متفرغ بسبب الاختبارات.

لكن بوعدك اني راح اوضحه الك، لأنه رأيت الكود هو مش صعب، بس في كثير امور، ولازم اعرف كل سطر قام بعمله لكي استطيع التعامل معه بشكل مرونة والتعديل عليه.

مع تحياتي

شكرا لك اخى عبد الله جابر وبارك الله فيك

السلام عليكم

أنا كمان محتاجه لهذا الأمر وياريت تستعجلوا في كتابة الرد الشافي

لأني كنت بدي أكتب السؤال فوجدت السؤال مطروح

بارك الله فيكم

السلام عليكم

أخواني إذا بدك ببده في شرح كيف تمت الإضافة.

أما أني اشرح كيف تم عمل ال object فأنا ما بقدر لانه انا ما بعرف اشتغل على الفيجول بيسك، وفي أصلاً كثير يشتغلون على الفيجول بيسك، وما يستخدمون معها ال object .

فأنا قاعد بدي أتعلمها عشان اقدر اشرحه كامل متكامل.

فإذا بدكم اشرح كيف تمت الإضافة اوكي انا جاهز الها.

مع تحياتي

بالنسبة لي أنتظرك ..

بس يارب تكون بسرعة

ما بعرف لو تشرح الفكرة الرئيسة ..

بكون لك شاكرة

السلام عليكم

والله ياريت اتمنا دلك ياريت نحن فى انتظرك انك تشرح وبارك الله في

السلام عليكم

انا سوف اقوم بشرح الصفحة الخاصة بعملية التخزين داخل قواعد البيانات وهي الصفحة التي اسمها ToDatabase.asp التي سوف تستقبل الملف من الصفحة demo.asp التي من خلالها سوف ترفق الملف، وليس صور فقط ترفقها، يمكنك رفق اي ملف بها.

<!--#INCLUDE FILE="clsUpload.asp"-->
<%
Dim objUpload
Dim strFileName
Dim objConn
Dim objRs
Dim lngFileID

' Instantiate Upload Class
Set objUpload = New clsUpload

' Grab the file name
strFileName = objUpload.Fields("File1").FileName

Set objConn = Server.CreateObject("ADODB.Connection")
Set objRs = Server.CreateObject("ADODB.Recordset")

' Sometimes I personally have errors with one method on different servers, but the other works.
objConn.Open "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" & Server.MapPath("Files.mdb")
'objConn.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("Files.mdb")

objRs.Open "Files", objConn, 3, 3

objRs.AddNew

objRs.Fields("FileName").Value = objUpload.Fields("File1").FileName
objRs.Fields("FileSize").Value = objUpload.Fields("File1").Length
objRs.Fields("ContentType").Value = objUpload.Fields("File1").ContentType
objRs.Fields("BinaryData").AppendChunk objUpload("File1").BLOB & ChrB(0)

objRs.Update

objRs.Close

objRs.Open "SELECT Max(FileID) AS ID FROM Files", objConn, 3, 3
lngFileID = objRs.Fields("ID").Value
objRs.Close

Set objRs = Nothing
Set objConn = Nothing
Set objUpload = Nothing
%>
File has been saved in database.<BR>
<BR>
View this file:<BR>
<BR>
<A href="DataFile.asp?FileID=<%=lngFileID%>"><%=strFileName%></A>

حيث هنا يتم استدعاء الملف clsUpload.asp

<!--#INCLUDE FILE="clsUpload.asp"-->

حيث هذه الصفحة تحتوي على كود ال object oriented التي تم تعريفها.

Set objUpload = New clsUpload

حيث الخاصية New clsUpload التي سوف تقوم التي تحدد في إرفاق الملفات، والتي تم تعريفها داخل الملف clsUpload.asp.

والمتغير objUpload الذي سوف نتعامل به في عملية استقبال الملفات.

strFileName = objUpload.Fields("File1").FileName

حيث

 objUpload.Fields("File1")

حيث هنا سوف يتم استقبال الملف المرسل من صفحة demo.asp.

حيث objUpload تعتبر مثل request . حيث objUpload تم تعريفه بأنه سوف يقوم بالتعامل مع الملفات.

File1: اسم الحقل من الفورم الذي يتم رفع الملف من خلاله.

ممكن تكتب عملية الاستقبلا بهذا الشكل أيضاً

objUpload("File1")

.FileName عند وضعها مع الملف الذي سوف نستقبله سوف نستطيع الحصول على اسم الملف.

وسوف يتم تخزينه اسمه داخل المتغير

strFileName

Set objConn = Server.CreateObject("ADODB.Connection")
Set objRs = Server.CreateObject("ADODB.Recordset")

' Sometimes I personally have errors with one method on different servers, but the other works.
objConn.Open "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" & Server.MapPath("Files.mdb")
'objConn.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("Files.mdb")

هنا عملية الاتصال بقواعد البيانات،

objRs.Open "Files", objConn, 3, 3

هنا سوف يتم فتح الجدول files من قواعد البيانات، وفتح الاتصال بقواعد البيانات.

objRs.AddNew

objRs.Fields("FileName").Value = objUpload.Fields("File1").FileName
objRs.Fields("FileSize").Value = objUpload.Fields("File1").Length
objRs.Fields("ContentType").Value = objUpload.Fields("File1").ContentType
objRs.Fields("BinaryData").AppendChunk objUpload("File1").BLOB & ChrB(0)

objRs.Update

هنا سوف يتم إضافة السجل إلى قاعدة بيانات.

objRs.Fields("FileName").Value = objUpload.Fields("File1").FileName

حيث الحقل FileName من جدول ال Files قيمته سوف تساوي اسم اسم الملف المرفق.

objRs.Fields("FileSize").Value = objUpload.Fields("File1").Length

الحقل FileSize من الجدول قيمته سوف تساوي حجم الملف المرفق عن طريق الخاصية Length.

objRs.Fields("ContentType").Value = objUpload.Fields("File1").ContentType

الحقل

ContentType من الجدول قيمته سوف تساوي نوع الملف المرفق هل هو ملف gif او html او zip ... إلخ.، ويتم تحديدها من خلال الخاصية ContentType

objRs.Fields("BinaryData").AppendChunk objUpload("File1").BLOB & ChrB(0)

الحقل BinaryData من الجدول وهو الذي سوف يتم تخزين الملف بداخله.

حيث AppendChunk تعني بأنه سوف يتم تخزين كمية من البيانات الضخمة.

objUpload("File1").BLOB قم بتخزين الملف.

objRs.Open "SELECT Max(FileID) AS ID FROM Files", objConn, 3, 3

حيث هنا تم إنشاء استعلام سوف يقوم باحضار اكبر قيمة للحقل FileID وسوف يكون اسمها المستعار هو id.

lngFileID = objRs.Fields("ID").Value

المتغير lngFileID سوف يساوي القيمة الناتجة من جمل الاستعلام.

<A href="DataFile.asp?FileID=<%=lngFileID%>"><%=strFileName%></A>

هنا سوف سوف يتم الذهاب إلى رابط الذي سوف يقوم بعرض الملف الذي تم تخزينه داخل قاعدة البيانات وحاملاً مع المتغير fileid والذي قيمته تساوي القيمة المخزنة داخل المتغير lngFileID

وهكذا تم عملية تخزين الملف داخل قاعدة البيانات.

بارك الله فيك اخى عبد الله جابر

ان شاء الله احول تنفيد البرنامج واقول لك على صار معى ان شاء الله مشكور

مشكور يا أستاذ عبدالله

بارك الله فيك

الصراحة لا أجد كلمات تعبر عن المجهودات الخرافية التى تقوم بها ,أعانك الله

يا أخ عبد الله أنا سألتك كيف أرفع صورة من الجهاز لمجلد على النت وليس أخزن في قاعدة ولا حاجة

الآن بعد ما أدخل مسار الصورة لحقل معين بدي أضغط على زر للتحميل قد يحمل متغير ويذهب لصفحة upload فهناك بختصار رجاءا ماذا يحدث بالكود لو سمحت وشكرا يا صاحبي

غلبتك معي

شكرا

السلام عليكم

اخ jahjouh.com، اعتقد بانك قمت بتحميل الملف من الموقع وليس من المشاركة.

سوف تجد داخل المجلد صفحة اسمها ToFileSystem.asp، التي سوف تقوم برفع الصورة إلى المجلد، بعد أن تقوم بإرفاق الصورة من صفحة demo.asp.

سوف يتم التالي في الصفحة:

Set objUpload = New clsUpload

المتغير objUpload سوف يعرف على انه من نوع object لتحميل الملفات.

strFileName = objUpload.Fields("File1").FileName

المتغير strFileName سوف يتم تخزين بداخله اسم الملف المرفق، حيث:

objUpload.Fields("File1")

objUpload هذا المتغير الذي قمنا بتعريفها، سابقاً وسوف يعمل مثل الخاصية request لاستقبال البيانات المرسلة من الفورم.

Fields("File1")

هنا اسم الحقل التي قمت عن طريقه رفع الصورة.

FileName

عن طريقه سوف يتم الحصول إلى اسم الملف للملف المرفق.

strPath = Server.MapPath("Uploads") & "\" & strFileName

هنا سوف يتم وضع مسار الملف الذي لكي يتم تخزينه مع احتوائه على الملف المرفق ، داخل المسار الذي سوف تحدده أنت.

objUpload("File1").SaveAs strPath

هنا سوف يتم تخزين الملف المرفق داخل المسار المحدد.

مع تحياتي

تحياتي أخواتي و أخواني الكرام

انا احتاج كما قال الأخ عبدالله

أخي الكريم أنت سوف تقوم أولاً بإرفاق الصور إلى مجلد، وفي قاعدة البيانات سوف تقوم بتخزين امتداد الصورة، وعندما تقوم بعرض الصورة، تضع امتداد الصورة المخزنة داخل الجدول ، داخل وسم ال html الخاص بالصور.

فعندها سوف يتم عرض الصور.

كيف يمكني عمل ذلك أرجو منكم الرد السريع

ودمتم سالمين

يا جماعة ارجوكم ردو .

انا في انتظاركم.

شكرا لكم

أين انتم

فقط مع امين ستجدون الجواب الشافي!!!!!!!!!!!!!

امين ...........مسلم.........رام الله ...........فلسطين

و لكن الملفات ليس معي الان

بعد فترة وجيزة ان شاء الله