Upload файлов с уникальными именами в ASP.NET

Задача: необходимо загружать файлы в папку upload на сервере с уникальными именами. Т.е. при загрузке двух файлов с одинаковыми именами они должны сохраняться под уникальными именами и не перезаписывать друг друга. В ASP.NET эта задача легко решается с помощью класса Guid. Т.о. файл будет сохранен например под именем fe008e1a-f07c-4263-8dc4-67f042a8cbdb_valley.jpg.
Папка upload должна иметь NTFS права на чтение/запись/изменение для интернет-пользователя.
Файл upload_cs.aspx (написан на C#):

<%@ Page Language="C#" %>
<script language="C#" runat="server">
void Upload_Click(Object sender, EventArgs e) {
string strFileName, strRootUpload, strUniqueName;
int index;
strRootUpload = Server.MapPath("./upload");
lblMessage.Text = "";
if (fileInp.PostedFile != null) {
try {
strFileName = fileInp.PostedFile.FileName;
if (strFileName != "") {
strFileName = strFileName.Replace("/", "\\");
index = strFileName.LastIndexOf("\\");
strFileName = strFileName.Substring(index + 1);
strUniqueName = System.Guid.NewGuid().ToString() + "_" + strFileName;
fileInp.PostedFile.SaveAs(strRootUpload + "\\" + strUniqueName);
lblMessage.Text = "Файлуспешнозагруженсименем " + strUniqueName + "<p>";
}
}
catch (Exception ex) {
lblMessage.Text = ex.Message + "<p>";
}
}
}
</script>
<HTML>
<HEAD>
<Title>Unique Upload</Title>
</HEAD>
<BODY>
<form enctype="multipart/form-data" runat="server">
<asp:Label id="lblMessage" runat="server" />
Файл:<br>
<input id="fileInp" type="file" runat="server"><br>
<asp:button text="Загрузить" onclick="Upload_Click" runat="server" />
</form>
</BODY>
</HTML>
Файл upload_vb.aspx (написанна VB.NET):
<%@ Page Language="VB" %>
<script language="VB" runat="server">
Sub Upload_Click(ByVal sender As Object, ByVal e As EventArgs)
Dim strFileName, strRootUpload , strUniqueName As String
Dim index As Integer
strRootUpload = Server.MapPath("./upload")
lblMessage.Text = ""
If Not (fileInp.PostedFile Is Nothing) Then
Try
strFileName = fileInp.PostedFile.FileName
If strFileName <> "" Then
strFileName = strFileName.Replace("/", "\")
index = strFileName.LastIndexOf("\")
strFileName = strFileName.Substring(index + 1)
strUniqueName = System.Guid.NewGuid().ToString() + "_" + strFileName
fileInp.PostedFile.SaveAs(strRootUpload & "\" & strUniqueName)
lblMessage.Text = "Файлуспешнозагруженсименем " & strUniqueName & "<p>"
End if
Catch ex As Exception
lblMessage.Text = ex.Message & "<p>"
End Try
End If
End Sub
</script>
<HTML>
<HEAD>
<Title>Unique Upload</Title>
</HEAD>
<BODY>
<form enctype="multipart/form-data" runat="server">
<asp:Label id="lblMessage" runat="server" />
Файл:<br>
<input id="fileInp" type="file" runat="server"><br>
<asp:button text="Загрузить" onclick="Upload_Click" runat="server" />
</form>
</BODY>
</HTML>

Внимание, отключите Adblock

Вы посетили наш сайт со включенным блокировщиком рекламы!
Ссылка для скачивания станет доступной сразу после отключения Adblock!

Скачать полную версию

Рефераты по информатике Задача: необходимо загружать файлы в папку upload на сервере с уникальными именами. Т.е. при загрузке двух файлов с одинаковыми именами они должны

Оценок: 335 (Средняя 5 из 5)

Наверняка у вас есть товары или услуги, продажа которых приносит вам максимальную прибыль. Для быстрого старта в сети вам необходимо создание посадочной страницы (одностраничного сайта), на которой будет размещена информация о маржинальных товарах/услугах интернет магазина. За 8 лет опыта разработки конверсионных страниц мы выработали оптимальную структуру, которая позволит привлекать через landing page больше продаж. На такую структуру «одевается» ваш контент — фирменный стиль, тексты, фотографии, уникальные торговые предложения, после чего страница выходит в свет. Разработка лендинга и запуск в сети — до 7 рабочих дней. Стоит отметить, что в разработку самой посадочной страницы входит и написание копирайтером продающих текстов для вашего бизнеса, чтобы каждый посетитель страницы захотел совершить покупку именно у вас. Результат: качественно разработаная продающая посадочная страница, которая готова приносить вам новых клиентов.