vbscript汉字unicode字符串编码解码函数

　　vbscript对汉字进行unicode编码和解码主要使用ascw和chrw 2个函数，其中注意执行unicode编码时ascw可能会返回负值，需要特别处理一下，具体参考： vbscript ascw返回负数解决办法

 

　　vbscript汉字unicode字符串编码解码函数源代码

<%
s="&#21462;&#26262;&#29579;&#65292;&#28888;&#34915;&#21462;&#26262;&#19968;&#26426;&#25630;&#23450;"
function decode(s)'vbscript unicode字符串编码编码解码为汉字
  arr=split(s,";")
  s=""
  j=ubound(arr)
  for i=0 to j
    if trim(arr(i))<>"" then s=s&chrw(replace(arr(i),"&#",""))
  next
  decode=s
end function
function encode(s)'vbscript unicode字符串编码
  j=len(s)
  r=""
  for i=1 to j'注意aswc可能会返回负值，需要特殊处理下，vbs int类型溢出的问题，具体参考上面的文章
    r=r&"&#"&clng("&H"&(hex(ascw(mid(s,i,1)))))&";"
  next
  encode=r
end function
response.write decode(s)&"<br/>"'取暖王，烘衣取暖一机搞定
s="web开发网w3dev"'输出&#32534;&#31243;&#35774;&#35745;&#32593;&#119;&#119;&#119;&#46;&#99;&#111;&#100;&#105;&#110;&#103;&#49;&#50;&#51;&#46;&#110;&#101;&#116;
response.Write encode(s)
%>

 

加支付宝好友偷能量挖...


原创文章，转载请注明出处：vbscript汉字unicode字符串编码解码函数

评论(0)Web开发网
阅读(639)喜欢(1)Asp/VBScript