كود للdonwload لكن لا يعمل ..

المشكلة في Encoding الخاص بالصفحة .. جرب أن تقوم بعمل Save As لصفحات الموقع مع اختيار Unicode .. وهل السيرفر الذي عليه الموقع يدعم أسماء ملفات عربية .. ويا ريت أخي تجرب وضع ملفات بأسماء إنجليزية وجرب أيضاً ..

استخدمت سكربت download لكن لم أستطيع ربطه باستخدام Response

فكيف الطريقة .. لأنه هناك خطأ .. والكود كالتالي :

 
		Response.Write("<a href=download.aspx?file=/Uploadfiles/Examl/123.txt" + "'>" + "Download</a>")

هناك عدة أخطاء في السطر الذي كتبته يا أخي الحبيب .. ولو أمكن الأفضل أن تمدني بكود صفحة Download.aspx

جرب التالي واكتشف الأخطاء:

Response.Write("<a href='download.aspx?file=/Uploadfiles/Examl/123.txt'>Download</a>")

ولم لا تسخدم السطر التالي لعمل Download للاختصار:

Response.Write("<a href='Uploadfiles/Examl/123.txt'>Download</a>")

موجود بهذه الصفحة

http://www.xefteri.com/articles/show.cfm?id=8

طيب ممكن رسالة الخطأ التي تظهر لك .. أنا لم أرى خطأ في الكود .. وهل جربت ما كتبته لك في مشاركتي السابقة

لا يا اخي الفاضل رسالة الخطأ قبل أن أستخدم ملف Download.aspx لكنها جت مشكلة أخرى انه لم يتم التنزيل

بالكود الذي ذكرته بالسابق

Response.Write("<a href='download.aspx?file=/Uploadfiles/Examl/123.txt'>Download</a>")

حيث انه يقوم بتحميل ملف Download على انه HTML page

وأيضا جربت هذا الكود ولم ينفع

Dim root As String = Server.MapPath("~/UploadFiles/Exam_Girl")
		Dim files() As String = Directory.GetFiles(root)
		Dim sb As New StringBuilder(2048)
		Dim f As String
		For Each f In files
			Dim filename As String = Path.GetFileName(f)
			sb.Append("<br><a href=Down.aspx?file=")
			sb.Append(root).Append(Server.UrlEncode(filename))
			sb.Append(">").Append(filename).Append("</a>")
		Next
		Dim a As String = sb.ToString()
		Response.Write(a)

وأخيرا استخدمت هذا الكود لكن لن تأتي نفس الرسالة السابقة ..

Dim di As New IO.DirectoryInfo(Server.MapPath("~/UploadFiles/Sch_jb"))
		Dim fiArr As System.IO.FileInfo() = di.GetFiles()
		Dim fi As System.IO.FileInfo
		For Each fi In fiArr

			Dim hl As New HyperLink
			hl.Text = fi.Name.Replace(Path.GetExtension(fi.Name), "")
			hl.NavigateUrl = "/UploadFiles/Exam_jb/" + fi.Name
			Page.Controls.Add(hl)
			Page.Controls.Add(New LiteralControl("<br/>"))


		Next fi

أخيرا أشتغل الكود .. لكن كيف أوسط hyperLink في الصفحة ..

Dim di As New IO.DirectoryInfo(Server.MapPath("~/UploadFiles/Exam_jb"))
		Dim fiArr As System.IO.FileInfo() = di.GetFiles()
		Dim fi As System.IO.FileInfo
		For Each fi In fiArr
			Dim hl As New HyperLink
			hl.Font.Size = 20
			hl.Text = fi.Name.Replace(Path.GetExtension(fi.Name), "")
			hl.NavigateUrl = "~/UploadFiles/Exam_jb/" + fi.Name
			Page.Controls.Add(hl)
			Page.Controls.Add(New LiteralControl("<br/>"))


		Next fi

أخي الكريم .. تمهل علينا قليلاً فمن كلامك يوجد أخطاء كثيرة يمكن حلها ..

1- تحميل صفحة Download على أنها HTML فهذا له حل ويمكنك أن تعرفه بمفردك لو عملت تعقب Trace صحيح

2- يجب أن تغير في URL الموجود في href حسب مسار الملف عندك على مجلد البرنامج .. فمثلاً href=../../download.aspx غير href=/download.aspx غير href=download.aspx

3- إن كان دور الصفحة download.aspx هو مجرد التنزيل دون أي شيء آخر فالأفضل أن تتبع ما قمت بتوضيحه من قبل

Response.Write("<a href='Uploadfiles/Examl/123.txt'>Download</a>")

مع تغيير href كما ذكرت في (2)

4- للتوسيط يوجد html tags عديدة تؤدي هذا الدور .. جرب

Page.Controls.Add(New LiteralControl("<center>"))
 Page.Controls.Add(hl)
			Page.Controls.Add(New LiteralControl("</center><br/>"))

وهناك أيضاً الخاصية align=center والتي تعطى لكثير من الأدوات مثل <tr> و <td> و <p> وغيرها

وبالتوفيق إن شاء الله أخي الكريم

جزاك الله خير أخي الفاضل , وسوف أجرب طريقتك وأرد عليك ..

نجحت الطريقة تسلم يالغالي ..

موضوع جميل ،

سوف أجرب لاحقا !

،بالتوفيق .

لقد فعلتها ، و نجحت!!

الحمد لله سوف أنام على الأقل مبتسمة :D !

المشروع مرفق ، بإستخدام لغة الفيجوال بيسك نت و تقنية الـ ASP.Net ، و ضمن برنامج الفيجوال ستديوا -إصدار 2008

download.zip

، تحياتي لكم

الحمد لله .. ألف مليون مبارك عليكم النجاح

وأنا تحت أمركم في أي وقت ... أخوكم محمد