หากคุณต้องการรูปแบบ UTF-8 โปรดเปลี่ยน GB2312 ต่อไปนี้เป็น UTF-8 ด้วยตัวเอง
'เปลี่ยนไบนารีเป็นสตริงมิฉะนั้นจะอ่านไม่ออกจะปรากฏขึ้น!
FunctionStB (VIN)
ConstadTypetext = 2
dimbytessstream, stringreturn
setByTessTream = server.createObject ("adodb.stream")
ด้วย bytessstream
.Type = AdTypetext
.เปิด
.writeTextvin
.position = 0
.Charset = "GB2312"
.position = 2
stringReturn = .readText
.ปิด
จบลงด้วย
setByTessTream = ไม่มีอะไร
STB = StringReturn
endfunction