Ведущий Диалог
Зарегистрирован:
10 July 2005
Сообщения: 110
Примеры кода: 0
|
Re[8]: ..опять загрука файла (( |
02 July 2006 11:23 |
|
|
|
|
Я попробовал форму с одним аплоадом:
<%@ Page Language="vb" AutoEventWireup="false" Codebehind="upl.aspx.vb" Inherits="ceo_test.upl"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
<HEAD>
<title>upl</title>
<meta name="GENERATOR" content="Microsoft Visual Studio .NET 7.1">
<meta name="CODE_LANGUAGE" content="Visual Basic .NET 7.1">
<meta name="vs_defaultClientScript" content="JavaScript">
<meta name="vs_targetSchema" content="http://schemas.microsoft.com/intellisense/ie5">
</HEAD>
<body>
<form id="Form1" enctype="multipart/form-date" method="post" runat="server">
<P>
<INPUT type="file" runat="server" id="fileUpl" name="fileUpl">
<asp:Button id="Button1" onclick="make_upload" runat="server" Text="Upload"></asp:Button></P>
<P>
<asp:Label id="Message" runat="server"></asp:Label></P>
</form>
</body>
</HTML>
Public Class upl
Inherits System.Web.UI.Page
#Region " Web Form Designer Generated Code "
'This call is required by the Web Form Designer.
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
End Sub
Protected WithEvents Button1 As System.Web.UI.WebControls.Button
Protected WithEvents Message As System.Web.UI.WebControls.Label
'NOTE: The following placeholder declaration is required by the Web Form Designer.
'Do not delete or move it.
Private designerPlaceholderDeclaration As System.Object
Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
'CODEGEN: This method call is required by the Web Form Designer
'Do not modify it using the code editor.
InitializeComponent()
End Sub
#End Region
Public fileUpl As HtmlInputFile
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'Put user code to initialize the page here
End Sub
Sub make_upload(ByVal sender As Object, ByVal e As System.EventArgs)
If (fileUpl Is Nothing) Then
Message.Text = "Файл не выбран!"
Else
'если файл подгружен - добавляем товар
'перемещаем файл в директорию "\images\"
Dim ServerFileName As String = Request.PhysicalApplicationPath + "images\1.jpg"
fileUpl.PostedFile.SaveAs(ServerFileName)
End If
End Sub
End Class
Всё равно не работает, зараза.
В fileUpl — появляется сам объект, а файл не передаётся. Из Request.Files("fileUpl") тоже пробовал файл доставать, безрезультатно :crash:
Данное сообщение получено с сайта RSDN
|
|