<%
if xing<>"" then
%>
<%
'处理用户信息
dim tiange,dige,renge1,renge2,renge
tiange=0
dige=0
renge1=0
renge2=0
renge=0
'姓
dim xing1,xing2,bihua1,bihua2
bihua1=0
bihua2=0
xing1=mid(xing,1,1)
bihua1=getnum(xing1)
tiange=bihua1+1
renge1=bihua1
if mid(xing,2,1) <> "" then
xing2=mid(xing,2,1)
bihua2=getnum(xing2)
tiange=bihua1+bihua2
renge1=bihua2
end if
'名
dim ming1,ming2,bihua3,bihua4
bihua3=0
bihua4=0
ming1=mid(ming,1,1)
bihua3=getnum(ming1)
dige=bihua3+1
renge2=bihua3
if mid(ming,2,1) <> "" then
ming2=mid(ming,2,1)
bihua4=getnum(ming2)
dige=bihua3+bihua4
end if
%>
<%
'计算三才
renge=renge1+renge2
dim sancai
sancai=getsancai(tiange,renge,dige)
%>
<%
on error resume next
'三才吉凶
dim sqlsancai,sancaicontent
sqlsancai="select content from sancai where title='"&sancai&"'"
set rssancai=conn.execute(sqlsancai)
if not (rssancai.bof and rssancai.eof) then
sancaicontent=rssancai("content")
end if
%>
<%
'输出
If Err Then
response.Write "三才吉凶查询内容出错!"
err.Clear
Response.End
End If
%>