程序代码
<%
Частная функция PNum (номер ByVal)
Dim tmp, доб.
Если IsNumeric(число) = Ложь Тогда
ПНомер = Ноль
Еще
Выберите Case CInt( Right( число, 2 ) )
Случай 11, 12, 13
доб = "й"
Другое дело
tmp = Вправо(число, 1)
Выберите Case CInt(tmp)
Случай 1
доб = "ст"
Случай 2
доб = "й"
Случай 3
доб = "рд"
Другое дело
доб = "й"
Конец выбора
Конец выбора
PNum = CStr(номер и доб.)
Конец, если
Конечная функция
%>
数字加st,nd,rd,th构成序数词函数,比如
程序代码
Response.Write PNum("123456789")
会返回
引用内容
123456789-й
，英文站点较为常用的一个函数,如果输入字符串则返回Null。