<html>
<head>
</head>
<body>
<h3>Using Html File Control</h3>
<form enctype="multipart/form-data" runat="server">
Selecione o arquivo para Upload:
<input type="file" id="fileControl" runat="server"><br>
Salve como: (Insira o nome e a extensão):
<input id="txtTargetName" type="text" runat="server"><br>
<input type=button id="btnLoad" value="Upload"
OnServerClick="btnLoad_Click" runat="server"><br>
<span id=span1 runat="server" /><br>
</form></html>
<script language="VB" runat="server">
Sub btnLoad_Click(s As Object, e As EventArgs)
If txtTargetName.Value = "" Then
span1.InnerHtml = "Erro: Insira um nome para o arquivo"
Return
End If
If Not (fileControl.PostedFile Is Nothing) Then
Try
fileControl.PostedFile.SaveAs((Server.Mappath("\ursername\db\") + txtTargetName.Value))
span1.InnerHtml = "Arquivo enviado para<b>.\db\" & _
txtTargetName.Value & "</b> em seu servidor web."
Catch err As Exception
span1.InnerHtml = "Erro ao salvar arquivo em <b>.\db" & _
txtTargetName.Value & "</b><br>" & err.ToString()
End Try
End If
End Sub
</script>
</body>
Pergunta
ursolouco
Aspers!!!
Usando 'HTML FILE CONTROL' com VB.Net!!!
<html> <head> </head> <body> <h3>Using Html File Control</h3> <form enctype="multipart/form-data" runat="server"> Selecione o arquivo para Upload: <input type="file" id="fileControl" runat="server"><br> Salve como: (Insira o nome e a extensão): <input id="txtTargetName" type="text" runat="server"><br> <input type=button id="btnLoad" value="Upload" OnServerClick="btnLoad_Click" runat="server"><br> <span id=span1 runat="server" /><br> </form></html> <script language="VB" runat="server"> Sub btnLoad_Click(s As Object, e As EventArgs) If txtTargetName.Value = "" Then span1.InnerHtml = "Erro: Insira um nome para o arquivo" Return End If If Not (fileControl.PostedFile Is Nothing) Then Try fileControl.PostedFile.SaveAs((Server.Mappath("\ursername\db\") + txtTargetName.Value)) span1.InnerHtml = "Arquivo enviado para<b>.\db\" & _ txtTargetName.Value & "</b> em seu servidor web." Catch err As Exception span1.InnerHtml = "Erro ao salvar arquivo em <b>.\db" & _ txtTargetName.Value & "</b><br>" & err.ToString() End Try End If End Sub </script> </body>Util para upload dentro do Brinkster
Link para o comentário
Compartilhar em outros sites
0 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.