<%
Functionrmb(num)
num=FormatNumber(num,2)
DimnumList
DimrmbList
DimnumLen
DimnumChar
Dimnumstr
Dimn
Dimn1,n2
Dimhz
numList="零壹贰叁肆伍陆柒捌玖"
rmbList="分角元拾佰仟万拾佰仟亿拾佰仟万"
Ifnum>9999999999999.99Then
rmb="超出范围的人民币值"
ExitFunction
EndIf
numstr=CStr(num*100)
numLen=Len(numstr)
n