<%
'生肖对照表
function sx(str)
if str="" or isnumeric(str)=False then str=0
if clng(str)<13 then 
strsx=clng(str)
elseif clng(str)<25 then 
strsx=(str-12)
elseif clng(str)<37 then 
strsx=(str-24)
elseif clng(str)<49 then 
strsx=(str-36)
else
strsx=str-48
end if
if strsx="1" then cck="牛"
if strsx="2" then cck="鼠"
if strsx="3" then cck="猪"
if strsx="4" then cck="狗"
if strsx="5" then cck="鸡"
if strsx="6" then cck="猴"
if strsx="7" then cck="羊"
if strsx="8" then cck="马"
if strsx="9" then cck="蛇"
if strsx="10" then cck="龙"
if strsx="11" then cck="兔"
if strsx="12" then cck="虎"
sx=cck
end function
'波色对照表


function bs(str)
red="1,2,7,8,12,13,18,19,23,24,29,30,34,35,40,45,46" '红
blue="3,4,9,10,14,15,20,25,26,31,36,37,41,42,47,48" '蓝
green="5,6,11,16,17,21,22,27,28,32,33,38,39,43,44,49" '绿
if Instr(","&red&",",","&str&",") > 0 then bs1="红波"
if Instr(","&blue&",",","&str&",") > 0 then bs1="蓝波"
if Instr(","&green&",",","&str&",") > 0 then bs1="绿波"
bs=bs1
end function

'单双对照表
function ds(str)
if str="" or isnumeric(str)=False then str=0
s=str mod 2
if s=1 then
ds="单数"
else
ds="双数"
end if
end function
function dx(str)
if str="" or isnumeric(str)=False then str=0
if clng(str)>25 then ddx="大数"
if clng(str)<=25 then ddx="小数"
dx=ddx
end function
function wx(str)
if str="" or isnumeric(str)=False then str=0
jx="9,10,17,18,25,26,39,40,47,48"'金
mx="7,8,21,22,29,30,37,38"'木
xx="5,6,13,14,27,28,35,36,43,44"'水
hx="1,2,15,16,23,24,31,32,45,46"'火
tx="3,4,11,12,19,20,33,34,41,42,49"'土
if Instr(","&jx&",",","&str&",") > 0 then wxx="金数"
if Instr(","&mx&",",","&str&",") > 0 then wxx="木数"
if Instr(","&xx&",",","&str&",") > 0 then wxx="水数"
if Instr(","&hx&",",","&str&",") > 0 then wxx="火数"
if Instr(","&tx&",",","&str&",") > 0 then wxx="土数"
wx=wxx
end function

function tmstr(str)
tmstr="("&left(bs(str),1)&"/"&left(wx(str),1)&"/"&left(dx(str),1)&"/"&sx(str)&"/"&left(ds(str),1)&")"
end function


%>