快精灵印艺坊 您身边的文印专家
广州名片 深圳名片 会员卡 贵宾卡 印刷 设计教程
产品展示 在线订购 会员中心 产品模板 设计指南 在线编辑
 首页 名片设计   CorelDRAW   Illustrator   AuotoCAD   Painter   其他软件   Photoshop   Fireworks   Flash  

 » 彩色名片
 » PVC卡
 » 彩色磁性卡
 » 彩页/画册
 » 个性印务
 » 彩色不干胶
 » 明信片
   » 明信片
   » 彩色书签
   » 门挂
 » 其他产品与服务
   » 创业锦囊
   » 办公用品
     » 信封、信纸
     » 便签纸、斜面纸砖
     » 无碳复印纸
   » 海报
   » 大篇幅印刷
     » KT板
     » 海报
     » 横幅

中文与数字相互转变的函数

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实现号码转变

您可以阅读与"中文与数字相互转变的函数"相关的教程:
· 将半角"转变为中文"的函数
· 判定输入是否为中文的函数
· 将半角"转变为中文"的函数
· 将半角转变为中文的函数
· 一套加解密字符串的函数
    微笑服务 优质保证 索取样品