若需要utf-8格式,请自行将下面的gb2312改成utf-8。
' 二进制转字符串,否则会出现乱码的!
function stb(vin)
const adtypetext = 2
dim bytesstream,stringreturn
set bytesstream = server.createobject("adodb.stream")
with bytesstream
.type = adtypetext
.open
.writetext vin
.position = 0
.charset = "gb2312"
.position = 2
stringreturn = .readtext
.close
end with
set bytesstream = nothing
stb = stringreturn
end function
如对本文有疑问,
点击进行留言回复!!
网友评论