مسَآعَدهَـ [ عرَضَ صَور آلمنتَجآت ] ~ << ضروريَ جداً

#12 يوليو 2011 في 16:43 صاحب الموضوع

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

آلاعزآء الكرام

الرجـاء مسـاعدتي في حل مشكله عرض الصور

طبعاً قمت اولاً بـ البحث داخل المنتدى

ومعظم النتائج كانت نفس الطريقه حقي

~

في الحقيقه ان الصور تظهر معي على جهازي

امـا عند رفعها لموقع الاستضافه لا تظهر

ولا ادري ما السبب

~

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

وتخزين الصوره داخل مجلد مرفق مع المشروع

~

وهذا كـود عرض السجل ~

Dim cmd As New System.Data.OleDb.OleDbCommand()
Dim dr As System.Data.OleDb.OleDbDataReader
Try
ProName = DropDownList1.SelectedItem.Text
Conn.ConnectionString = ConString
Conn.Open()
cmd.Connection = Conn
cmd.CommandText = "select * from Products Where ProName= '" & ProName & "'"
dr = cmd.ExecuteReader()
dr.Read()
If dr.HasRows Then
Name.Text = dr("ProName").ToString
Price.Text = dr("ProPrice").ToString
Notes.Text = dr("Notes").ToString
TypeTxt0.Text = dr("ProType").ToString
ProID.Text = dr("ID").ToString
ProImage1.ImageUrl = "~/upload/" + dr("ProImage").ToString
ProImage2.ImageUrl = "~/upload/" + dr("ProImage2").ToString
dr.Close()
End If
dr.Close()
Catch err As Exception
Label1.Text = err.Message
Finally
Conn.Close()
End Try
If Me.Name.Text = "" Then
Label1.Text = " .. "
Exit Sub
End If

وهذا بـ الاخص الكود الذي يعرض الصوره

ProImage1.ImageUrl = "~/upload/" + dr("ProImage").ToString
ProImage2.ImageUrl = "~/upload/" + dr("ProImage2").ToString

وفعلاً الصوره تظهر في السريفر المحلي [ جهازي ]

امـا عند رفع الموقع الى الاستضافه

كل شي يظهر اسم المنتج ومعلومات

مـا عدا الصوره مـاا تظهر

~

الرجـاء مسـاعدتي في ايجـاد الحل الانسب

المشروع متوقف عند هذه النقطه

والعمـيل ينتظر تسليم المشروع قبل رمضان

ارجـوآ التفاعلَ مع الموضوع

وشكراً لكمَ

~

Mister Programmer

تم تعديل هذه المشاركة بواسطة Master-Taha في 2 يوليو 2011 في 16:56

#22 يوليو 2011 في 17:22

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

اخي اولا تأكد انه تم رفع الصور قبل عرضها, وثاني حاجه تأكد انه اسم الصوره هو المضاف في الجدول وليس مسارها!!

.:: Wish to become better and better ::.

#32 يوليو 2011 في 18:00

أخي إنت لما ترفع الموقع على النت لازم يكون قبل إسم المجلد Server.MapPath

هيك يعني

ProImage1.ImageUrl = Server.MapPath("upload/") + dr("ProImage").ToString

الله أكبر الله أكبر الله أكبر لآ إله إلا الله الله أكبر الله أكبر ولله الحمد

http://live1.islamweb.net/Adan/4025.mp3

#43 يوليو 2011 في 19:20

اقتباس
السلام عليكم ورحمه الله وبركاته
اخي اولا تأكد انه تم رفع الصور قبل عرضها, وثاني حاجه تأكد انه اسم الصوره هو المضاف في الجدول وليس مسارها!!

اخي في بي هليبر ~

انـا متأكـد من وجود الصور والمجلد ~

والصور يتم عرضهـا في جهازي [ سريفر محلي ]

اما على الاستضافه لا تظهر ~

.........................

اقتباس
أخي إنت لما ترفع الموقع على النت لازم يكون قبل إسم المجلد Server.MapPath
هيك يعني
expand | plain text
ProImage1.ImageUrl = Server.MapPath("upload/") + dr("ProImage").ToString

اخي العزيز ..

الطريقة التي قلت عليهـأ انا طبعاً استخدمتهـأ .... ولكنهآ لا تظهر الصور وانما استخدمها عند حفظ الصوره الى المجلد

واستغربت فعلاً عند استخدام طريقتك ان الصوره لا تظهر ~

~

شكراً لمسأعدتكمَ ...

وما زلت انتظر الحل ... ^_^

#53 يوليو 2011 في 19:40

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

اخي ممكن تكتب كود الحفظ والعرض ليتم فحصه؟

.:: Wish to become better and better ::.

#63 يوليو 2011 في 20:34

Server.MapPath تحضر لك إسم الموقع كاملاً وتستطيع استخدامها عند الحفظ والعرض

وبما إنو تقول إنو الصورة ما عم تنعرض لما ترفع الموقع على السيرفر

تأكد أن الصورة رفعت على مجلد الصور في موقعك

وإذا كانت مرفوعة عندها إضغط على المكان الذي يجب أن تعرض الصورة فيه باليمين وشوف في الخصائص شو هو المسار

وعدل الكود

ProImage1.ImageUrl = Server.MapPath("/upload/") + dr("ProImage").ToString

تم تعديل هذه المشاركة بواسطة KV2010 في 3 يوليو 2011 في 20:39

الله أكبر الله أكبر الله أكبر لآ إله إلا الله الله أكبر الله أكبر ولله الحمد

http://live1.islamweb.net/Adan/4025.mp3

#73 يوليو 2011 في 21:51

السَلام عليكمَ ..

آخي في بي هلبير ...

تفضل . هذآ كـود الحفظ ..

  Dim Conn As New System.Data.OleDb.OleDbConnection()
        Dim cmd As New System.Data.OleDb.OleDbCommand()
        Dim dr As System.Data.OleDb.OleDbDataReader
        Try
            Dim R As New Random
            Randomize()
            Dim Number As Integer
            Number = R.Next(10, 10005)
            Dim Img1 As String = "Img1_" & Number & "_" & ImageUploadTxt.FileName
            Dim Img2 As String = "Img2_" & Number & "_" & ImageUploadTxt2.FileName
            Dim savepath, save2 As String
            savepath = String.Format("{0}{1}", Server.MapPath("upload\"), Img1)
            If ImageUploadTxt.HasFile = True Then
                ImageUploadTxt.PostedFile.SaveAs(savepath)
            End If
            save2 = String.Format("{0}{1}", Server.MapPath("upload\"), Img2)
            If ImageUploadTxt2.HasFile = True Then
                ImageUploadTxt2.PostedFile.SaveAs(save2)
            End If
            Dim SQL As String
            SQL = "insert into products values (" & Number & ",'" & Me.NameTxt.Text & "','" & Me.TypeTxt.Text & "','" & Me.PriceTxt.Text & "','" & Img1 & "','" & Me.NotesTxt.Text & "','" & Img2 & "')"
            Conn.ConnectionString = ConString
            Conn.Open()
            cmd.Connection = Conn
            cmd.CommandText = SQL
            dr = cmd.ExecuteScalar()
            Me.Panel1.Visible = False
            Me.Panel2.Visible = True
            Me.Button1.Visible = True
            Me.NameTxt.Text = ""
            Me.PriceTxt.Text = ""
            Me.NotesTxt.Text = ""
            Label1.Text = "   تـم إضافة المنتج بنجاح   "
            Response.Redirect("AdminProducts.aspx")            
        Catch ex As Exception
            Label1.Text = ex.Message
            Exit Sub
        End Try

وهذا كـود عرض الصور ..

        Try
            ProName = DropDownList1.SelectedItem.Text
            Conn.ConnectionString = ConString
            Conn.Open()
            cmd.Connection = Conn
            cmd.CommandText = "select * from Products Where ProName= '" & ProName & "'"
            dr = cmd.ExecuteReader()
            dr.Read()
            If dr.HasRows Then
                Name.Text = dr("ProName").ToString
                Price.Text = dr("ProPrice").ToString
                Notes.Text = dr("Notes").ToString
                TypeTxt0.Text = dr("ProType").ToString
                ProID.Text = dr("ID").ToString
                ProImage1.ImageUrl = "~\upload\" + dr("ProImage").ToString
                ProImage2.ImageUrl = "~\upload\" + dr("ProImage2").ToString
                dr.Close()
            End If
            dr.Close()
        Catch err As Exception
            Label1.Text = "عفوا لم نتمكن من قراءة البيانات ."            
        Finally
            Conn.Close()
        End Try

~

شكراً لكـ .. وانتظر اجابتك .. ^_^

#83 يوليو 2011 في 21:58

اخي KV2010

تمـ تجربه الكود الخاص بكـ ..

وضغطت على الصورهـ بـ الخصائص وظهر عند المسـار ~ هذا النص

Not Available

مما يعني ان الصوره غير موجود او انه لم يتعرف على المسار

~

امـا عند استخدام الكود السابق الموجود ... الذي استخدمه انا

وضغطت على خصائص الصوره ... ظهر المسـار هكذا ..

http://taha.somee.com/upload/Img2_2877_splashSpe.bmp

هذا يعني انه لازم احط مجلد الابلود وسط المجلدات حق الموقع ..

مع انه لازم يكون مكان الموقع والمجلد حق الابلود في هذا المسار

http://taha.somee.com/sehaat/upload/Img2_2877_splashSpe.bmp

على اسـاس ان sehaat المجلد الخاص بـ الموقع والمتواجد فيه ملفات الموقع ومجلد الابلود ..

~

وقد جربت ونسخت مجلد الابلود بمحتوياته الى الديكتوري الرئيسي للموقع ..

وفعلاً ظهرت الصور حق المنتجات ...

لكن هنـا تكمن مشكله .. وهي انه عند اضافه المنتج وصورته .. سيتم حفظها في مجلد ابلود الداخلي الموجود داخل المجلد sehaat وليس في المجلد الموجود وسط الديكتوري حق الموقع الرئيسي ~

~

غريبه فعلاً

انتظر افادتكـ اخي KV2010

~

^_^

تم تعديل هذه المشاركة بواسطة Master-Taha في 3 يوليو 2011 في 22:01

#94 يوليو 2011 في 01:05

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

اخي غير التالي في كود الحفظ

savepath = String.Format("{0}\{1}", Server.MapPath("upload"), Img1)

والكود التالي في العرض

ProImage1.ImageUrl =String.Format("{0}\{1}",Server.MapPath("upload"),dr("ProImage").ToString())

.:: Wish to become better and better ::.

#104 يوليو 2011 في 14:39

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

اولاً . اشكركـ اخي على رحابة صدركـ .. ومسآعدتكـ الطيبه لي

ثآنياً . بـ النسبه للكود تم التغيير كمـا قلت ..

وكـود حفظ الصـورهـ .. تمـام آشتغل ..

امـا كـود عرض الصوره لمَ يعمل ابداً ...

وهذآ شكلَ الصوره عند العرض بـ الكود الخاص بكـ .. :

وهذآ مربع الخصائص الخـاص بـ الصوره .. :

~

انوه لكـ اخي .. وهو انه عند استخدام هذا الكود في العرض ..

ProImage1.ImageUrl = "~\upload\" + dr("ProImage").ToString

لا تظهر الصوره ولكن عندمـا اضغط على خصائص الصوره .. تظهر هكذا

هذا يعني انه في حالة استخدام هذا الكود يتم اخذ الصوره من مجلد ابلود ولكن بشرط ان يكون في الديركتوري الرئيسي الخاص بـ الموقع ..

كـ أن نقول انه يأخذ بياناته من مجلد www ولآ يأخذهـا من مجلد vb .. كمـا هو المفترض عليه ...

~

وفعلاً عشآن اتأكـد نسخت مجلد ابلود بمحتوياته الى الديركتوري الرئيسي للموقع . والصور ظهرت ..

ولكن هذا لا يعتبر حلاً للمشكله ... ^_*

~

آنتظر افـادتكـ .. وشكراً لكـ

كن بخيرَ ~

^_^

المرفقات

تم تعديل هذه المشاركة بواسطة Master-Taha في 4 يوليو 2011 في 14:49

#114 يوليو 2011 في 16:35

عدنـا ..

آخوانـي .. فكرت في حل وانمـا حلَ عـادي

وهو نقل جميع ملفات الموقع الى المجلد الرئيسي للأستضافه ..

وبهذآ راح يقبل ظهور الصور بحيث انه اعتبر ان الصور في المجلد الرئيسي للأستضافه ..

~

واتمنى لو هناكـ حل لـ مشكله الصور .. بحث استطيع ادخال ملفات الموقع داخل مجلد خاص ..

~

ولكن لدي سؤال .. ولو خرجنـا من الموضوع .. وانمـا هو حول الموضوع .. < *_^

هو اني اريـد اعمل رابط href على الصور بحيث لمـا يضغطها يفتح الصورهـ في صفحة لحـالهـأ ~

لو كـان للصوره حدث كلكـ كنت بحظ الكود فيها حسب الـ URL حق الصوره ..

ولكن اعتقد انه في حل وهو عن طريق الـ href [ رابط تشعبي ] للصوره بحيث يآخذ الـ URL حق الصورهـ ..

لمن لديه الفكره الرجـاء افادتي ... وشكراً ..

~

^_^

تم تعديل هذه المشاركة بواسطة Master-Taha في 4 يوليو 2011 في 16:51

#124 يوليو 2011 في 16:44

عزيزي استخدم التالي

<a href="google.com"><imag>

</a>

تحياتي

وَعَبْدٌ قَدْ يَنامُ عَلَى حَرِيرٍ ××× وَذُو نَسَبٍ مَفَارِشُهُ التُّرَابُ

#134 يوليو 2011 في 16:54

اخي EMNALI

اولاً اشكركـ للمساعده

وبـ النسبه للحل حقك .. فهو يقتصر على عنوان محدد

والقصد انه عند الضغط على الصوره يظهر الصوره في صفحة اخرى .. [ جديدهـ ] ..

~

وانـا وجدت اداه من بين الادوات وهي اداه ImageButton ~

فعن طريقها استطعت عرض صور المنتجات واستطعت الحصول على الحدث كلكـ ..

وراح يكون في الحدث كلك هذا الكود .. وهو خاص بـ فتح الصوره في صفحة جديدة ..

 Response.Redirect(ImageButton1.ImageUrl)

شكراً لكمَ ,,

~

ومـا زلت انتظر حل لـعرض الصور من دون االلجوا الى المجلد الرئيسي للموقع

^_^

#144 يوليو 2011 في 18:08

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

اخي حيرتني شوي, كودي السابق على افتراض ان مجلد ال upload في جذر الموقع!! طيب وين موجود مجلد ال upload؟!!

.:: Wish to become better and better ::.

#154 يوليو 2011 في 21:01

~

اخي المجلد ابلود متواجد في جذر الموقع المصمم ~ والموقع ومجلد ابلود ادخل مجلد وهذا المجلد في جذر الموقع الرئيسي ...

~

واضرب لك مثال .

جذر الموقع هو www

والمنتدى يعتبر مجلد فرعي داخل www بأسم vb

فـ انا اريد ان يكون موقعي في مجلد كـ مجلد vb

وطبعاً داخل هذا المجلد ملفات الموقع وكذلك مجلد ابلود ...

المشكله هي ان عند تركيب الموقع على الاستضافه يعتبر ان مجلد الابلود متواجد في جذر الموقع www

وهو اصلاً موجود مثلاً في مجلد vb الي فيه ملفات الموقع

~

بمعنى اخر ..

ملفات الموقع مع مجلد ابلود داخل مجلد بـ اسم sehaat يعني الارتباط حق الصوره يكون هكذا

www.xxx.com/sehaat/upload/nameofimage.gif

ولكن عند تركيبه على الاستضافه بيكون المسـار هكذا

www.xxx.com/upload/nameofimage.gif

طبعاً غريبه ..

لان الكود يدل على ان المجلد متواجد داخل المجلد sehaat

~

ارجـوآ تكون فهمتنيَ ...

واظن الفكره وصلت ..

~

شكراً لكـ اخي

تم تعديل هذه المشاركة بواسطة Master-Taha في 4 يوليو 2011 في 21:04

#164 يوليو 2011 في 21:16

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

اخي اذا كان مجلد ال Upload في جهازك ضمن مجلد sehaat الذي بدوره في جذر الموقع ما عليك الا تغيير الجملة السابقة الى

ProImage1.ImageUrl =String.Format("{0}/{1}",Server.MapPath("sehaat/upload"),dr("ProImage").ToString())

.:: Wish to become better and better ::.

مسَآعَدهَـ [ عرَضَ صَور آلمنتَجآت ] ~ << ضروريَ جداً

المرفقات

مواضيع مشابهة