程序代码
<%
私有函数 PNum(ByVal 编号)
调暗 tmp，分机
如果 IsNumeric( 数字 ) = False 那么
PNum = 空
别的
选择 Case 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。