هذا هو الحال
<%
وظيفة خاصة PNum (رقم ByVal)
خافت تمب، تحويلة
إذا كان IsNumeric(رقم) = خطأ إذن
بنوم = فارغة
آخر
حدد الحالة CInt( Right( number, 2 ) )
القضية 11، 12، 13
تحويلة = "ال"
حالة أخرى
tmp = اليمين (الرقم، 1)
حدد الحالة CInt(tmp)
الحالة 1
تحويلة = "ش"
الحالة 2
تحويلة = "الثانية"
الحالة 3
تحويلة = "الثالث"
حالة أخرى
تحويلة = "ال"
إنهاء التحديد
إنهاء التحديد
PNum = CStr (الرقم والتحويلة)
نهاية إذا
وظيفة النهاية
%>
المركز الأول والثاني والثالث والخامس في المركز
الثاني
Response.Write PNum("123456789")
会返回
引用内容
123456789
,وهذا يعني أن كل شيء على ما يرام.