CSDN博客

img stefli

HE4,HBA,H9A转换成中文

发表于2004/10/29 12:32:00  1901人阅读

分类: 技术

<%
Dim i
Dim a, b, c, d, e
a = ChrB(&HE4) & ChrB(&HBA) & ChrB(&H9A)
For i=1 To LenB(a) Step 3
 b = Hex(AscB(MidB(a, i, 1)))
 c = Hex(AscB(MidB(a, i+1, 1)))
 d = Hex(AscB(MidB(a, i+2, 1)))
 e = ("&H" & b And &H0F) * 2 ^12 Or ("&H" & c And &H3F) * 2 ^ 6 Or ("&H" & d And &H3F)
 Response.Write ChrW(e)
Next
%>
0 0

相关博文

我的热门文章

img
取 消
img