قرار دادن امکان upload

[mehrdad85]

سلام
دوستان اگه بخوایم داخل یک صفحه به کاربراناین امکان را بدیم که بتونن یک فایل را upload کنن باید چکار کنیم؟
محل ذخیره شدن فایل ها روی سرور و دسترسی به اونا را چطور تنظیم میکنن؟


مرسی

[alonemm]

باسلام:
کمی جستجو کنید.
درباره شی FileUplode در تالار.

[alibabaei2]

یک کنترل fileUpload در صفحه بگذارید س کد زیر را برایش بنویسید





{


string filename = "nopic.gif";
if (fudPic.HasFile)
{
filename = fudPic.FileName;
fudPic.SaveAs(Server.MapPath("pics\\") + filename);
}



fudPic آیدی کنترل fileUpload می باشد . ابتدا توسط متد HasFile چک می کنیم که فایلی انتخاب شده باشد
اگر فایلی انتخاب شده بود نام آن را در filename ذخیره می کنیم سپس توسط متد saveas آن را در مسیر دلخواه ذخیره می کنیم

[Shamim832]

دوست من سلام ،قبل از هرسوالی سرچ کنید دراین موردکلی بحث شده


Private Sub GetUpload_NewsImage()

Dim FileName As String
Dim TimeUpload As String = DateTime.Now.Millisecond.ToString() + "_"

If FileUploadNewsImage.HasFile Then
If FileUploadNewsImage.PostedFile.ContentLength < 10240 Then
lblMessage2.Text = "حجم فایل ارسالی کمتر از 10 کیلوبایت میباشد"
lblMessage2.Visible = True
Else
If (FileUploadNewsImage.PostedFile.ContentType = "image/jpeg") Then
FileName = TimeUpload + FileUploadNewsImage.PostedFile.FileName

'********InsertNewsImage To Folder**********
FileUploadNewsImage.SaveAs(Server.MapPath("~/Images/NewsImage/" + FileName))
'********InsertNewsImage To Folder**********

lblMessage2.Text = "فایل موردنظرباموفقیت آپلودشد!!!"
lblMessage2.Visible = True
Else
lblMessage2.Text = "فقط فایل باپسوند(jpeg)میتواندآپلودشود !!"
lblMessage2.Visible = True
End If
End If
Else
lblMessage2.Text = "هیچ فایلی انتخاب نشده است!!!"
lblMessage2.Visible = True
End If
End Sub