程式碼
<%
私有函數 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。