图例
```
<%
txt1="坎坤震巽坤乾兑艮离"
txt2="坎坤震巽艮乾兑艮离"
dim strtxt(7)
strtxt(1)="延年乾坤震巽坎离艮兑坤乾巽震离坎兑艮"
strtxt(2)="生气乾兑坤艮震离巽坎兑乾艮坤离震坎巽"
strtxt(3)="天乙乾艮坤兑震坎巽离艮乾兑坤坎震离巽"
strtxt(4)="绝命乾离坤坎震兑巽艮离乾坎坤兑震艮巽"
strtxt(5)="祸害乾巽坤震坎兑离艮巽乾震坤兑坎艮离"
strtxt(6)="五鬼乾震坤巽坎艮离兑震乾巽坤艮坎兑离"
strtxt(7)="六煞乾坎坤离震艮巽兑坎乾离坤艮震兑巽"
function checkstr(strvalue1,strvalue2)
for i=1 to 8
strval1=mid(strvalue1,2*i+1,2)
if strval1=strvalue2 then
strval2=mid(strvalue1,1,2)
end if
next
checkstr=strval2
end function
if request("action")="ok" then
mnf=request.form("mnf")
mnf1=request.form("mnf1")
mnf2=request.form("mnf2")
wnf=request.form("wnf")
wnf1=request.form("wnf1")
wnf2=request.form("wnf2")
str1=mnf1+mnf2
str2=wnf1+wnf2
if mnf="1" then
str1=(100-str1) mod 9
else
str1=(99-str1) mod 9
end if
if wnf="1" then
str2=(str2+5) mod 9
else
str2=(str2+6) mod 9
end if
if str1=0 then str1=9
if str2=0 then str2=9
str1=mid(txt1,str1,1)
str2=mid(txt2,str2,1)
if str1=str2 then
str="辅弼 "&str1&str2
else
strt=str1&str2
for k=1 to 7
str=checkstr(strtxt(k),strt)
if str="" then
else
exit for
end if
next
if str="" then
str="算不出来"
else
if k>=3 then
str="凶"&str
else
str="吉"&str
end if
end if
str=str&strt
end if
response.write str
Else
%>
<form name="form1" method="post" action="index.asp?action=ok">
男：出生年份：
<select name="mnf" size="1">
<option value="1">19</option>
<option value="2">20</option>
</select>
<select name="mnf1" size="1">
<option value="0">0</option>
<option value="1">1</option>
<option value="2">2</option>
<option value="3">3</option>
<option value="4">4</option>
<option value="5">5</option>
<option value="6">6</option>
<option value="7">7</option>
<option value="8">8</option>
<option value="9">9</option>
</select>
<select name="mnf2" size="1">
<option value="0">0</option>
<option value="1">1</option>
<option value="2">2</option>
<option value="3">3</option>
<option value="4">4</option>
<option value="5">5</option>
<option value="6">6</option>
<option value="7">7</option>
<option value="8">8</option>
<option value="9">9</option>
</select>
<BR>
女：出生年份：
<select name="wnf" size="1">
<option value="1">19</option>
<option value="2">20</option>
</select>
<select name="wnf1" size="1">
<option value="0">0</option>
<option value="1">1</option>
<option value="2">2</option>
<option value="3">3</option>
<option value="4">4</option>
<option value="5">5</option>
<option value="6">6</option>
<option value="7">7</option>
<option value="8">8</option>
<option value="9">9</option>
</select>
<select name="wnf2" size="1">
<option value="0">0</option>
<option value="1">1</option>
<option value="2">2</option>
<option value="3">3</option>
<option value="4">4</option>
<option value="5">5</option>
<option value="6">6</option>
<option value="7">7</option>
<option value="8">8</option>
<option value="9">9</option>
</select>
<Br>
<input type="submit" name="submit" value="测试">
</form>
<%
end if
%>
```
