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

  vbscript对汉字进行unicode编码和解码主要使用ascwchrw 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开发网
阅读(587)喜欢(0)不喜欢(0)Asp/VBScript