程序代码
<%
Función privada PNum (número ByVal)
Dim tmp, ext
Si IsNumeric( número ) = False Entonces
PNum = nulo
Demás
Seleccione Caso CInt (Derecha (número, 2))
Caso 11, 12, 13
texto = "th"
Caso más
tmp = Derecha( número, 1 )
Seleccione Caso CInt(tmp)
Caso 1
texto = "st"
Caso 2
texto = "nd"
Caso 3
texto = "rd"
Caso más
texto = "th"
Finalizar selección
Finalizar selección
PNum = CStr(número y extensión)
Terminar si
Función final
%>
数字加st、nd、rd、th构成序数词函数，比如
程序代码
Respuesta.Escribir PNum("123456789")
会返回
引用内容
123456789a
，英文站点较为常用的一个函数，如果输入字符串则返回Null。