Будет ли работать код? - C# ASP.NET - Ответ 2733295

@ambarka2 · 25.05.2006, 20:07

В принципе вот тут посидел немного...
Если ограничится невысокими требованиями, то можно и без всяких компонент аплоадить файлы, ничего тут сложного нету.
Значит, чем полуется клиент (файл myform.htm):

Код

<html>
  <head>
    <title></title>
    <meta name="GENERATOR" content="Microsoft Visual Studio .NET 7.1 
    <meta name="vs_targetSchema" content="http://schemas.microsoft.com/intellisense/ie5 http://schemas.microsoft.com/intellisense/ie5 
  </head>
  <body>
    <form action="stupid_upload.asp" method="post" enctype="multipart/form-data 
      <input type="file" name="myfile_field" value=" 

      <input type="submit" value="отправить 
    </form>
  </body>
</html>

На сервере в корневой дирекории сайта делаем папку upload_dir (это нужно для скрипта, но всегда можно подправить под себя)
Работает такой скриптик(файл stupid_upload.asp):[code]
<%@ Language=VBScript %><%Option Explicit%><META content="Microsoft Visual Studio .NET 7.1" name=GENERATOR><%Const c_filename_var = "filename="""Dim bResultOkbResultOk = falseDim objStream1Dim CountBytesDim ServerFilePath, ClientFileNameCountBytes = Request.TotalBytesSet objStream1 = Server.CreateObject("ADODB.Stream") 'сюда будем складывать, что прилетело с html формы методом postobjStream1.Type = 1 'adTypeBinaryobjStream1.OpenobjStream1.Write Request.BinaryRead(CountBytes) 'данные приняли'чисто для эксперимена можно посмотреть что пришло 'собственно туда, в этот файл, я и смотрел когда писал этот скрипт'ServerFilePath = Server.MapPath("./upload_dir") & "upload2.txt"'objStream1.SaveToFile ServerFilePath, 2 'adSaveCreateOverWrite'меняем тип у потока на текстовыйobjStream1.Position = 0objStream1.Type = 2 'adTypeTextobjStream1.Charset = "windows-1251"'сохраняем в текстовой переменнойDim myTextmyText = objStream1.ReadTextobjStream1.Position = 0'чисто для эксперимента сравниваем длину'Response.Write("CountBytes=" & CountBytes & "
" & vbCrLf)'Response.Write("Len(myText)=" & Len(myText) & "
" & vbCrLf)'далее идут действия, чтобы "вычленить" файл из портянкиDim Pos_1BR, Pos_2BR, DelimPos_1BR = InStr(1, myText, vbCrLf)If Pos_1BR > 0 Then Pos_2BR = InStr(Pos_1BR + 1, myText, vbCrLf) Delim = Left(myText, Pos_1BR - 1) 'это у нас делемитер (при enctype="multipart/form-data") Dim PosFileName Dim UserFilePath PosFileName = InStr(myText, c_filename_var) 'начало строчки содержащей название файла If PosFileName < Pos_2BR Then 'если нашли начало строчки там где она должна быть... PosFileName = PosFileName + Len(c_filename_var) 'корректируем переменную, чтобы указывала на начало искомого UserFilePath = Mid(myText, PosFileName, Pos_2BR - PosFileName - 1) 'Response.Write("UserFilePath=" & UserFilePath & "
" & vbCrLf) Dim tArr 'массив где будут лежать составляющие пути файла tArr = Split(UserFilePath, "", -1) ClientFileName = tArr(UBound(tArr)) 'берем последний элемент массива - оно же название файла. 'Response.Write("ClientFileName=" & ClientFileName & "
" & vbCrLf) Dim Pos_DoublBR, Pos_NextDelim Pos_DoublBR = InStr(myText, vbCrLf & vbCrLf) 'положение начала файла (без учета длины vbCrLf & vbCrLf) Pos_NextDelim = InStr(Pos_1BR, myText, Delim) 'положение конца файла (без учета длины vbCrLf) Dim CntBytesInFile CntBytesInFile = (Pos_NextDelim - 2) - (Pos_DoublBR + 4) 'высчитываем длину файла Dim objStream2 Set objStream2 = Server.CreateObject("ADODB.Stream") 'сюда положи ml>
<head>
<meta name="GENERATOR" Content="Microsoft Visual Studio .NET 7.1
</head>
<body>
<%
Const c_filename_var = "filename="""
Dim bResultOk
bResultOk = false
Dim objStream1
Dim CountBytes
Dim ServerFilePath, ClientFileName
CountBytes = Request.TotalBytes
Set objStream1 = Server.CreateObject("ADODB.Stream") 'сюда будем складывать, что прилетело с html формы методом post
objStream1.Type = 1 'adTypeBinary
objStream1.Open
objStream1.Write Request.BinaryRead(CountBytes) 'данные приняли
'чисто для эксперимена можно посмотреть что пришло
'собственно туда, в этот файл, я и смотрел когда писал этот скрипт
'ServerFilePath = Server.MapPath("./upload_dir") & "upload2.txt"
'objStream1.SaveToFile ServerFilePath, 2 'adSaveCreateOverWrite
'меняем тип у потока на текстовый
objStream1.Position = 0
objStream1.Type = 2 'adTypeText
objStream1.Charset = "windows-1251"
'сохраняем в текстовой переменной
Dim myText
myText = objStream1.ReadText
objStream1.Position = 0
'чисто для эксперимента сравниваем длину
'Response.Write("CountBytes=" & CountBytes & "
" & vbCrLf)
'Response.Write("Len(myText)=" & Len(myText) & "
" & vbCrLf)
'далее идут действия, чтобы "вычленить" файл из портянки
Dim Pos_1BR, Pos_2BR, Delim
Pos_1BR = InStr(1, myText, vbCrLf)
If Pos_1BR > 0 Then

Pos_2BR = InStr(Pos_1BR + 1, myText, vbCrLf)

Delim = Left(myText, Pos_1BR - 1) 'это у нас делемитер (при enctype="multipart/form-data")

Dim PosFileName
Dim UserFilePath
PosFileName = InStr(myText, c_filename_var) 'начало строчки содержащей название файла

If PosFileName < Pos_2BR Then 'если нашли начало строчки там где она должна быть...
PosFileName = PosFileName + Len(c_filename_var) 'корректируем переменную, чтобы указывала на начало искомого

UserFilePath = Mid(myText, PosFileName, Pos_2BR - PosFileName - 1)
'Response.Write("UserFilePath=" & UserFilePath & "
" & vbCrLf)

Dim tArr 'массив где будут лежать составляющие пути файла

tArr = Split(UserFilePath, "", -1)

ClientFileName = tArr(UBound(tArr)) 'берем последний элемент массива - оно же название файла.
'Response.Write("ClientFileName=" & ClientFileName & "
" & vbCrLf)

Dim Pos_DoublBR, Pos_NextDelim

Pos_DoublBR = InStr(myText, vbCrLf & vbCrLf) 'положение начала файла (без учета длины vbCrLf & vbCrLf)
Pos_NextDelim = InStr(Pos_1BR, myText, Delim) 'положение конца файла (без учета длины vbCrLf)

Dim CntBytesInFile
CntBytesInFile = (Pos_NextDelim - 2) - (Pos_DoublBR + 4) 'высчитываем длину файла

Dim objStream2
Set objStream2 = Server.CreateObject("ADODB.Stream") 'сюда положим наш файл
objStream1.Type = 1 'adTypeBinary
objStream1.Position = Pos_DoublBR + 4 - 1 'встаем в потоке1 на начало файла

objStream2.Type = 1 'adTypeBinary
objStream2.Open
objStream2.Write objStream1.Read(CntBytesInFile) 'записываем в поток2 из потока1

ServerFilePath = Server.MapPath("./upload_dir") & "" & ClientFileName 'подсуетимся с полным путем дл

Вернуться к обсуждению:
Будет ли работать код? C# ASP.NET

Следующий ответ

Другие темы раздела
C# ASP.NET Проблема с объектом JSProxy https://www.cyberforum.ru/ asp-net/ thread504137.html Возникает такая проблема: при отображении страниц сайта появляется ошибка "не могу создать объект JSProxy". При нажатии кнопки "обновить" страница отображается нормально. Сервер IIS (win2k). Как решить эту проблему?	Проверка правописания Word в asp C# ASP.NET Никто не пробовал подключать проверку правописания объекта Word в ASP. Хотелось бы знать более-меннее конкретную методику вкратце.
C# ASP.NET Chr(13) в строке запроса https://www.cyberforum.ru/ asp-net/ thread504109.html Привет всем. Заполняю форму при помощти <select>. В форме есть одно <textarea> для комментариев. Если в это поле кто-то в середине вставляет Chr(13) Клавиша Enter/ то генерится такой текст. insert into zajavka (vid, gruppa, who, work, data, ip, worker, kodzap, ceh, sector) values (2,12,4,'as as',{^2006-5-23},'10.5.8.123',2,12,1,1)System.Data.OleDb.OleDbException: Command contains...	C# ASP.NET Задание ориентации страницы При формировании отчетов по результатам работы .ASP response.write .... или при открытии страницы с подготовленным отчетом response.clear response.redirect "othet.rtf" бывает необходимо изменить ориентацию листа при печати страницы (или другие параметры страницы). Как автоматизировать процесс, чтобы пользователям каждый раз не изменять вручную? https://www.cyberforum.ru/ asp-net/ thread504102.html
Проблема с запросом C# ASP.NET Возникла проблемма не могу написать запрос чтобы в 3м поле при вводе номера строки выдавалось ее содержимое (в проге первое поле имя БД, второе номер таблицы, третье номер строки). Вот текст ASP: <%@ Language=VBScript %> <% Option Explicit %> <HTML> <HEAD> <META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0 </HEAD> <BODY> <%	C# ASP.NET Использование ServerXMLHTTP Не проходит аутентификацию на IIS Win2k3. Set objSrvHttp = Server.CreateObject("MSXML2.ServerXMLHTTP") objSrvHTTP.Open "GET", "http://aa/bb.asp http://aa/bb.asp", False, "user", "pwd"Компьютер пользователя зарегистрирован в домене, страница http://aa/bb.asp http://aa/bb.asp в эксплорере открыватся без запроса паролей. Если в IIS включить анонимную аутентификацию, то все нормально. Как побороть? https://www.cyberforum.ru/ asp-net/ thread504078.html
C# ASP.NET Вопрос по конфигурации FTP в IIS есть IIS, ftp-сайт, к нему созданы 2 виртуальные директории с именами www.site.com и site, обе директории указывают на один и тот же каталог на диске. пытаюсь открыть в <EM>Windows Explorer</EM> ссылку ftp://aдрес - работает! выдает содержимое ftp-каталога ftp://aдрес/www.site.com - не работает! выкидывает страницу с ошибкой ftp://aдрес/site - работает! выдает содержимое виртуальной... https://www.cyberforum.ru/ asp-net/ thread504038.html	Блокировка View Sourse C# ASP.NET иногда встречается такая вещь,как блокировка View Sourse. как это сделать?
C# ASP.NET Экспорт в Excel/PDF/other https://www.cyberforum.ru/ asp-net/ thread504001.html <P align=left>Помогите, пожалуйста, решить задачу. </P><P align=left>Необходимо формировать многостраничные отчеты в удобном для печати формате. Каждая из страница должна имеет свой вид (заголовки, таблички и прочее). В определенные места (ячейки) должны подставляться данные из БД. </P><P align=left>Можно ли сделать некий шаблон, который было бы удобно заполнять необходимыми данными? В каком...	C# ASP.NET Проблема с базой данных https://www.cyberforum.ru/ asp-net/ thread503985.html Уважаемые! Подскажите мне в чем может быть проблема. У меня есть таблица Доска объявлений, куда пользователи вносят свои объявления. Объявления выводятся на страницу одно за другим. В целом все работает нормально, но изредка бывает появляется запись на которой база виснет и список соответственно открывается не весь, а до этой записи. Ошибок никаких не выдает. Борюсь с этим единственным...
C# ASP.NET Как сделать обработчик пустых каталогов? Здравствуйте. Подскажите прием, с помощью которого можно использовать параметизированные запросы используя подкаталоги, то есть, используя не парс строки, а через каталоги. Я так понимаю это надо делать либо через обработчик ошибок или помещать в каждый подкаталог индекс страницу, которая инклудит основную страницу с дизайном и с параметром в зависимости от каталога. Это нападобие lenta.ru,...	C# ASP.NET push и pop https://www.cyberforum.ru/ asp-net/ thread503975.html У меня возникла странная проблема. Мы создали сайт на основе системы управления, которой пользовались не один раз. Все сайты нормально работали. Но сейчас одна из компаний купила себе новый сервер и решила переставить систему туда. На новом сервере почему-то перестали работать функции push и pop. Выдается ошибка, что у данного объекта нет такой функции. Может что-то не так с настройками иис....

	25.05.2006, 20:07