<% sub num(n) select case n case 1 response.write"一" case 2 response.write"二" case 3 response.write"三" case 4 response.write"四" case 5 response.write"五" case 6 response.write"六" case 7 response.write"七" case 8 response.write"八" case 9 response.write"九" case 10 response.write"十" case 11 response.write"十一" end select