PDA

View Full Version : سوال: آپلود یک فایل در Host



VB.NET2005
پنج شنبه 03 مرداد 1387, 18:21 عصر
با سلام :
میخاستم بدونم چه جوری میشه یه فایل اکسس رو در پوشه App_Data موجود در یک سایت آپلود کنم .
به عنوان مثال آدرس سایت این باشه : www.mypage.com/App_Data

VISUAL BASIC 2005

VB.NET2005
پنج شنبه 03 مرداد 1387, 21:48 عصر
اساتید نظری ندارند ؟

m.hamidreza
جمعه 04 مرداد 1387, 14:13 عصر
از طریق ftp. یوزر و پسورد ftp رو باید داشته باشی. تو یه پنجره اینو تایپ کن :


ftp://mypage.com

VB.NET2005
جمعه 04 مرداد 1387, 16:06 عصر
با سلام :
من میخام تویه صفحه APS با یه براوزر یه فایل رو انتخاب کنم بعد اونو بوسیله یک Button تو Host خودم آپ کنم .

با تشکر

m.hamidreza
جمعه 04 مرداد 1387, 17:59 عصر
خوب!
یه کنترل File Upload با یه Button بذار. در رویداد Click باتن، اون فایلی که یوزر انتخاب کرده رو در پوشه App_Data با متد SaveAs کنترل FileUpload ذخیره کن. میتونی چک کنی که پسوند حتما mdb باشه و مسیر رو هم بصورت Map شده میدی. فقط مجوز Write برای پوشه App_Data باید داشته باشی.

VB.NET2005
جمعه 04 مرداد 1387, 18:08 عصر
دوست عزیز لازم به دادن یوزر و پسورد host نیست .

میشه یه مثال از کدش بزارید ؟

m.hamidreza
جمعه 04 مرداد 1387, 19:46 عصر
دوست عزیز لازم به دادن یوزر و پسورد host نیست .

؟؟!!!


برای آدرس دهی :


String path = Server.MapPath("~/App_Data");
برای پسوند فایل و موجود بودن فایل:


Boolean fileOK = false;
Boolean hasfile = true;
if (FileUpload1.HasFile)
{

String fileExtension = System.IO.Path.GetExtension(FileUpload1.FileName). ToLower();

String[] allowedExtensions = { ".gif", ".png", ".jpeg", ".jpg"};
for (int i = 0; i < allowedExtensions.Length; i++)
{
if (fileExtension == allowedExtensions[i])
{
fileOK = true;
}

}
}
else { hasfile = false; }
ذخیره فایل با نام دلخواه در مسیر از قبل تعریف شده :


FileUpload1.PostedFile.SaveAs(path + "نام دلخواه" + System.IO.Path.GetExtension(FileUpload1.FileName). ToLower());

VB.NET2005
جمعه 04 مرداد 1387, 21:13 عصر
با تشکر از شما .

دوست عزیز یعنی با قرار دادن کد های بالا در Button با فشردن اون فایله مورده نظرم در مسیر زیر آپ میشه ؟
http://www.mypage.com/App_Data
اگه اینجوریه پسس ما رو هر سایتی میتونیم فایل آپلود کنیم که ؟ ؟ ؟ ؟ ؟ ؟ ؟

m.hamidreza
جمعه 04 مرداد 1387, 22:34 عصر
اگه مجوز Write واسه اون پوشه داشته باشی بله!
اگه فکر میکنی چیز بدرد بخوریه آپلود کن خوب! فکر مجوز Read ش هم باید بکنی....

VB.NET2005
جمعه 04 مرداد 1387, 22:49 عصر
با تشکر .

دوست عزیز من باید خودم از کنترل پنل Host اجازه Write بدم ؟

m.hamidreza
جمعه 04 مرداد 1387, 22:53 عصر
بستگی به کنترل پنل هم داره اگه چیزی تو Permission ها پیدا نکردی با پشتیبانی هاست تماس بگیر.

baidin
پنج شنبه 31 مرداد 1387, 11:00 صبح
با سلام:
من هم یه مشکل در آپلود دارم که نمی دونستم اینجا بایستی مطرح میشد یا نه ولی خواهشمند است اساتید راهنمایی کنند.
مشکل اینه که من فضایی را اجاره کرده ام که به صورت پیشفرض یه صفحه ای با نام index.html در آن وجود داشت که با وارد کردن نام دومین به درستی باز می شه ولی زمانی که من سایت را آپلود می کنم ( نام یکی از صفحه های سایت خودم index.aspx است) و این صفحه باز نمی شه. آیا باید حتماً پسوند html باشه؟ :عصبانی++:

m.hamidreza
پنج شنبه 31 مرداد 1387, 19:23 عصر
نه! توی IIS قسمتی هست به نام default content page که شما یه گروه صفحه رو با پسوندهای مختلف تعیین میکنی که بعنوان صفحه ی پیش فرض اون دومین نمایش داده بشن.
شما باید از وجود نام صفحه ی index.aspx تو اون گروه مطمئن شی. این امکان معمولا از طریق کنترل پنل ادمین وب سایتتون قابل انجام هست اونجا باید بگردی. اگه چیزی پیدا نکردی با پشتیبانی هاست تماس بگیر و بگو index.aspx رو اضافه کنه.

VB.NET2005
جمعه 01 شهریور 1387, 09:16 صبح
دوست عزیز من از این کد استفاده می کنم و مشکلی هم پیش نیومده :



Protected Sub Upload_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Upload.Click
Dim path As String = Server.MapPath("~/App_Data/")
Dim fileExtension As String = System.IO.Path.GetExtension(FileUpload1.FileName). ToLower()
If FileUpload1.HasFile Then
UploadError.Text = Nothing
If fileExtension = ".mdb" Then
UploadError.Text = Nothing
FileUpload1.PostedFile.SaveAs(path + "ClassAverageDB" + System.IO.Path.GetExtension(FileUpload1.FileName). ToLower())
UploadError.Text = "بانک اطلاعاتی با موفقیت بروز رسانی شد"
Else
UploadError.Text = "شما مجاز به ذخیره این فایل نمی باشید"
End If
Else
UploadError.Text = "لطفا بانک اطلاعاتی را انتخاب نمایید"
End If
End Sub