function UTF2GB(UTFStr)
Dim dig,GBSTR
for Dig=1 to len(UTFStr)
if mid(UTFStr,Dig,1)="%" then
if len(UTFStr) >= Dig+8 then
GBStr=GBStr & ConvChinese(mid(UTFStr,Dig,9))
Dig=Dig+8
else
GBStr=GBStr & mid(UTFStr,Dig,1)
end if
else
GBStr=GBStr & mid(UTFStr,Dig,1)
end if
next
UTF2GB=GBStr
end function
asp utf-8 to gb2312
2008-6-26 21:52:23
Tags: 资料 asp
发布:subin | 分类:ASP / PHP / JSP | 评论:0 | 引用:0 | 浏览:
- 相关文章:
asp utf-8 (2008-6-24 21:52:14)
Tomcat和PHP整合到IIS (2008-6-20 13:46:49)
db_owner权限得到webshell (2008-6-19 10:27:27)
PHP程序的常见漏洞攻击分析 (2008-6-17 22:3:49)
asp上传文件 (2008-5-28 13:50:48)
asp.net读数据库 (2008-5-27 10:56:56)
mysql显示命令 (2008-5-24 10:59:59)
清理当前站点缓存 (2008-5-23 15:37:4)
access里的类似case的函数 (2008-5-13 23:1:30)
sql默认值创建与修改 (2008-5-13 21:25:21)
◎欢迎参与讨论，请在这里发表您的看法、交流您的观点。
