Неправильная кодировка на ASP
Поставил код.Ссылки на английском отображаются нормально. Ссылки на русском отображаются в виде кракозябр. На сайте установлена кодировка UTF-8, а в файл sape.inc пишется все с кодировкой windows-1251. Пытался изменить кодировку файла на utf-8 (в это время ссылка стала отображаться корректно),но через некоторое время файл перезаписался с прежней кодировкой win-1251. В самих файлах sapelinks.inc и sape.inc настроек по смене кодировки я не нашел.
Как можно решить данную проблему? Добавлено через 12 часов 35 минут Мдя... любителей asp, видимо, не много... |
Цитата:
А может проще перенастроить сайт? |
Кто поможет решить проблему поставленную GIFT??
Насколько я понял эта строчка кода /set f = fso.OpenTextFile(incFileName,2,True,)/ отвечает за запись файла sape.inc, но в OpenTextFile нет возможности записать файл в UTF-8, что делать? |
меняем эту часть кода.
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 — система купли-продажи ссылок с главных и внутренних страниц сайтов.