程序代码
<%
Private Funktion PNum(ByVal-Nummer)
Dimmtmp, ext
Wenn IsNumeric( number ) = False Then
PNum = Null
Anders
Wählen Sie Case CInt( Right( number, 2 ) )
Fall 11, 12, 13
ext = "th"
Fall anders
tmp = Right( Zahl, 1 )
Wählen Sie Case CInt( tmp )
Fall 1
ext = "st"
Fall 2
ext = "nd"
Fall 3
ext = "rd"
Fall anders
ext = "th"
Endauswahl
Endauswahl
PNum = CStr( Zahl & Ext )
Ende wenn
Funktion beenden
%>
数字加st、nd、rd、th构成序数词函数，比如
程序代码
Response.Write PNum("123456789")
wird angezeigt
引用内容
123456789
英文站点较为常用的一个函数, 如果输入字符串则返回Null.