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商提供垂直型的应用服务，针对某一特定行业提供应用服务。 ASP的语言不仅仅只是命令格式差不多，而是包含在<%%>之内的命令完全就是VB语法。虽然ASP也是做为单独的一个技术来提出的，但他就是完全继承了VB所有的功能。 接下来就不能纸上谈兵了，最好的方法其实是实践。实践，只能算是让你掌握语言特性用的。而提倡做实际的Project也不是太好，因为你还没有熟练的能力去综合各种技术，这样只能使你自己越来越迷糊。 ASP主要是用好六个对象，其实最主要的是用好其中两个：response和request，就可以随心所欲地控制网页变换和响应用户动作了。 如何学好ASP,以前也有人问过,把回答给你转过来看看能否对你有帮助: 运用经典的例子。并且自己可以用他来实现一些简单的系统。如果可以对他进行进一步的修改，找出你觉得可以提高性能的地方，加上自己的设计，那就更上一个层次了，也就会真正地感到有所收获。 在平时的学习过程中要注意现学现用，注重运用，在掌握了一定的基础知识后，我们可以尝试做一些网页，也许在开始的时候我们可能会遇到很多问题，比如说如何很好的构建基本框架。 Request:从字面上讲就是“请求”，因此这个是处理客户端提交的东东的,例如Resuest.Form，Request.QueryString,或者干脆Request("变量名") 那么，ASP.Net有哪些改进呢？
页:
[1]