仓酷云

标题: ASP网页设计将数字转换成汉字的一段ASP程序 [打印本页]

作者: 不帅 时间: 2015-1-16 22:14
标题: ASP网页设计将数字转换成汉字的一段ASP程序
缺点:安全性不是太差了，还行，只要你充分利用系统自带的工具;唯一缺点就是执行效率慢，如何进行网站优化以后，效果会比较好。程序|汉字|转换--------------------数字向汉字转换的函数汇合------------------------
作者:northsnow
日期:20051217
挪用办法:a=convertNumToStr("1234.5678")
功效:将如许的串1234.5678转换成一千二百三十四点五六七八
将一串数字转成对应的汉字
functionconvertNumToStr(pNum)
dimoNum,rValue
oNum=pNum:rValue=""

假如给定的不是公道的数字,则前往空串
ifnotCheckPattern(oNum,z_PatNum)then
ConvertNumToStr=rValue
exitfunction
endif

将数字后面无用的0往失落
setrLjc=newRegExp
rLjc.Pattern="^0{2,}([^.])"
oNum=rLjc.Replace(oNum,"$1")
rLjc.Pattern="^0{2,}(.)"
oNum=rLjc.Replace(oNum,"0$1")

将小数点前后部分分隔
arrNum=split(oNum,".")
frontNum=arrNum(0)
backNum=""
ifubound(arrNum)>0thenbackNum=arrNum(1)

----转换小数点后面的数----
oLen=len(frontNum)

ifoLen=1then只要一名
rValue=convertNumToCC(frontNum)
elseifoLen=2then只要两位
if(mid(frontNum,1,1))"1"thenrValue=convertNumToCC(mid(frontNum,1,1))
rValue=rValue&getDigit(2)
if(mid(frontNum,2,1))"0"thenrValue=rValue&convertNumToCC(mid(frontNum,2,1))
else年夜于两位的情形
dimcurPos,curNum,hasZero
hasZero=false标明在此前有无相毗连的零
fori=1tooLen
curPos=oLen-i+1
curNum=mid(frontNum,i,1)
ifcint(curNum)=0then以后位数为零
hasZero=true
铛铛前位为万位大概亿位,则举行处置
if(curPos-1)mod4=0andcurPos>4then
rValue=rValue&getDigit(curPos)
endif
else以后位数不是零
ifhasZerothen
rValue=rValue&"零"
hasZero=false
endif
rValue=rValue&convertNumToCC(curNum)&getDigit(curPos)
endif
next
endif

转换小数点前面的
ifbackNum""then
strBack=""
fori=1tolen(backNum)
strBack=strBack&convertNumToCC(mid(backNum,i,1))
next
rValue=rValue&"点"&strBack
endif
convertNumToStr=rValue
endfunction

将一个数字转成对应的汉字
functionconvertNumToCC(pNum)
selectcasepNum
case1:convertNumToCC="一"
case2:convertNumToCC="二"
case3:convertNumToCC="三"
case4:convertNumToCC="四"
case5:convertNumToCC="五"
case6:convertNumToCC="六"
case7:convertNumToCC="七"
case8:convertNumToCC="八"
case9:convertNumToCC="九"
case0:convertNumToCC="零"
endselect
endfunction

依据位数前往对应的汉字
functiongetDigit(oDigit)
if(oDigit+2)mod4=0then
getDigit="十"
elseif(oDigit+1)mod4=0then
getDigit="百"
elseifoDigitmod4=0then
getDigit="千"
elseif(oDigit-1)mod4=0then
if((oDigit-1)/4)mod2=0then
getDigit="亿"
else
getDigit="万"
endif
endif
endfunction
专业性的服务。有的ASP商提供垂直型的应用服务，针对某一特定行业提供应用服务。

作者: 海妖 时间: 2015-1-19 05:35
ASP的语言不仅仅只是命令格式差不多，而是包含在<%%>之内的命令完全就是VB语法。虽然ASP也是做为单独的一个技术来提出的，但他就是完全继承了VB所有的功能。

作者: 老尸 时间: 2015-1-27 22:56
接下来就不能纸上谈兵了，最好的方法其实是实践。实践，只能算是让你掌握语言特性用的。而提倡做实际的Project也不是太好，因为你还没有熟练的能力去综合各种技术，这样只能使你自己越来越迷糊。

作者: 爱飞 时间: 2015-2-5 15:56
ASP主要是用好六个对象，其实最主要的是用好其中两个：response和request，就可以随心所欲地控制网页变换和响应用户动作了。

作者: 分手快乐 时间: 2015-2-12 22:49
如何学好ASP,以前也有人问过,把回答给你转过来看看能否对你有帮助:

作者: 柔情似水 时间: 2015-3-3 11:03
运用经典的例子。并且自己可以用他来实现一些简单的系统。如果可以对他进行进一步的修改，找出你觉得可以提高性能的地方，加上自己的设计，那就更上一个层次了，也就会真正地感到有所收获。

作者: 灵魂腐蚀 时间: 2015-3-11 10:35
在平时的学习过程中要注意现学现用，注重运用，在掌握了一定的基础知识后，我们可以尝试做一些网页，也许在开始的时候我们可能会遇到很多问题，比如说如何很好的构建基本框架。

作者: 小妖女 时间: 2015-3-18 10:26
Request:从字面上讲就是“请求”，因此这个是处理客户端提交的东东的,例如Resuest.Form，Request.QueryString,或者干脆Request("变量名")

作者: 深爱那片海 时间: 2015-3-25 20:40
那么，ASP.Net有哪些改进呢？

欢迎光临仓酷云 (http://ckuyun.com/)