请问，ASP环境中，怎么根据生日做出星座啊？

来源：百度知道 编辑：UC知道 时间：2024/06/01 13:44:18
问了一个人，给我下面这段代码，好像不好使啊。哪位帮忙修改一下，谢谢

dim bir
if bir >= (year(rs("birthday"))+-3-21 And bir <= (year(rs("birthday"))+-4-19)
Then
star="牡羊座"
End If

定义一个二维数组，其中一个放星座的名字，另一个放星座的开始日期

然后将经对比的日期跟数组对比。可得到

dim constellation(12,1)

dim strconstellation$,i%,birthday$
'初始化星座数组数据
'constellation(X,0) 日期(1900-XX-XX)
'constellation(X,1) 名称
'
'........
'
''''''''''''''
'以下获取生日的星座名称
birthday="1900-" & month(birthday) & "-" & day(birthday)
do while strconstellation="" and i<12
if cdate(birthday)>=cdate(constellation(i,0)) and cdate(birthday)<cdate(constellation(i+1,0)) then
strconstellation=constellation(i,1)
end if
i=i+1
loop
response.write strconstellation