tmonth = month(now)  '去当前的月份
select case tmonth
  case 1: Response.Write "现在是一月"
  case 2: Response.Write "现在是二月"
  case 3: Response.Write "现在是三月"
  case 4,5,6: Response.Write "现在是第二季度"
  case else
     case 2: Response.Write "现在是下半年"
end select