程序代码
<%
Fonction privée PNum (numéro ByVal)
Dim tmp, poste
Si IsNumeric( nombre ) = False Alors
PNum = Nul
Autre
Sélectionnez Case CInt( Right( number, 2 ) )
Cas 11, 12, 13
poste = "e"
Autre cas
tmp = Droite (nombre, 1)
Sélectionnez le cas CInt ( tmp )
Cas 1
poste = "st"
Cas 2
poste = "nd"
Cas 3
poste = "rd"
Autre cas
poste = "e"
Fin de la sélection
Fin de la sélection
PNum = CStr (numéro et poste)
Fin si
Fonction de fin
%>
数字加st、nd、rd、th构成序数词函数，比如
程序代码
Response.Write PNum("123456789"
)
引用内容
123456789e
，英文站点较为常用的一个函数，如果输入字符串则返回Null。