转换中文为unicode 转换unicode到正常文本
2016-07-27
23
复制代码 代码如下:"//转换中文为unicode functionURLEncoding(vstrIn) dimi dimstrReturn,ThisChr,innerCode,Hight8,Low8 strReturn="" fori=1toLen(vstrIn) ThisChr=Mid(vStrIn,i,1) IfAbs(Asc(ThisChr))<&HFFthen strReturn=strReturn&ThisChr else innerC...