'==================================================
'函数名：bytestobstr
'作 用：将获取的源码转换为中文
'参 数：body ------要转换的变量
'参 数：cset ------要转换的类型
'==================================================
function bytestobstr(body,cset)
dim objstream
set objstream = server.createobject("adodb.stream")
objstream.type = 1
objstream.mode =3
objstream.open
objstream.write body
objstream.position = 0
objstream.type = 2
objstream.charset = cset
bytestobstr = objstream.readtext
objstream.close
set objstream = nothing
end function
如对本文有疑问，
点击进行留言回复！！
我要评论
网友评论