您正在使用IPV4(3.236.253.192)访问本站 您本次共访问本站 1 次
 用户名: 密 码: 验证码:     用QQ登录本站
首页 软件 编程 笑话 知识 公告 台风 日历 计算器 行情 简化版
文明驾车我带头,文明行路我带头,礼貌让座我带头      

[公益] 节省一分零钱 献出一份爱心 温暖世间真情       【腾讯云】云产品限时秒杀,爆款1核2G云服务      
虚位以待
2021年 冬至节 56
2021年 圣诞节 60
2022年 元 旦 67
2022年 春 节 98
 
  • 本类新增
    本类热门文章
    您现在的位置:首页 >> 数据库 >> 内容
    获取字符中中文首字字符
    内容摘要: %'获取字符中中文首字字符'返回:A-Z;123;###PublicFunctionGetSpellChar(str)DimtmpGetSpellChar='@'tmp=65536+Asc(str)If(tmp=45217Andtmp=45252)Or(tmp=65601)Or(tmp=65633)Or(tmp=37083)ThenGetSpellChar=......
    <%

    '获取字符中中文首字字符

    '返回:A-Z;123;###

    PublicFunctionGetSpellChar(str)

    Dimtmp

    GetSpellChar="@"

    tmp=65536+Asc(str)

    If(tmp>=45217Andtmp<=45252)Or(tmp=65601)Or(tmp=65633)Or(tmp=37083)Then

    GetSpellChar="A1"

    ElseIf(tmp>=45253Andtmp<=45760)Or(tmp=65602)Or(tmp=65634)Or(tmp=39658)Then

    GetSpellChar="B1"

    ElseIf(tmp>=45761Andtmp<=46317)Or(tmp=65603)Or(tmp=65635)Or(tmp=33405)Then

    GetSpellChar="C1"

    ElseIf(tmp>=46318Andtmp<=46930)Or(tmp=61884)Or(tmp=63468)Or(tmp=65604)Or(tmp>=36820

    Andtmp<=38524)Or(tmp=65636)Then

    GetSpellChar="D1"

    ElseIf(tmp>=46931Andtmp<=47009)Or(tmp>=46827Andtmp<=46842)Or(tmp=65605)Or(tmp=65637)

    Or(tmp=61513)Then'468274683346842

    GetSpellChar="E1"

    ElseIf(tmp>=47010Andtmp<=47296)Or(tmp=65606)Or(tmp=65638)Or(tmp=61320)Or(tmp=63568)Or

    (tmp=36281)Then

    GetSpellChar="F1"

    ElseIf(tmp>=47297Andtmp<=47613)Or(tmp=65607)Or(tmp=65639)Or(tmp=35949)Or(tmp=36089)Or

    (tmp=36694)Or(tmp=34808)Then

    GetSpellChar="G1"

    ElseIf(tmp>=47614Andtmp<=48118)Or(tmp=59112)Or(tmp=40296)Or(tmp=65608)Or(tmp=65640)

    Then

    GetSpellChar="H1"

    ElseIf(tmp=65641)Or(tmp=65609)Or(tmp=65641)Then

    GetSpellChar="I1"

    ElseIf(tmp>=48119Andtmp<=49061Andtmp<>48739)Or(tmp>=62430Andtmp<=62430)Or(tmp=65610)

    Or(tmp=65642)Or(tmp=39048)Then

    GetSpellChar="J1"

    ElseIf(tmp>=49062Andtmp<=49323)Or(tmp=65611)Or(tmp=65643)Then

    GetSpellChar="K1"

    ElseIf(tmp>=49324Andtmp<=49895)Or(tmp>=58838Andtmp<=58838)Or(tmp=65612)Or(tmp=65644)

    Or(tmp=62418)Or(tmp=48739)Then

    GetSpellChar="L1"

    ElseIf(tmp>=49896Andtmp<=50370)Or(tmp=63432)Or(tmp=65613)Or(tmp=65645)Then

    GetSpellChar="M1"

    ElseIf(tmp>=50371Andtmp<=50613)Or(tmp=65614)Or(tmp=65646)Then

    GetSpellChar="N1"

    ElseIf(tmp>=50614Andtmp<=50621)Or(tmp=65615)Or(tmp=65615)Or(tmp=65647)Then

    GetSpellChar="O1"

    ElseIf(tmp>=50622Andtmp<=50905)Or(tmp=65616)Or(tmp=65648)Then

    GetSpellChar="P1"

    ElseIf(tmp>=50906Andtmp<=51386)Or(tmp>=62659Andtmp<=63172)Or(tmp=63464)Or(tmp=63226)

    Or(tmp=65617)Or(tmp=65649)Then

    GetSpellChar="Q1"

    ElseIf(tmp>=51387Andtmp<=51445)Or(tmp=65618)Or(tmp=65650)Then

    GetSpellChar="R1"

    ElseIf(tmp>=51446Andtmp<=52217)Or(tmp=65619)Or(tmp=65651)Or(tmp=34009)Then

    GetSpellChar="S1"

    ElseIf(tmp>=52218Andtmp<=52697)Or(tmp=65620)Or(tmp=65652)Then

    GetSpellChar="T1"

    ElseIf(tmp=65621)Or(tmp=65653)Then

    GetSpellChar="U1"

    ElseIf(tmp=65622)Or(tmp=65654)Then

    GetSpellChar="V1"

    ElseIf(tmp>=52698Andtmp<=52979)Or(tmp=65623)Or(tmp=65655)Then

    GetSpellChar="W1"

    ElseIf(tmp>=52980Andtmp<=53688)Or(tmp=63182)Or(tmp=65624)Or(tmp=65656)Then

    GetSpellChar="X1"

    ElseIf(tmp>=53689Andtmp<=54480)Or(tmp=65625)Or(tmp=65657)Then

    GetSpellChar="Y1"

    ElseIf(tmp>=54481Andtmp<=62383Andtmp<>59112Andtmp<>58838Andtmp<>57566)Or(tmp=65626)Or

    (tmp=65658)Or(tmp=38395)Or(tmp=39783)Then

    GetSpellChar="Z1"

    EndIf

    If(tmp>=65601Andtmp<=65658)ThenGetSpellChar=UCase(Left(Trim(str),1))'字母

    If(tmp>=65584Andtmp<=65593)ThenGetSpellChar="123"'数字

    'Response.Write(tmp)

    EndFunction

    response.writeGetSpellChar("壹")

    response.writeGetSpellChar("家")

    response.writeGetSpellChar("怡")

    response.writeGetSpellChar("园")

    %>

    版权声明:本内容来源于互联网,如有侵犯您的版权,请联系站长,本站收到您的信息后将及时处理。
    上一篇:sqlserver登陆后报不能为空不能为null的错 下一篇:Linux系统利用crontab定时备份Mysql数
    发布日期:2021/9/15
    手机扫二维码直达本页
    发布时间:11:55:36
    点击:372
    录入:齐天大圣
    相关文章
    Baidu
    YiJiaCMS 6.0.6.10688 Build 21.10.13(MSSQL) 闽ICP备05000814号-1
    本空间由景安网络提供,百度云加速提供加速防护
    ©2000-2021