• 企业400电话
  • 微网小程序
  • AI电话机器人
  • 电商代运营
  • 全 部 栏 目

    企业400电话 网络优化推广 AI电话机器人 呼叫中心 网站建设 商标✡知产 微网小程序 电商运营 彩铃•短信 增值拓展业务
    如何把中文转换为UNICODE?

    %
    function unicode(str)
    dim i,j,c,i1,i2,u,fs,f,p
    unicode=""
    p=""
    for i=1 to len(str)
    c=mid(str,i,1)
    j=ascw(c)
    if j0 then
    j=j+65536
    end if
    if j>=0 and j=128 then
    if p="c" then
    unicode=" "unicode
    p="e"
    end if
    unicode=unicodec
    else
    if p="e" then
    unicode=unicode" "
    p="c"
    end if
    unicode=unicode"#"j";"
    end if
    next
    end function

    function cutline(str,linelen)
    dim i,j,c,k
    cutline=""
    j=0
    for i=1 to len(str)
    c=mid(str,i,1)
    if asc(c)0 or asc(c)>127 then
    k=2
    else
    if asc(c)32 then
    k=0
    if asc(c)=13 then
    j=0
    cutline=cutline+"br/>"+c
    c=""
    end if
    else
    k=1
    end if
    end if
    j=j+k
    if j>linelen*2 then
    cutline=cutline+"br/>"+vbCrlf+c
    j=k
    else
    cutline=cutline+c
    end if
    next
    end function

    function convertsymbol(sStr)
    dim i,c
    convertsymbol=""
    for i=1 to len(sStr)
    c=mid(sStr,i,1)
    if c=">" then
    convertsymbol=convertsymbol ">"
    elseif c="" then
    convertsymbol=convertsymbol ""
    elseif c="'" then
    convertsymbol=convertsymbol "apos;"
    elseif c="""" then
    convertsymbol=convertsymbol """
    elseif c="" then
    convertsymbol=convertsymbol ""
    elseif c="$" then
    convertsymbol=convertsymbol "$$"
    else
    convertsymbol=convertsymbol c
    end if
    next
    end function

    function convertstring(sStr)
    dim strtemp,asctemp,c
    strtemp=""
    for i=1 to len(sStr)
    c=mid(sStr,i,1)
    asctemp=ascw(c)
    if (asctemp>47 and asctemp58) or (asctemp>64 and asctemp91) or (asctemp>96 and asctemp123) then
    strtemp=strtemp c
    end if
    next
    convertstring=Lcase(strtemp)
    end function
    %>

    [1]

    上一篇:如何把一个Excel文件放到ASP页面中去?
    下一篇:如何编写TOP 10之类的排行榜?
  • 相关文章
  • 

    © 2016-2020 巨人网络通讯 版权所有

    《增值电信业务经营许可证》 苏ICP备15040257号-8

    如何把中文转换为UNICODE? 如何,把,中文,转换,为,UNICODE,