<%
'把用户信息写入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
%>