Информатика / Статья: Upload файлов с уникальными именами в ASP.NET

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

<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>"

К-во Просмотров: 207
Бесплатно скачать Статья: Upload файлов с уникальными именами в ASP.NET