% youname1=trim(request("youname1")) youname2=trim(request("youname2")) youname=youname1&youname2 sex=trim(request("sex")) nx=trim(request("nx")) nian=trim(request("nian")) yue=trim(request("yue")) ri=trim(request("ri")) hh=trim(request("hh")) shi=trim(request("shi")) xx=trim(request("xx")) ns=trim(request("ns")) ji=trim(request("ji")) bj=trim(request("bj")) xiong=trim(request("xiong")) xn=trim(request("xn")) zf=trim(request("zf")) %> <% youname=trim(request("youname")) sex=trim(request("sex")) nian=trim(request("nian")) yue=trim(request("yue")) ri=trim(request("ri")) if nian="" then nian=year(now()) if yue="" then yue=month(now()) if ri="" then ri=day(now()) nl=year(now())-nian+1 if sex="男" then sexmess1="可爱的":sexmess2="小公子" if nl>6 then sexmess1="亲爱的":sexmess2="先生" if nl>25 then sexmess1="亲爱的":sexmess2="先生" if nl>35 then sexmess1="亲爱的":sexmess2="先生" if nl>60 then sexmess1="敬爱的":sexmess2="爷爷" else sexmess1="可爱的":sexmess2="小公主" if nl>6 then sexmess1="亲爱的":sexmess2="小姐" if nl>25 then sexmess1="亲爱的":sexmess2="夫人" if nl>35 then sexmess1="亲爱的":sexmess2="夫人" if nl>60 then sexmess1="敬爱的":sexmess2="婆婆" end if sql="select * from xz where (yue1*100+ri1)<="&yue*100+ri&" and (yue2*100+ri2)>="&yue*100+ri&" " Set Rs=conn.Execute(sql) if not rs.eof then xzmc=rs("xzmc") love=rs("love") lovesay=rs("lovesay") lovelx=rs("lovelx") lovecq=rs("lovecq") meili=rs("meili") yjzq=rs("yjzq") lovesee=rs("lovesee") lover1=rs("lover1") lover0=rs("lover0") end if conn.close set conn=nothing %>
|
|||
然后保存到 | |