程序代码
<%
Private 함수 PNum(ByVal 번호)
희미한 TMP, 내선
IsNumeric( 숫자 ) = False 인 경우
PNum = 널
또 다른
케이스 선택 CInt( 오른쪽( 숫자, 2 ) )
사례 11, 12, 13
내선 = "일"
그렇지 않은 경우
tmp = 오른쪽( 숫자, 1 )
케이스 CInt(tmp) 선택
사례 1
내선 = "st"
사례 2
내선 = "nd"
사례 3
내선 = "rd"
그렇지 않은 경우
내선 = "일"
선택 종료
선택 종료
PNum = CStr( 숫자 & 내선 )
종료 조건
기능 종료
%>
数字加st、nd、rd、th构成序数词函数，比如
程序代码
Response.Write PNum("123456789")
会返回
引用内容
123456789번째
，英文站点较为常用的一个函数，如果输入字符串则返回Null。