A solução para caracteres ilegíveis ao usar fso.OpenTextFil para ler arquivos UTF-8 ou usar FSO.save para gerar arquivos UTF-8 O método usado para gerar páginas estáticas é ler o código html da página asp e salvá-lo como um arquivo. arquivo html. Este método.
Como a página dinâmica está codificada no formato utf8, depois de obter seu código html, usei fso para salvá-lo. O html gerado foi bem-sucedido, mas não pode ser acessado porque há um problema com a codificação html e você pode. acesse-o normalmente. Isso não funcionará, porque todo o site está codificado no formato utf8. Para abrir esta página, você precisa selecionar a codificação antes de acessá-la. Isso é muito problemático e ninguém está disposto a acessá-la, então a codificação no formato utf8. problema deve ser resolvido.
Após algumas pesquisas, descobri que o fso não pode gerar arquivos no formato utf8. Portanto, tente outra abordagem.
Depois de pesquisar um pouco, encontrei uma função que pode gerar arquivos em vez de fso. Ela usa o objeto adodb.stream para gerar arquivos utf8.
Copie o código do código da seguinte forma:
'------------------------------------------------
'Nome da função: ReadTextFile
'Função: Utilize o objeto AdoDb.Stream para ler arquivos de texto no formato UTF-8
'------------------------------------------------ - --
Função ReadFromTextFile (FileUrl,CharSet)
escurecimento
definir stm=server.CreateObject("adodb.stream")
stm.Type=2 'Ler neste modo
stm.mode=3
stm.charset=Conjunto de caracteres
stm.open
stm.loadfromfile server.MapPath(FileUrl)
str=stm.readtext
stm.Fechar
set stm=nothing Este artigo vem de
ReadFromTextFile=str
Função final
'------------------------------------------------
'Nome da função: WriteToTextFile
'Função: Use o objeto AdoDb.Stream para escrever arquivos de texto no formato UTF-8
'------------------------------------------------ - --
Sub WriteToTextFile (FileUrl, byval Str, CharSet)
definir stm=server.CreateObject("adodb.stream")
stm.Type=2 'Ler neste modo
stm.mode=3
stm.charset=Conjunto de caracteres
stm.open
stm.WriteText str
stm.SaveToFile server.MapPath(FileUrl),2
stm.flush
stm.Fechar
definir stm = nada
End Sub IISBOY.COM,IISBOY.COM
Como usar:
Copie o código do código da seguinte forma:
chame WriteToTextFile ("../index.html","aaa","utf-8")
Feito.