|
![]() |
名片设计 CorelDRAW Illustrator AuotoCAD Painter 其他软件 Photoshop Fireworks Flash |
|
Function ChangeTypeCN(par_content) dim cton,ntoc,Cno,Cycle,Nycle,Carray Cno="一~二~三~四~五~六~七~八~九~十~十一~十二~十三~十四~十五~十六~十七~十八~十九~二十" Carray=split(Cno,"~") if isNumeric(par_content) then for Cycle=0 to 19 if par_content=Cycle then ntoc=Carray(Cycle-1) ChangeTypeCN=ntoc end if next else for Cycle=0 to 19 if par_content=Carray(Cycle) then cton=Cycle ChangeTypeCN=cton+1 end if next end if end Function 使用方式:如果sek_hidweek=1 response.write(ChangetypeCN(sek_hidweek))那么输出就为一 如果sek_hidweek=\\\'五\\\',那么输出就为5,现在只做了1到20的相互转变,假如要扩展,只需要改一点参数就行了 返回类别: 教程 上一教程: RS.OPEN SQL,CONN,1,1全接触 下一教程: 用ASP实现号码转变 您可以阅读与"中文与数字相互转变的函数"相关的教程: · 将半角"转变为中文"的函数 · 判定输入是否为中文的函数 · 将半角"转变为中文"的函数 · 将半角转变为中文的函数 · 一套加解密字符串的函数 |
![]() ![]() |
快精灵印艺坊 版权所有 |
首页![]() ![]() ![]() ![]() ![]() ![]() ![]() |