asp是的日期转换为星座的函数

代码如下: function astro(birth) astro=”” if birth=”” or not isdate(birth) Then exit function birthmonth=month(birth) : if birthmonth<10 then birthmonth=”0″ & birthmonth birthday=day(birth) : if birthday<10 then birthday=”0″ & birthday birth=trim(birthmonth & birthday) ‘重整月日,0903型 rAstro=split(“水瓶座*0120*