自學筆記: 12月 2014

2014年12月8日星期一

asp建立utf-8文字檔

<%
text = "good"
call create_utf8(text)

%>

<%
Sub create_utf8(text)
const adTypeBinary = 1
const adSaveCreateOverwrite = 2
const adModeReadWrite = 3

Set objStream = server.CreateObject("ADODB.Stream")
objStream.Open
objStream.CharSet = "UTF-8"
'objStream.WriteText("your text goes here")
objStream.WriteText(text)

objStream.SaveToFile server.mappath(".") & "/fname.txt" , adSaveCreateOverWrite
objStream.Close

End Sub

完畢。

來源 : 這篇
http://gchandra.wordpress.com/2004/08/19/creating-utf-8-files-using-asp/

用javascript語法寫

Thank’s for this tip.

Here is hte translated version for JScript:

var adTypeBinary = 1;
var adSaveCreateOverWrite = 2;
var adModeReadWrite = 3;

var objStream = new ActiveXObject(“ADODB.Stream”);
objStream.Open();
objStream.CharSet = “UTF-8〃;
objStream.WriteText(content);

objStream.SaveToFile(filename, adSaveCreateOverWrite);
objStream.Close();

objStream.LoadFromFile filename
objStream.ReadText

if file exists to append data

補充：

Saving FileSystemObject as UTF
(來源：http://stackoverflow.com/questions/2907466/saving-filesystemobject-as-utf)

Dim objStream
Set objStream = Server.CreateObject("ADODB.Stream")
objStream.Type = adTypeText
objStream.Mode = adModeReadWrite
objStream.Open
objStream.Position = 0
objStream.Charset = "UTF-8"
objStream.WriteText strContent
objStream.SaveToFile strABSPath,adSaveCreateOverWrite
objStream.Close
Set objStream=nothing