Сегодня, когда я исправлял программу UTF-8 в строке поиска, я обнаружил, что сгенерированный документ UTF-8 в формате был искаженным кодом, а оригинальный файл был
Код create_html.asp выглядит следующим образом:
Кода -копия выглядит следующим образом:
<%@Language = "vbscript" codepage = "65001"%>
<%
setObjrs = server.createObject ("scripting.filesystemobject")
conn = server.mappath ("example.xml")
setStream = objrs.opentextfile (conn, 1, true, -2)
Content = Stream.Readall
Response.write (content)
Stream.Close
%>
Функцией для реализации этого кода является: прочитать текст, включая китайский из примера.xml (формат UTF-8), а затем выводит его, но каждый раз, когда вывод искажается. Эта проблема действительно беспокоила меня в течение долгого времени. Позже это было решено с помощью классических форумов «Сяо Хан» и «Сяо Сяою». Спасибо.
Может быть, я ошибался в начале, но теперь правильный код изменяется следующим образом, используя код, данное «Xiao xiaoyu», включая использование контента чтения для генерации нового документа формата UTF-8. Подробный код заключается в следующем:
Кода -копия выглядит следующим образом:
<%@Language = "vbscript" codepage = "65001"%>
<%Response.codepage = 65001%>
<%Response.charset = "UTF-8"%>
<%
'Объявите переменные
dimread_path, write_paht, контент
'---- Прочтите содержание файла ------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
FunctionReadTextFile (filePath, charset)
DIMSTM
setStm = server.createObject ("adodb.stream")
ST.T.Type = 1'AdtyPebinary, читайте в соответствии с бинарными данными
ST.Mode = 3'AdmoDereAdeWrite, здесь можно использовать только 3 для использования других и вызовет ошибки.
Св
ST.LoadFromFileFilePath
STM.Position = 0'' -погрузка на указатель обратно в отправную точку
St.type = 2'text Data
STM.CHARSET = Charset
ReadTextFile = stm.ReadText
St.close
setStm = ничего
Конечная функция
'--- Напишите в файл ----------------------------------------------
SubWritEtextFile (FilePath, FileContent, Charset)
DIMSTM
setStm = server.createObject ("adodb.stream")
St.type = 2'AdtyPetext, текстовые данные
ST.Mode = 3'AdmoDereAdeWrite, чтение и запись, если этот параметр использует 2, это приведет к ошибке.