程序代码
<%
Fungsi Pribadi Pnum (nomor ByVal)
Redupkan tmp, ext
Jika IsNumeric(angka ) = Salah Maka
PNom = Batal
Kalau tidak
Pilih Kasus CInt( Kanan( angka, 2 ) )
Kasus 11, 12, 13
ext = "th"
Kasus Lain
tmp = Kanan( angka, 1 )
Pilih Kasus CInt( tmp )
Kasus 1
ext = "st"
Kasus 2
ext = "nd"
Kasus 3
ext = "rd"
Kasus Lain
ext = "th"
Pilihan Akhir
Pilihan Akhir
PNum = CStr(angka & ext)
Akhiri Jika
Fungsi Akhir
%>
数字加st、nd、rd、th构成序数词函数，比如
程序代码
Response.Write PNum("123456789")
会返回
引用内容
123456789
,英文站点较为常用的一个函数，如果输入字符串则返回Null。