📄 person_detail.asp
字号:
rate=count_rs("invest_rate1")
response.write " 特 串"
case "4"
rate=count_rs("invest_rate1")
response.write " 三全中"
case "5"
rate=count_rs("invest_rate1")&"/"&count_rs("invest_rate2")
response.write " 三中二"
end select
else
select case count_rs("invest_secondtype")
case "1"
rate=count_rs("invest_rate")
response.write " 二全中"
case "2"
rate=count_rs("invest_rate")&"/"&count_rs("invest_rate2")
response.write " 二中特"
case "3"
rate=count_rs("invest_rate")
response.write " 特 串"
case "4"
rate=count_rs("invest_rate")
response.write " 三全中"
case "5"
rate=count_rs("invest_rate")&"/"&count_rs("invest_rate2")
response.write " 三中二"
end select
end if
response.write (Count_rs("invest_number"))
'-------波色---
case "5"
if count_rs("invest_type")=5 and count_rs("invest_secondtype")<50 then
select case cstr(Count_rs("Invest_secondtype") mod 7)
case "5"
type2="红波"
case "6"
type2="绿波"
case "0"
type2="蓝波"
end select
response.write "正码"+cstr(int((Count_rs("Invest_secondtype")-1)/7)+1)+" "+type2
else
select case Count_rs("Invest_secondtype")
case "58"
' type2="红波"
response.write "红波"
case "59"
' type2="红波"
response.write "绿波"
case "60"
' type2="红波"
response.write "蓝波"
end select
end if
'-----显示生肖-----
case "6"
response.write (Count_rs("invest_number"))
'-----显示一肖-----
case "7"
response.Write " 一肖 "
response.write (Count_rs("invest_number"))
'-----显示正码过关-----
case "8"
x=" 单, 双, 大, 小,红波,绿波,蓝波"
y="正码一,正码二,正码三,正码四,正码五,正码六"
x1=split(x,",")
y1=split(y,",")
hm=count_rs("invest_number")
hm1=split(hm,",")
response.write ubound(hm1)&"串1"
response.write "<br>"
for m=1 to ubound(hm1)
if int(hm1(m)) mod 7=0 then
select case int(hm1(m)/7)
case 1
response.Write "正码一"
case 2
response.Write "正码二"
case 3
response.Write "正码三"
case 4
response.Write "正码四"
case 5
response.Write "正码五"
case 6
response.Write "正码六"
end select
else
response.Write y1(int(hm1(m)/7))
end if
response.write " "
response.write (x1(cint(hm1(m)-1) mod 7 ))
response.write "<br>"
next
'-----显示六肖-----
case "9"
response.write (Count_rs("invest_number"))
'-----显示半波-----
case "10"
response.write (Count_rs("invest_number"))
end select%> </td>
<td width="68" height="16"><%=Count_rs("invest_money")%></td>
<td width="69" height="16"><%=Count_rs("Fact")%></td>
<td width="54" height="16"><%=Count_rs("invest_money")*Count_rs("invest_feico")%></td>
<td width="60" height="16"><%
select case type1
case ""
if count_rs("invest_type")="4" then
select case count_rs("invest_secondtype")
case "1"
rate=count_rs("invest_rate")
response.write count_rs("invest_rate")
case "2"
rate=count_rs("invest_rate")
rate2=count_rs("invest_rate2")
response.write count_rs("invest_rate")&"/"&count_rs("invest_rate2")
case "3"
rate=count_rs("invest_rate")
response.write count_rs("invest_rate")
case "4"
rate=count_rs("invest_rate")
response.write count_rs("invest_rate")
case "5"
rate=count_rs("invest_rate")
rate2=count_rs("invest_rate2")
response.write count_rs("invest_rate")&"/"&count_rs("invest_rate2")
end select
else
rate=count_rs("invest_rate")
response.write count_rs("invest_rate")
end if
case "1"
rate=count_rs("invest_rate")
response.write count_rs("invest_rate")
case "2"
rate=count_rs("invest_rate")
response.write count_rs("invest_rate")
case "3"
rate=count_rs("invest_rate")
response.write count_rs("invest_rate")
case "4"
select case count_rs("invest_secondtype")
case "1"
rate=count_rs("invest_rate1")
response.write " 二全中"
case "2"
rate=count_rs("invest_rate1")
rate2=count_rs("invest_rate2")
response.write " 二中特"
case "3"
rate=count_rs("invest_rate1")
response.write " 特 串"
case "4"
rate=count_rs("invest_rate1")
response.write " 三全中"
case "5"
rate=count_rs("invest_rate1")
rate2=count_rs("invest_rate2")
response.write " 三中二"
end select
case "5"
rate=count_rs("invest_rate")
response.write count_rs("invest_rate")
case "6"
rate=count_rs("invest_rate1")
response.write count_rs("invest_rate1")
case "7"
rate=count_rs("invest_rate1")
response.write count_rs("invest_rate1")
case "8"
rate=count_rs("invest_rate1")
response.write count_rs("invest_rate1")
case "9"
rate=count_rs("invest_rate1")
response.write count_rs("invest_rate1")
case "10"
rate=count_rs("invest_rate1")
response.write count_rs("invest_rate1")
end select
%></td>
<td width="70" height="16">
<%if count_rs("invest_type")="4" then
select case count_rs("invest_secondtype")
case "1"
response.write rate*Count_rs("invest_money")
case "2"
response.write rate*Count_rs("invest_money")&"/"&rate2*Count_rs("invest_money")
case "3"
response.write rate*Count_rs("invest_money")
case "4"
response.write rate*Count_rs("invest_money")
case "5"
response.write rate*Count_rs("invest_money")&"/"&rate2*Count_rs("invest_money")
end select
else
response.write rate*Count_rs("invest_money")
end if%></td>
</tr>
<%Total=Total+Count_rs("invest_money")
Fact=Fact+Count_rs("Fact")
Count_rs.movenext
loop%>
<tr align="center" bgcolor="#f2f2f2">
<td width="52" height="12" bgcolor="#E5EAEE"> </td>
<td width="55" height="12" bgcolor="#E5EAEE"> </td>
<td width="62" height="12" bgcolor="#E5EAEE"> </td>
<td width="56" height="12" bgcolor="#E5EAEE"> </td>
<td width="150" style="color: #000000; font-size:10pt" height="12" bgcolor="#E5EAEE" align="right"><%=Count_rs.recordcount%> </td>
<td width="68" height="12" bgcolor="#E5EAEE" style="font-size: 10pt; color: #000000" align="right"><%=Total%> </td>
<td colspan="2" height="12" bgcolor="#E5EAEE" style="font-size: 10pt; color: #000000" align="right" width="123"><%=Fact%></td>
<td width="60" height="12" bgcolor="#E5EAEE"> </td>
<td width="70" height="12" bgcolor="#E5EAEE">
</td>
</tr>
</table>
</table>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -