程序代码
<%
Função privada PNum (número ByVal)
Dim tmp, ramal
Se IsNumeric(número) = Falso Então
PNum = Nulo
Outro
Selecione Case CInt( Right( número, 2 ) )
Caso 11, 12, 13
ext = "th"
Outro caso
tmp = Direita (número, 1)
Selecione Caso CInt(tmp)
Caso 1
ext = "st"
Caso 2
ext = "nd"
Caso 3
ext = "rd"
Outro caso
ext = "th"
Finalizar seleção
Finalizar seleção
PNum = CStr (número e ramal)
Terminar se
Função final
%>
数字加st、nd、rd、th构成序数词函数，比如
程序代码
Response.Write
PNum("123456789")
引用内容
123456789º
，英文站点较为常用的一个函数，如果输入字符串则返回Nulo。