📄 history_person_detail.asp
字号:
' type2="特双"
response.write "特双"
case "52"
' type2="特大"
response.write "特大"
case "53"
' type2="特小"
response.write "特小"
case "54"
'type2="总单"
response.write "总单"
case "55"
' type2="总双"
response.write "总双"
case "56"
' type2="总大"
response.write "总大"
case "57"
' type2="总小"
response.write "总小"
case "61"
response.write "合单"
case "62"
response.write "合双"
end select
response.write (right("0" & trim(cstr( Count_rs("invest_number"))),2))
'-----显示正码-----
case "2"
response.write (right("0" & trim(cstr( Count_rs("invest_number"))),2))
'-----显示正码1-6-----
case "3"
select case Count_rs("Invest_secondtype")
case "58"
response.write "红波"
case "59"
response.write "绿波"
case "60"
response.write "蓝波"
case else
' type2= Count_rs("Invest_number")
'response.write Count_rs("invest_number")
end select
if Count_rs("Invest_secondtype")<50 then
select case cstr(Count_rs("Invest_secondtype") mod 7)
case "1"
type2=" 大 "
response.write " 正码"+cstr(int((Count_rs("Invest_secondtype")-1)/7)+1)+type2
case "2"
type2=" 小 "
response.write " 正码"+cstr(int((Count_rs("Invest_secondtype")-1)/7)+1)+type2
case "3"
type2=" 单 "
response.write " 正码"+cstr(int((Count_rs("Invest_secondtype")-1)/7)+1)+type2
case "4"
type2=" 双 "
response.write " 正码"+cstr(int((Count_rs("Invest_secondtype")-1)/7)+1)+type2
end select
else
select case count_rs("invest_secondtype")
case "50"
' type2="特单"
response.write "特单"
case "51"
' type2="特双"
response.write "特双"
case "52"
' type2="特大"
response.write "特大"
case "53"
' type2="特小"
response.write "特小"
case "54"
'type2="总单"
response.write "总单"
case "55"
' type2="总双"
response.write "总双"
case "56"
' type2="总大"
response.write "总大"
case "57"
' type2="总小"
response.write "总小"
case "61"
response.write "合单"
case "62"
response.write "合双"
end select
end if
'-----显示连码-----
case "4"
select case count_rs("invest_secondtype")
case "1"
response.write " 二全中"
case "2"
response.write " 二中特"
case "3"
response.write " 特 串"
case "4"
response.write " 三全中"
case "5"
response.write " 三中二"
end select
response.write (Count_rs("invest_number"))
response.write "</span >"
'-------波色---
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 (Count_rs("invest_number"))
'-----显示正码过关-----
case "8"
if count_rs("invest_type")=8 then
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
end if
'-----显示六肖-----
case "9"
hm=count_rs("invest_number")
hm1=split(hm,",")
response.Write " 六肖 "
response.Write hm1(0)
response.write "<br>"
for i=1 to ubound(hm1)
response.write " "
response.write "<span class='style11'>"&hm1(i)&"</span>"
next
'------半波------
case "10"
response.write (Count_rs("invest_number"))
end select%>
</td>
<td width="75" height="9"><%=Count_rs("invest_money")%></td>
<td width="73" height="9"><%if Count_rs("result")=0 then
response.write "<font color='red'>和局</font>"
else
if Count_rs("result")>0 then
response.write "<font color='#ff0000'>"& Count_rs("result")&"</font>"
else
response.write Count_rs("result")
end if
end if%></td>
<td width="45" height="9"><%
select case type1
case ""
'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 count_rs("invest_rate1")
case "2"
rate=count_rs("invest_rate1")
rate2=count_rs("invest_rate2")
response.write count_rs("invest_rate1")&"/"&count_rs("invest_rate2")
case "3"
rate=count_rs("invest_rate1")
response.write count_rs("invest_rate1")
case "4"
rate=count_rs("invest_rate1")
response.write count_rs("invest_rate1")
case "5"
rate=count_rs("invest_rate1")
rate2=count_rs("invest_rate2")
response.write count_rs("invest_rate1")&"/"&count_rs("invest_rate2")
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="164" height="9"><%=Count_rs("Invest_time")%></td>
</tr>
<%Total=Total+Count_rs("invest_money")
result=result+count_rs("result")
Count_rs.movenext
loop%>
<tr align="center" bgcolor="#f2f2f2">
<td width="33" height="16" bgcolor="#E0E0E0">
</td>
<td width="58" height="16" bgcolor="#E0E0E0"> </td>
<td width="51" height="16" bgcolor="#E0E0E0"> </td>
<td width="51" height="16" bgcolor="#E0E0E0"> </td>
<td width="119" height="16" style="font-weight: bold" bgcolor="#E0E0E0">共 <%=Count_rs.recordcount%> 笔</td>
<td width="75" height="16" style="font-weight: bold" bgcolor="#E0E0E0"><%=Total%></td>
<td width="118" height="16" colspan="2" style="font-size: 10pt; color: #FF0000; font-weight: bold" bgcolor="#E0E0E0">
<span style="font-size: 9pt"><%if Result>0 then
response.write "<font color='#ff0000'>"& round(Result)&"</font>"
else
response.write round(Result)
end if%></span></td>
<td width="164" height="16" bgcolor="#E0E0E0"> </td>
</tr>
</table>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -