Apr
15

asp utf-8转码函数     2009

 16:30    662    0   noel 程序 代码 源码 不指定 | |
asp utf-8转码函数
     如果asp接收来自UTF-8页面的表单,即表单以UTF-8方式发送,但ASP脚本为gb2312编码代码页,那么可以使用此函数进行转码。此函数同时也适用于asp下UTF-8转换GB2312


<%
Function utf2gb(Body)
Dim Objstream
Set Objstream = Server.CreateObject("adodb.stream")
objstream.Charset = "gb2312"
objstream.Type = 2
objstream.Mode =3
objstream.Open
objstream.WriteText body
objstream.Position = 0
objstream.Charset = "utf-8"
objstream.Type = 2
utf2gb = objstream.ReadText
objstream.Close
set objstream = nothing
End Function
%>

作者:noel@淘宝网女装新款秋装连衣裙裤子外套上衣_2012时尚女装新款 Ecmall二次开发-PHP技术
地址:http://www.laohucheng.com/post/328/
版权所有©转载时必须以链接形式注明作者和原始出处及本声明!

Tags: 引用(0)
发表评论
昵称 [注册]
密码 游客无需密码
网址
电邮
打开HTML 打开UBB 打开表情 隐藏 记住我