powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / ASP.NET [игнор отключен] [закрыт для гостей] / Перенесли сайт на Windows 2008
12 сообщений из 12, страница 1 из 1
Перенесли сайт на Windows 2008
    #37666515
lenash
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Перенесли сайт с win2000 server на win2008 server
и перестало работать вот это:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
 SQLF="Update Press Set FN='" & NameFileExt1 & "'," &_
	"BFN='" & NameFileExt2 & "'" &_	
	" Where ID='" & NameFile & "'"
 cn.Execute SQLF


  Set objStream = Server.CreateObject("ADODB.Stream")
  objStream.Type = adTypeBinary
  objStream.Open
  
 
If Replace(Request ("txtShort_FileName1"), "'", "\'")<>"" then
  sourpath1=Server.MapPath("/PRESS/PS")&"/"&Replace(Request ("txtShort_FileName1"), "'", "\'")
%>
<%=sourpath1%><br>
<%
  objStream.LoadFromFile sourpath1
  spath1=Server.MapPath("/PRESS/PIKT")&"/"&NameFileExt1
  objStream.SaveToFile spath1, adSaveCreateOverwrite
End If

If Replace(Request ("txtShort_FileName2"), "'", "\'")<>"" then
  sourpath2=Server.MapPath("/PRESS/PS")&"/"&Replace(Request ("txtShort_FileName2"), "'", "\'")
  objStream.LoadFromFile sourpath2
  spath2=Server.MapPath("/PRESS/PIKT")&"/"&NameFileExt2
  objStream.SaveToFile spath2, adSaveCreateOverwrite
End If

  objStream.Close
  Set objStream = Nothing


Здесь выбранному на форме файлу задается другое имя и файл копируется в другую папку

Ошибка - 500 ошибка сервера

В чем может быть проблема?
...
Рейтинг: 0 / 0
Перенесли сайт на Windows 2008
    #37666559
st_st
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
А где описание ошибки? Может там прав нет на запись.
...
Рейтинг: 0 / 0
Перенесли сайт на Windows 2008
    #37666893
lenash
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Все что написано:
500 Внутренняя ошибка сервера
Проблема с запрашиваемым ресурсом; ресурс не может быть отображен.

А права на запись есть
...
Рейтинг: 0 / 0
Перенесли сайт на Windows 2008
    #37666977
bazile
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
lenashВсе что написано: 500 Внутренняя ошибка сервера
Под этим может скрываться все что угодно. Нужно получить точное сообщение об ошибке. Это ведь классический ASP? Я уже давно уже не c ним работал, но помню что в win2k нужно было добавить обработчик ошибки 500-100. Файл назывался 500-100.asp и лежал в папке iisHelp. Получи точное сообщение об ошибке чтобы не заниматься гаданием.

lenashА права на запись есть
Точно? Под какой учетной записью работает пул?
...
Рейтинг: 0 / 0
Перенесли сайт на Windows 2008
    #37667488
lenash
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Пожскажите, как узнать точно сообщение об ошибке?
...
Рейтинг: 0 / 0
Перенесли сайт на Windows 2008
    #37667692
bazile
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
lenash, попробуй совет из статьи Classic ASP Script Error Messages No Longer Shown in Web Browser by Default .
...
Рейтинг: 0 / 0
Перенесли сайт на Windows 2008
    #37672037
lenash
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Проблема вот в то что срока
Код: sql
1.
objStream.SaveToFile spath2, adSaveCreateOverwrite


с опцией adSaveCreateOverwrite не проходит, вылетает ошибка 500
Вот в таком виде происходит создание файла (картинка) в нужной папке, но картинка не отображается.
Код: sql
1.
2.
3.
4.
5.
6.
7.
8.
<%
If Replace(Request ("txtShort_FileName1"), "'", "\'")<>"" then
  sourpath1=Server.MapPath("/PRESS/PS")&"/"&Replace(Request ("txtShort_FileName1"), "'", "\'")
  objStream.LoadFromFile sourpath1
  spath1=Server.MapPath("/PRESS/PIKT")&"/"&NameFileExt1
  objStream.SaveToFile spath1
 End If
%>



Не могу понять почему?
...
Рейтинг: 0 / 0
Перенесли сайт на Windows 2008
    #37672573
bazile
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
lenashс опцией adSaveCreateOverwrite не проходит, вылетает ошибка 500
Попробую угадать. ASP не может найти константу adSaveCreateOverWrite. Надо или определить ее в коде (лучше в виде инклуда):
Const adSaveCreateOverWrite = 2
Или добавить ссылку на type library в global.asa. Скорее всего это уже было сделано ранее, надо всего лишь обновить UUID для библиотеки ADO, который отличается для Win2000 и Win2008.

lenashВот в таком виде происходит создание файла (картинка) в нужной папке, но картинка не отображается.
Что значит "не отображается"? Что возвращает сервер при попытке доступа к этому файлу? Содержимое файла на сервере правильное?

P.S. Вывод полного текста ошибки получилось настроить?
...
Рейтинг: 0 / 0
Перенесли сайт на Windows 2008
    #37673734
lenash
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Объявление Const adSaveCreateOverWrite = 2 помогло.
Только теперь ошибка 500 вот на эту строку - objStream.Type = adTypeBinary

Set objStream = Server.CreateObject("ADODB.Stream")
objStream.Type = adTypeBinary
objStream.Open

А файл на сервере просто не открывается.

Полный текст ошибки так и не получилось вывести, поэтому начала комментировать построчно код.
...
Рейтинг: 0 / 0
Перенесли сайт на Windows 2008
    #37673735
lenash
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Т.е. ошибки нет, если строка objStream.Type = adTypeBinary закомментирована. Файл корируетя в папку, но не просматривается.
...
Рейтинг: 0 / 0
Перенесли сайт на Windows 2008
    #37673993
lenash
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
а IIS 7.0.
...
Рейтинг: 0 / 0
Перенесли сайт на Windows 2008
    #37674102
bazile
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
lenashОбъявление Const adSaveCreateOverWrite = 2 помогло.
Только теперь ошибка 500 вот на эту строку - objStream.Type = adTypeBinary
Логично предположить, что нужно объявить константу adTypeBinary так же как ранее объявили adSaveCreateOverWrite. Открываете список констант ADO , затем StreamTypeEnum чтобы найти какое число соответствует adTypeBinary.

lenashПолный текст ошибки так и не получилось вывести, поэтому начала комментировать построчно код.
Что именно не получилось? Параметрy "Send Errors To Browser" значение True указали, как показано в статье Classic ASP Script Error Messages No Longer Shown in Web Browser by Default ?

lenashА файл на сервере просто не открывается.
...
Файл корируетя в папку, но не просматривается.
"Просто не открывается" и "не просматривается" это не описание проблемы. Ответьте на следуюшие вопросы:
Что это за файл - текст, изображение, что-то другое?

Содержимое файла правильное? Откройте папку на сервер через проводник и проверьте что размер файла правильный и что из проводника он открывается без ошибок

Что происходит при попытке открыть файл по прямой ссылке вида /PRESS/PIKT/blah-blah? Какой http код возвращается?

Под какой учетной записью работает пул приложений?
...
Рейтинг: 0 / 0
12 сообщений из 12, страница 1 из 1
Форумы / ASP.NET [игнор отключен] [закрыт для гостей] / Перенесли сайт на Windows 2008
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]