标题:请教:如何用ASP来实现UTF8转换GB2312国标码昵
只看楼主
nieyudong
Rank: 1
等 级:新手上路
帖 子:6
专家分:0
注 册:2004-9-29
 问题点数:0 回复次数:6 
请教:如何用ASP来实现UTF8转换GB2312国标码昵

大家好我是北方数的一位员工,

我们公司要开发一个域名管理系统

但是在开发过程中遇到了一个问题,

就是要把POST 中的utf8转换成GB2312。

是这样的我用asp 中的XMLHTTP 向LINUX 服务器发出请求,发出请求时,要传递一些中文汉字,但是在提交时POST 中的中文汉字就成了UTF8 XMLTHHP就把UTF8传递给了LINUX服务器

但是LINUX 服务器收到UTF8时就会显示乱码,就不是正确的中文汉字,

因为对方LINUX 服务器只能接收GB2312国标码,

所以要做转换, 要把UTF8转换成GB2312才可以

可是我做过好几次转换都不行, LINUX服务器收到的还是UTF8码,也就是说还是乱码,

POST 中UTF8 还是没有转换成GB2312国标码

怎么办昵谁来帮帮我昵???????????

我的QQ是282157112

电话是0533-3160669

我姓 聂

名 玉栋

如果有会的请和我联系的

事成后重谢

搜索更多相关主题的帖子: GB2312国标 服务器 域名 ASP LINUX 
2004-09-29 08:35
寒星
Rank: 1
等 级:新手上路
帖 子:455
专家分:0
注 册:2004-6-7
得分:0 
<meta http-equiv="content-type" content="text/html;charset=gb2312">

http://www. 版主位置空缺
2004-09-29 10:10
寒星
Rank: 1
等 级:新手上路
帖 子:455
专家分:0
注 册:2004-6-7
得分:0 

function UTF2GB(UTFStr) 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 function ConvChinese(x) A=split(mid(x,2),"%") i=0 j=0 for i=0 to ubound(A) A(i)=c16to2(A(i)) next for i=0 to ubound(A)-1 DigS=instr(A(i),"0") Unicode="" for j=1 to DigS-1 if j=1 then A(i)=right(A(i),len(A(i))-DigS) Unicode=Unicode & A(i) else i=i+1 A(i)=right(A(i),len(A(i))-2) Unicode=Unicode & A(i) end if next if len(c2to16(Unicode))=4 then ConvChinese=ConvChinese & chrw(int("&H" & c2to16(Unicode))) else ConvChinese=ConvChinese & chr(int("&H" & c2to16(Unicode))) end if next end function function c2to16(x) i=1 for i=1 to len(x) step 4 c2to16=c2to16 & hex(c2to10(mid(x,i,4))) next end function function c2to10(x) c2to10=0 if x="0" then exit function i=0 for i= 0 to len(x) -1 if mid(x,len(x)-i,1)="1" then c2to10=c2to10+2^(i) next end function function c16to2(x) i=0 for i=1 to len(trim(x)) tempstr= c10to2(cint(int("&h" & mid(x,i,1)))) do while len(tempstr)<4 tempstr="0" & tempstr loop c16to2=c16to2 & tempstr next end function function c10to2(x) mysign=sgn(x) x=abs(x) DigS=1 do if x<2^DigS then exit do else DigS=DigS+1 end if loop tempnum=x i=0 for i=DigS to 1 step-1 if tempnum>=2^(i-1) then tempnum=tempnum-2^(i-1) c10to2=c10to2 & "1" else c10to2=c10to2 & "0" end if next if mysign=-1 then c10to2="-" & c10to2 end function %>


http://www. 版主位置空缺
2004-09-29 10:17
寒星
Rank: 1
等 级:新手上路
帖 子:455
专家分:0
注 册:2004-6-7
得分:0 

上面是一个转换函数,你看看

另外问题可以在网上搜索一下


http://www. 版主位置空缺
2004-09-29 10:18
nieyudong
Rank: 1
等 级:新手上路
帖 子:6
专家分:0
注 册:2004-9-29
得分:0 

不行啊

我在网上搜索过一只没有找到一个何示的解决方法

2004-09-29 14:04
寒星
Rank: 1
等 级:新手上路
帖 子:455
专家分:0
注 册:2004-6-7
得分:0 
用上面那个函数,先把你的数据转换一下可以吗?

http://www. 版主位置空缺
2004-09-29 16:16
nieyudong
Rank: 1
等 级:新手上路
帖 子:6
专家分:0
注 册:2004-9-29
得分:0 

不可以

你给我提供的程序

我用过

不行,

要不你用上面那个函数,做个数据转换例子给我看一下好吗?

总之我用过可是不行

2004-09-30 09:52



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-5840-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.495830 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved