求asp程序，把汉字字符串转换为utf-8格式的字符串

2006-08-17 11:50:33 695 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

基于 AUTOSAR 的域控产品软件开发进阶探索本文深入探讨了AUTOSAR架构在汽车域控产品开发中的进阶应用。首先从系统设计角度分析了AUTOSAR分层架构原理及其在域控产品中的优化部署策略；其次详细介绍了Davinci和EBTresos等主流工具链的特点与协同使用方法；然后重点阐述了ASPICE流程与功能安全/信息安全标准的实施要点；最后分享了多核车载芯片（如NXP S32G）的适配经验与优化实践。通过架构设计、工具运用、标准遵循和芯片适配四个维度的专业解析，为域控产品的AUTOSAR开发提供了系统性指导。阅读详情

比如语言的“语”字，他的gb2312格式下二进制编码为D3 EF,而utf-8格式下编码为E8 AF AD，这个时候我需要做的是把”语“字的编码从D3 EF更换到E8 AF AD，并且以字符串显示出来，那个ado.stream应该是可以做到的，可是我有个特殊环境无法调用ado.stream，现在求用程序把gb2312格式的”语“转换为utf-8格式的“语”

...全文

SAP(ERP)工艺路线(Routing)业务视角解析工艺路线(Routing)也是PP模块，即生产制造模块中最重要核心主数据之一，也是ERP(SAP)顾问，必需从业务与系统深入掌握的重要主数据，它也是整个生产计划与生产流程的重要基础。因为执行步骤只是操作层面的认知，业务顾问需要从业务本质上去理解它，要真正从业务视角理解工艺路线的业务价值，而不仅仅是操作层面的认知。因此将工艺路线理解为“有以上业务本质的理解，然后进到SAP系统中，就容易理解工艺路线(Routing)的每一组成部分结构与功能了，本质就是理解制造企业如何将设计意图转化为物理现实的编码规则。阅读详情

homoo

ASP 28,401 成员 356,940 内容

+ 关注 + 加入社区

切换为时间正序

chinesun 2006-10-03

打赏
举报

chinesun 2006-10-03

打赏
举报

你查一下论坛,有

homoo 2006-08-18

打赏
举报

有朋友说用utf-gb2312的对照表。

伴老思源 2006-08-18

打赏
举报

rehearts 2006-08-18

打赏
举报

以上他们提供的函数是对的，
当时你要输出这个值必须这样 response.BinaryWrite()
要获得这个值可以xmlhttp抓一下输出

hurrayboy 2006-08-18

打赏
举报

关注!

btbtd 2006-08-18

打赏
举报

楼主以这个方式思考一下
<% response.write chrW(45217):response.write ascW("好"):response.write chrW(22909) %>

homoo 2006-08-17

打赏
举报

以上代码无效，我也是百度后才来问的

littlelam 2006-08-17

打赏
举报

汉字转换为UTF-8

function chinese2unicode(Str)
dim i
dim Str_one
dim Str_unicode
for i=1 to len(Str)
Str_one=Mid(Str,i,1)
Str_unicode=Str_unicode&chr(38)
Str_unicode=Str_unicode&chr(35)
Str_unicode=Str_unicode&chr(120)
Str_unicode=Str_unicode& Hex(ascw(Str_one))
Str_unicode=Str_unicode&chr(59)
next
Response.Write Str_unicode
end function

UTF-8 To GB2312

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

homoo 2006-08-17

打赏
举报

晕，怎么老贴这个代码啊
我现在已经能把代码
utf-8格式下编码为E8 AF AD
这个得到了，可是不知道怎么用utf-8的方式显示出来
chr只能是对2进制处理，我现在不会怎么把E8 AF AD转为utf-8格式对应的2进制代码，而不是gb2312对应的2进制代码

jspadmin 2006-08-17

打赏
举报

function chinese2unicode(Str)
dim i
dim Str_one
dim Str_unicode
for i=1 to len(Str)
Str_one=Mid(Str,i,1)
Str_unicode=Str_unicode&chr(38)
Str_unicode=Str_unicode&chr(35)
Str_unicode=Str_unicode&chr(120)
Str_unicode=Str_unicode& Hex(ascw(Str_one))
Str_unicode=Str_unicode&chr(59)
next
Response.Write Str_unicode
end function

UTF-8 To GB2312

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

街头小贩 2006-08-17

打赏
举报

你没漏掉什么吧!

求asp程序，把汉字字符串转换为utf-8格式的字符串

相关推荐