<% '把用户信息写入cookies writecookies() %> 姓名,取名,改名,姓名吉凶,电脑取名,姓名预测,姓名测试,名字测试,姓名测评,姓名与命运 <% if xing<>"" then %> <% '处理用户信息 '姓 dim xing1,xing2,bihua1,bihua2 bihua1=0 bihua2=0 xing1=mid(xing,1,1) bihua1=getnum(xing1) if mid(xing,2,1) <> "" then xing2=mid(xing,2,1) bihua2=getnum(xing2) end if '名 dim ming1,ming2,bihua3,bihua4 bihua3=0 bihua4=0 ming1=mid(ming,1,1) bihua3=getnum(ming1) if mid(ming,2,1) <> "" then ming2=mid(ming,2,1) bihua4=getnum(ming2) end if '笔画总数 dim bihua bihua=bihua1+bihua2+bihua3+bihua4 %> <% on error resume next '测算姓名 dim sqlcesuan,cesuancontent sqlcesuan="select * from 81 where num='"&bihua&"'" set rscesuan=conn.execute(sqlcesuan) if not (rscesuan.bof and rscesuan.eof) then cesuancontent=rscesuan("content") end if %> <% '输出测算姓名内容 If Err Then response.Write "测算姓名查询内容出错!" err.Clear Response.End End If %>
<%=""&xing&ming&""&" "%>您的姓名经过预测系统的分析结果如下:
<%="        "&cesuancontent%>

更多预测项目进入千年阳光在线预测系统

生辰八字 生日密码 三才吉凶 血型分析 生肖属相 星座智商

星座配对 血型配对 恋爱配对 生肖配对 指纹 测字 卜卦 称骨 抽签 占卜 解梦

<%else%> <%response.Redirect("youinfo.asp")%>
千年阳光预测系统请点此输入您的生日数据!
你名字的背后藏着秘密哦!!!

姓名不仅仅是一个人的代号而已,通过只属于你个人的名字,可以看出你的个性和特质;同时,也可以找到你最有利的成功点哦。我们还会给你针对你的性格的一点建议,对于成功是大有助益的,赶紧进来探询你名字背后的玄机与秘密吧?
<%end if%>