VBNet - Форум - Шатрыкину Ивану

Вопрос: Шатрыкину Ивану Добавлено: 17.03.04 22:29

Автор вопроса: Yeputons | ICQ: 278444762

Ответить

Ответы Всего ответов: 24

Номер ответа: 16
Автор ответа:

Yeputons

ICQ: 278444762

Вопросов: 71
Ответов: 179

Профиль | | #16

Добавлено: 21.03.04 17:30

Не хочет грузить. На операторе UPLD.Upload говорит что переменная объекта или переменная блока With не задана. Что делать?

Ответить

Номер ответа: 17 Автор ответа: Павел Администратор ICQ: 326066673 Вопросов: 368 Ответов: 5968	Web-сайт: www.vbnet.ru Профиль \| \| #17	Добавлено: 22.03.04 15:46
	Не знаю, чего и сказать... На vbnet.ru всё отлично работает... Кидай сюда код... и HTML-форму, на всякий случай. Ответить

Номер ответа: 18
Автор ответа:

Yeputons

ICQ: 278444762

Вопросов: 71
Ответов: 179

Профиль | | #18

Добавлено: 24.03.04 14:55

Пожалуйста, вот ASP-страница где нужно указать имя файла:

<%@Language=VBScript%>
<%
Response.Write "<html>"
Response.Write "<title>Gallery - Загрузка картинки</title>"
Response.Write "<p align=center>Если вы хотите пополнить мою галлерею, то заполните это поле и нажмите ""Загрузить"":</p>"
Response.Write "<form name=frmUpLoad enctype=""multipart/form-data"" action=""upld.asp"" method=""post"">"
Response.Write "<p align=center>Путь к картинке: <input type=file name=File></p>"
Response.Write "<p align=center><input type=button name=cmdUpload value=Загрузить></p>"
Response.Write "</form>"
Response.Write "<p align=center><input type=button name=cmdBack value=""Назад, к картинке №" & Request.QueryString.Item(1) & """></p>"

Response.Write "<script language=""VBScript"">": Response.Write vbCrLf

Response.Write "sub cmdUpload_OnClick": Response.Write vbCrLf
Response.Write "if Right(Document.frmUpLoad.File.Value, 4) = "".bmp"" Then": Response.Write vbCrLf
Response.Write " ocument.frmUpLoad.Submit": Response.Write vbCrLf
Response.Write "Else": Response.Write vbCrLf
Response.Write " MsgBox ""Неизвестный тип файла."", vbCritical": Response.Write vbCrLf
Response.Write "end if": Response.Write vbCrLf
Response.Write "end sub": Response.Write vbCrLf

Response.Write "sub cmdBack_OnClick": Response.Write vbCrLf
Response.Write "Window.Navigate ""default.asp?id=" & Request.QueryString.Item(1) & """": Response.Write vbCrLf
Response.Write "end sub": Response.Write vbCrLf

Response.Write "</script>"
Response.Write "</html>"
%>

И вот ASP-страница где, собственно и происходит ошибка:

<%@Language=VBScript%>
<%
Dim FSO
Dim UPLD
Dim ImageNumber
Dim I

Set UPLD = CreateObject("aspSmartUpload.SmartUpload")
UPLD.Upload

I = 1
Set FSO = CreateObject("Scripting.FileSystemObject")
Do
If Not FSO.FileExists("C:\Yeputons\Gallery\Images\Image" & CStr(I) & ".bmp") Then Exit Do
I = I + 1
Loop
ImageNumber = I
Set FSO = Nothing

UPLD.Save "C:\Gallery\Images\Image" & CStr(ImageNumber) & ".bmp"

Response.Write "<html>"
Response.Write "<title>Gallery - Картинка загруженна</title>"
Response.Write "<p align=center>Ваша картинка была успешно загруженна под номер " & CStr(ImageNumber)
Response.Write "<p align=center><input type=button name=cmdBack value=""К картинке №" & CStr(ImageNumber) & """></p>"

Response.Write "<script language=""VBScript"">": Response.Write vbCrLf

Response.Write "sub cmdBack_OnClick": Response.Write vbCrLf
Response.Write "Window.Navigate ""default.asp?id=" & CStr(ImageNumber) & """": Response.Write vbCrLf
Response.Write "end sub": Response.Write vbCrLf

Response.Write "</script>"
Response.Write "</html>"
%>

Надеюсь можешь, разобраться?

Ответить

Номер ответа: 19
Автор ответа:

User Unknown

Вечный Юзер!

ICQ: uu@jabber.cz

Вопросов: 120
Ответов: 3302

Профиль | | #19

Добавлено: 24.03.04 15:13

Ты чего? Обалдел что ли? Ты думаешь, у тебя сервера есть доступ к C: ???? Узнай сперва принципы работы сервера IIS.

Ответить

Номер ответа: 20 Автор ответа: Yeputons ICQ: 278444762 Вопросов: 71 Ответов: 179	Профиль \| \| #20	Добавлено: 24.03.04 21:10
	Что-о-о-о-о-о-о-о-о?!?!?! Я галерею делаю с помощью MI-CRO-SOFT PE-RSO-NAL WEB SER-VER! И у меня есть доступ даже к... ну, например C:\Windows. Ответить

Номер ответа: 21
Автор ответа:

Yeputons

ICQ: 278444762

Вопросов: 71
Ответов: 179

Профиль | | #21

Добавлено: 25.03.04 17:26

Эээ... извините. Просто я хотел сказать что я делаю свою галлерею не с помощью платного или бесплатного хостинга. У меня личный Web-сервер.

Ответить

Номер ответа: 22 Автор ответа: Павел Администратор ICQ: 326066673 Вопросов: 368 Ответов: 5968	Web-сайт: www.vbnet.ru Профиль \| \| #22	Добавлено: 25.03.04 17:46
	Попробуй это: Set UPLD = CreateObject("aspSmartUpload.SmartUpload") поменять на это: Set UPLD = Server.CreateObject("aspSmartUpload.SmartUpload") Ответить

Номер ответа: 23 Автор ответа: Yeputons ICQ: 278444762 Вопросов: 71 Ответов: 179	Профиль \| \| #23	Добавлено: 25.03.04 19:34
	Слышь, Павел дай мне пожалуйста код страницы www.vbnet.ru\upload\index.asp и www.vbnet.ru\upload\up.asp. Может смогу что зачерпнуть оттуда. Ответить

Номер ответа: 24
Автор ответа:

Yeputons

ICQ: 278444762

Вопросов: 71
Ответов: 179

Профиль | | #24

Добавлено: 27.04.04 17:46

Поменял. Теперь грузит. А ты не знаешь как сохранить файл в каком-нибудь подкаталоге сайта?

Ответить

Страница: 1 | 2 |