Как с помощью JS изменить кодировку документа на utf-8 без bom ?

dark-------13 · Отправлено: **14:34, 01-10-2013** | #5

Исправил - добавив Dim UTFStream ошибки пропали , но кодировку не меняет в файле test.txt
После выполнения скрипта русский текст все равно не виден.

Код:

<html>
	
	<head>
		<script src="file://///server/site/reload.js"></script>
		<script>
			var auto_refresh = setInterval(
			function(){
				$('#load_div').load('file://///server/site/test.txt');
			}, 1);
			
			
		</script>
	
	</head>
	<body>
		Статичная инфа	
		<div id="load_div"></div>
		Статичная инфа	
	</body>
</html>

Делал так

Код:

Sub WriteUTF8WithoutBOM()
DIM fileLua
Set fileLua = CreateObject("adodb.stream")
fileLua.Type = 2
fileLua.Mode = 3
fileLua.Charset = "UTF-8"
fileLua.Open
fileLua.WriteText("\\server\site\test.txt")
fileLua.SaveToFile("\\server\site\test.txt")
fileLua.flush
fileLua.Close
End Sub

и так

Код:

Sub WriteUTF8WithoutBOM()
    Dim UTFStream 
    Set UTFStream = CreateObject("adodb.stream")
    UTFStream.Type = adTypeText
    UTFStream.Mode = adModeReadWrite
    UTFStream.Charset = "UTF-8"
    UTFStream.LineSeparator = adLF
    UTFStream.Open
    UTFStream.WriteText "This is an unicode/UTF-8 test.", adWriteLine
    UTFStream.WriteText "First set of special characters: oaanuuu€", adWriteLine
    UTFStream.WriteText "Second set of special characters: qwertzuiopouasdfghjkleauyxcvbnm\|A€I??a??[]i??;?¤>#&@{}<;>*~?^?°?`y????0", adWriteLine

    UTFStream.Position = 3 '3 skip BOM

    Dim BinaryStream 
    Set BinaryStream = CreateObject("adodb.stream")
    BinaryStream.Type = adTypeBinary
    BinaryStream.Mode = adModeReadWrite
    BinaryStream.Open

    'Strips BOM (first 3 bytes)
    UTFStream.CopyTo BinaryStream

    'UTFStream.SaveToFile "d:\adodb-stream1.txt", adSaveCreateOverWrite
    UTFStream.Flush
    UTFStream.Close

    BinaryStream.SaveToFile "\\server\site\test.txt", adSaveCreateOverWrite
    BinaryStream.Flush
    BinaryStream.Close
End Sub