<%
'============================
'@ author:sunfeng
'@ http://www.windsfly.cn/blog
'@ email:sf0223cn@163.com
'@ qq:729028242
'============================
function convertNumtoStr(num)
   select case num
      case 1:convertNumtoStr="一"
      case 2:convertNumtoStr="二"
      case 3:convertNumtoStr="三"
      case 4:convertNumtoStr="四"
      case 5:convertNumtoStr="五"
      case 6:convertNumtoStr="六"
      case 7:convertNumtoStr="七"
      case 8:convertNumtoStr="八"
      case 9:convertNumtoStr="九"
      case 0:convertNumtoStr="十" 
   end select   
end function

   da=date() '可从数据库读取，这里只做测试
   m=month(da)
   d=day(da)
   'Response.Write "###"&convertNumtoStr(m)&"-"&convertNumtoStr(d)&"###"
   dat=cstr(da)
   daa=split(dat,"-")
   if int(m)>10 then
      mm="十"&convertNumtoStr(right(m,1))
   elseif int(m)=10 then
      mm="十"
   else
      mm=convertNumtoStr(m)
   end if
   if int(d)>10 then
      dd=convertNumtoStr(left(d,1))&"十"&convertNumtoStr(right(d,1))
   elseif int(d)=10 then
      dd="十"
   else
      dd=convertNumtoStr(d)
   end if
   Response.Write mm&"-"&dd
   'Response.Write "<br>测试成功@!!!"   
%>