¿Cómo mostrar el siguiente contenido en una página ASP?

Dinero(660.06)

función Dinero(elnúmero)

dim i, String1, String2, length, checkp 'Definir variables

dim one(), onestr() ' 'Determina si se incluyen decimales

si checkplt;gt;0 entonces

thenumber=replace(thenumber, ".." , "") 'Elimina el número de decimales

end if

length=len(thenumber) 'Obtiene la longitud de los datos

redim uno(length- 1) ' Redefine el tamaño de la matriz

redim onestr(length-1) 'Redefine el tamaño de la matriz

para i=0 a length-1

one( i)= mid(thenumber, i 1, 1) 'Recorre cada número

one(i)=mid(string1, one(i) 1, 1) 'Recorre los números para obtener el correspondiente letras mayúsculas

si checkp =0 entonces

onestr(i)=mid(string2, 14-length i, 1)

else

onestr(i)=mid(string2，15-length i len(thenumber)-checkp，1)

end if

one(i)=one(i)amp; ) 'Fusionar números con unidades

siguiente

Dinero=reemplazar(join(one)," ","") 'Obtener todos los elementos de la matriz y fusionarlos

Dinero= reemplazar(Dinero, "cero dólares", "yuan")

Dinero=reemplazar(Dinero, "cero millones", "diez mil")

Dinero = reemplazar(Dinero, "cero mil millones", "

Dinero=reemplazar(Dinero, "cero mil", "cero" )

Dinero=reemplazar(Dinero, "cero cien" , "cero" )

Dinero=reemplazar(Dinero, "cero diez", "cero" )

hacer mientras no instr(Dinero, "cero cero")=0

p>

Dinero=reemplazar( Dinero, "cero", "cero")

bucle

respuesta Escribir dinero 'resultado de salida

Función final

gt;