asp-(8)如何把中文轉(zhuǎn)換為unicode？-資料下載頁(yè)
【導(dǎo)讀】見(jiàn)下列代碼：。<%. functionunicode(str). dimi,j,c,i1,i2,u,fs,f,p. unicode="". p="". fori=1tolen(str). c=mid(str,i,1). j=ascw(c). ifj<0then. j=j+65536. endif. ifj>=0andj<=128then. ifp="c"then. unicode=""&unicode. p="e". endif. unicode=unicode&c. else. ifp="e"then. unicode=unicode&"". p="c". endif. unicode=unicode&"&#"&j&";". endif. next. endfunction. functioncutline(str,linelen). dimi,j,c,k. cutline="". j=0. fori=1tolen(str). c=mid(str,i,1). ifasc(c)<0orasc(c)>127then. k=2. else. ifasc(c)<32then. k=0. ifasc(c)=13then. j=0. cutline=cutline+"<br/>"+c. c="". endif. else. k=1. endif. endif. j=j+k. ifj>linelen*2then. cutline=cutline+"<br/>"+vbCrlf+c. j=k. else. cutline=cutline+c. endif. next. endfunction. dimi,c. convertsymbol="". fori=1tolen(sStr). c=mid(sStr,i,1). ifc=">"then. convertsymbol=convertsymbol&">". elseifc="<"then. convertsymbol=convertsymbol&"<". elseifc="'"then. convertsymbol=convertsymbol&"'". elseifc=""""then. convertsymbol=convertsymbol&""". elseifc="&"then. convertsymbol=convertsymbol&"&". elseifc="$"then. convertsymbol=convertsymbol&"$$". else. convertsymbol=convertsymbol&c. endif. next. endfunction. dimstrtemp,asctemp,c. strtemp="". fori=1tolen(sStr). c=mid(sStr,i,1). asctemp=ascw(c). if(asctemp>47andasctemp<58)or(asctemp>64andasctemp<91)or(asctemp>96and. asctemp<123)then. strtemp=strtemp&c. endif. next. convertstring=Lcase(strtemp). endfunction. %>
【正文】 nd function function convertstring(sStr) dim strtemp,asctemp,c strtemp= for i=1 to len(sStr) c=mid(sStr,i,1) asctemp=ascw(c) if (asctemp47 and asctemp58) or (asctemp64 and asctemp91) or (asctemp96 and asctemp123) then strtemp=strtemp amp。 c end if next convertstring=Lcase(strtemp) end function %
鄂ICP備17016276號(hào)-1