ASP教程之一个把数字转英文的有用程序

问题是他们究竟是喜欢他们是使用软件时,速度快还是速度慢好.(当然在3秒以内).无论是他们输入资料时,查找资料时,分析资料时.程序比来做项目标条约部分时用到必要能把数字转英文的程序，找过良多网站都没用，只能安下心来本人做，程序作的不太精简，但功效能够完成，大概同寅们会用得着。(vbscript)
functionzr4(y)筹办数据
dimz(10)
z(1)="ONE"
z(2)="TWO"
z(3)="THREE"
z(4)="FOUR"
z(5)="FIVE"
z(6)="SIX"
z(7)="SEVEN"
z(8)="EIGHT"
z(9)="NINE"
zr4=z(MID(y,1,1))
endfunction

functionzr3(y)筹办数据
dimz(10)
z(1)="ONE"
z(2)="TWO"
z(3)="THREE"
z(4)="FOUR"
z(5)="FIVE"
z(6)="SIX"
z(7)="SEVEN"
z(8)="EIGHT"
z(9)="NINE"
zr3=z(MID(y,3,1))
endfunction


functionzr2(y)筹办数据

dimz(20)
z(10)="TEN"
z(11)="ELEVEN"
z(12)="TWELVE"
z(13)="THIRTEEN"
z(14)="FOURTEEN"
z(15)="FIFTEEN"
z(16)="SIXTEEN"
z(17)="SEVENTEEN"
z(18)="EIGHTEEN"
z(19)="NINETEEN"
zr2=z(MID(y,2,2))

endfunction

functionzr1(y)筹办数据

dimz(10)
z(1)="TEN"
z(2)="TWENTY"
z(3)="THIRTY"
z(4)="FORTY"
z(5)="FIFTY"
z(6)="SIXTY"
z(7)="SEVENTY"
z(8)="EIGHTY"
z(9)="NINETY"
zr1=z(MID(y,2,1))

endfunction


functiondw(y)筹办数据

dimz(5)
z(0)=""
z(1)="THOUSAND"
z(2)="MILLION"
z(3)="BILLION"
dw=z(y)

endfunction

functionw2(y)用来制造2位数字转英文

ifMID(y,2,1)="0"then判别是不是小于十
value=zr3(y)
elseifMID(y,2,1)="1"then判别是不是在十到二十之间
value=zr2(y)
elseifMID(y,3,1)="0"then判别是不是为年夜于二十小于一百的能被十整除的数（为了往失落尾空格）
value=zr1(y)
else
value=zr1(y)+""+zr3(y)加上十位到个位的空格
endif
w2=value
endfunction

functionw3(y)用来制造3位数字转英文
ifMID(y,1,1)="0"then判别是不是小于一百
value=w2(y)
elseifMID(y,2,2)="00"then判别是不是能被一百整除
value=zr4(y)+""+"HUNDRED"
else
value=zr4(y)+""+"HUNDRED"+""+"AND"+""+w2(y)不克不及整除的要前面加“AND”
endif
w3=value
endfunction

functionmake(x)
z=instr(1,x,".",1)取小数点地位
ifz0then判别有无小数
lstr=mid(x,1,z-1)取小数点右边的字串
rstr=mid(x,z+1,2)取小数点右侧的字串
else
lstr=x没有小数的情形
endif
lstrev=StrReverse(lstr)对右边的字串取反字串
dima(5)界说5个字串变量用来寄存剖析出的三位一组的字串
selectcaselen(lstrev)mod3字串长度不克不及被整除，需补齐
case"1"
lstrev=lstrev+"00"
case"2"
lstrev=lstrev+"0"
endselect
lm=""用来寄存转换后的整数部分
fori=0tolen(lstrev)/3-1盘算有几个三位
a(i)=StrReverse(mid(lstrev,3*i+1,3))截取第1个三位
ifa(i)"000"then用来制止这类情形“1000000=ONEMILLIONTHOUSANDONLY”
ifi0then
lm=w3(a(i))+""+dw(i)+""+lm用来加上“THOUSANDORMILLIONORBILLION”
else
lm=w3(a(i))避免i=0时“lm=w3(a(i))+""+dw(i)+""+lm”多加两个尾空格
endif
else
lm=w3(a(i))+lm
endif
NEXT
xs=""用来寄存转换后的小数部分
ifz0then
xs="ANDCENTS"+""+w2("$"+rstr)+""小数部分存在时转换小数部分
endif
make=lm+""+xs+"ONLY"最初了局，加上ONLY
endfunction
</p>专业性的服务。有的ASP商提供垂直型的应用服务，针对某一特定行业提供应用服务。

Request:从字面上讲就是“请求”，因此这个是处理客户端提交的东东的,例如Resuest.Form，Request.QueryString,或者干脆Request("变量名")

学习是为了用的，是为了让你的程序产生价值，把握住这个原则会比较轻松点。除此之外，课外时间一定要多参加一些社会实践活动，来锻炼自己的能力。

不能只是将它停留在纸上谈兵的程度上。

弱类型造成潜在的出错可能：尽管弱数据类型的编程语言使用起来回方便一些，但相对于它所造成的出错几率是远远得不偿失的。

它可通过内置的组件实现更强大的功能，如使用A-DO可以轻松地访问数据库。

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

哪些内置对象是可以跳过的，或者哪些属性和方法是用不到的?

ASP主要是用好六个对象，其实最主要的是用好其中两个：response和request，就可以随心所欲地控制网页变换和响应用户动作了。