<%if xing <> "" then%>
<%
if xing<>"" then
dim age,str
age=(year(now())-nian1)+1
str=""&xing&""&""&ming&""&","&age&"岁,"&"您出生于公历 "&nian1&"年 "&yue1&"月 "&ri1&"日"&hh1&"点 "&" "
str=str&"农历 "&nian2&"年 "&yue2&"月 "&ri2&"日 "
str=str&"您的属相:"&sx&" "
response.write ""&str&""
end if
%>
|