ASP numbers plus affixes are converted into English ordinal numbers

程序代码
<%
Private Function PNum(ByVal number)
    Dim tmp, ext
    If IsNumeric( number ) = False Then
        PNum = Null
    Else
        Select Case CInt( Right( number, 2 ) )
            Case 11, 12, 13
                ext = "th"
            Case Else
                tmp = Right( number, 1 )
                Select Case CInt( tmp )
                    Case 1
                        ext = "st"
                    Case 2
                        ext = "nd"
                    Case 3
                        ext = "rd"
                    Case Else
                        ext = "th"
                End Select
        End Select
        PNum = CStr( number & ext )
    End If
End Function
%>

数字加st、nd、rd、th构成序数词函数，比如

 程序代码
Response.Write PNum("123456789")

会返回
 引用内容
123456789th
，英文站点较为常用的一个函数，如果输入字符串则返回Null。