Форум SAPE.RU

Форум SAPE.RU (http://forum.sape.ru/index.php)
-   Установка кода на различные движки (http://forum.sape.ru/forumdisplay.php?f=26)
-   -   Неправильная кодировка на ASP (http://forum.sape.ru/showthread.php?t=70648)

GIFT 07.07.2011 23:33

Неправильная кодировка на ASP
 
Поставил код.Ссылки на английском отображаются нормально. Ссылки на русском отображаются в виде кракозябр. На сайте установлена кодировка UTF-8, а в файл sape.inc пишется все с кодировкой windows-1251. Пытался изменить кодировку файла на utf-8 (в это время ссылка стала отображаться корректно),но через некоторое время файл перезаписался с прежней кодировкой win-1251. В самих файлах sapelinks.inc и sape.inc настроек по смене кодировки я не нашел.

Как можно решить данную проблему?

Добавлено через 12 часов 35 минут
Мдя... любителей asp, видимо, не много...

VAU 08.07.2011 00:01

Цитата:

Сообщение от GIFT (Сообщение 1102284)
Мдя... любителей asp, видимо, не много...

ASP есть. Но везде стоит кодировка Win-1251. Думаю Вам надо лезть в код sapelinks.inc и разбираться как вывести текст в нужной кодировке. Там еще кажется на Джаве этот кусок.
А может проще перенастроить сайт?

verest 18.10.2011 18:36

Кто поможет решить проблему поставленную GIFT??
Насколько я понял эта строчка кода /set f = fso.OpenTextFile(incFileName,2,True,)/ отвечает за запись файла sape.inc, но в OpenTextFile нет возможности записать файл в UTF-8, что делать?

verest 20.11.2011 07:19

меняем эту часть кода.

function saveIncFile(strg)
on error resume next
dim fso
dim f
set fso = Server.CreateObject("Scripting.FileSystemObject")
set f = fso.OpenTextFile(incFileName,2,true)
f.Write strg
if err<>0 then
saveIncFile = false
response.write "Нет доступа на запись файла: " & incFileName & ". Выставите необходимые права на папку."
exit function
end if
f.Close
set f = Nothing
set fso = Nothing
saveIncFile = true
end function

на эту.

function saveIncFile(strg)
on error resume next
dim fsof
set fsof = Server.CreateObject("ADODB.Stream")
fsof.Type = 2
fsof.Charset = "UTF-8"
fsof.Open()
fsof.WriteText(strg)
fsof.SaveToFile incFileName,2
if err<>0 then
saveIncFile = false
response.write "Нет доступа на запись файла: " & incFileName & ". Выставите необходимые права на папку."
exit function
end if
fsof.Close()
set fsof = Nothing
saveIncFile = true
end function

http://peckin.ru


Часовой пояс GMT +3, время: 04:11.

Работает на vBulletin® версия 3.8.7.
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Перевод: zCarot
SAPE.RU — система купли-продажи ссылок с главных и внутренних страниц сайтов.