📄 history_person_detail.asp
字号:
<%'创建时间:2004/07/13
'创建人:
'功能:用于详细显示每个会员的下注情况
%>
<!--#include file="Include/conn.asp"-->
<!--#include file="Include/Islogin.asp"-->
<%
name1=request.querystring("name")
type1=cstr(request.QueryString("type1"))
set Count_rs=server.createobject("adodb.recordset")
select case type1
case ""
count_sql="select invest_secondtype,Invest_agzc,invest_feizc,invest_type,invest_name,invest_money,invest_rate=convert(varchar(10),invest_rate),invest_rate2,invest_number=convert(varchar(3),invest_number),invest_time,invest_feico,result=case when invest_result=0 then -invest_money*(1-invest_feico)when invest_result=1 then (case when invest_amount='和局'then 0 else invest_money*invest_rate-(invest_money*(1-invest_feico)) end ) end from invest where invest_issue="&history_issue&" and invest_name='"&name1&"' and invest_banlance=1 union all select invest_secondtype,Invest_agzc,invest_feizc,invest_type,invest_name,invest_money=invest_money*invest_zs ,invest_rate=(convert(varchar(10),round(invest_rate1,2))+'/'+convert(varchar(10),round(invest_rate2,2))),invest_rate2,invest_number,invest_time,invest_feico,result=case when invest_result=0 THEN (CASE WHEN invest_type <> 4 THEN - invest_money * (1 - invest_feico) ELSE - (invest_money * invest_zs * (1 - invest_feico)) END) WHEN invest_result = 1 THEN (case when invest_amount='和局'then 0 else (CASE WHEN invest_type <> 4 THEN invest_money * invest_rate1 - (invest_money * (1 - invest_feico)) ELSE ((invest_money * win_thow * invest_rate1) + (invest_money * win_zhow * invest_rate2)) - (invest_money * invest_zs * (1 - invest_feico)) END) END )end from invest_l where invest_issue="&history_issue&" and invest_name='"&name1&"' and invest_banlance=1"
case "1"
Count_sql="select invest_secondtype,Invest_agzc,invest_feizc,invest_type,invest_name,invest_money,invest_rate,invest_amount,invest_number,invest_time,invest_feico,result=case when invest_result=0 then -invest_money*(1-invest_feico)when invest_result=1 then (case when invest_amount='和局' then 0 else invest_money*invest_rate-(invest_money*(1-invest_feico)) end ) end from invest where invest_issue="&history_issue&" and invest_name='"&name1&"' and invest_banlance=1 and invest_type="&type1
case "2"
Count_sql="select invest_secondtype,Invest_agzc,invest_feizc,invest_type,invest_name,invest_money,invest_rate,invest_amount,invest_number,invest_time,invest_feico,result=case when invest_result=0 then -invest_money*(1-invest_feico)when invest_result=1 then (case when invest_amount='和局' then 0 else invest_money*invest_rate-(invest_money*(1-invest_feico)) end ) end from invest where invest_issue="&history_issue&" and invest_name='"&name1&"' and invest_banlance=1 and invest_type="&type1
case "3"
Count_sql="select invest_secondtype,Invest_agzc,invest_feizc,invest_type,invest_name,invest_money,invest_rate,invest_amount,invest_number,invest_time,invest_feico,result=case when invest_result=0 then -invest_money*(1-invest_feico)when invest_result=1 then (case when invest_amount='和局' then 0 else invest_money*invest_rate-(invest_money*(1-invest_feico)) end ) end from invest where invest_issue="&history_issue&" and invest_name='"&name1&"' and invest_banlance=1 and invest_type="&type1
case "4"
count_sql="select Invest_agzc,invest_feizc,invest_type,invest_secondtype,invest_name,invest_money=invest_money*invest_zs ,invest_rate1,invest_rate2,invest_number,invest_time,invest_feico,result=case when invest_result=0 then -(invest_money*invest_zs*(1-invest_feico)) when invest_result=1 then ((invest_money*win_thow*invest_rate1)+(invest_money*win_zhow*invest_rate2))-(invest_money*invest_zs*(1-invest_feico)) end from invest_l where invest_issue="&history_issue&" and invest_name='"&name1&"' and invest_banlance=1 and invest_type=4"
case "5"
Count_sql="select invest_secondtype,Invest_agzc,invest_feizc,invest_type,invest_name,invest_money,invest_rate,invest_number,invest_time,invest_feico,result=case when invest_result=0 then -invest_money*(1-invest_feico)when invest_result=1 then (case when invest_amount='和局' then 0 else invest_money*invest_rate-(invest_money*(1-invest_feico)) end ) end from invest where invest_issue="&history_issue&" and invest_name='"&name1&"' and invest_banlance=1 and invest_type="&type1
case "6"
Count_sql="select invest_secondtype,Invest_agzc,invest_feizc,invest_type,invest_name,invest_money,invest_rate1,invest_number,invest_time,invest_feico,result=case when invest_result=0 then -invest_money*(1-invest_feico)when invest_result=1 then invest_money*invest_rate1-(invest_money*(1-invest_feico)) end from invest_l where invest_issue="&history_issue&" and invest_name='"&name1&"' and invest_banlance=1 and invest_type="&type1
case "7"
Count_sql="select invest_secondtype,Invest_agzc,invest_feizc,invest_type,invest_name,invest_money,invest_rate1,invest_number,invest_time,invest_feico,result=case when invest_result=0 then -invest_money*(1-invest_feico)when invest_result=1 then (case when invest_amount='和局' then 0 else invest_money*invest_rate1-(invest_money*(1-invest_feico))end) end from invest_l where invest_issue="&history_issue&" and invest_name='"&name1&"' and invest_banlance=1 and invest_type="&type1
case "8"
Count_sql="select invest_secondtype,Invest_agzc,invest_feizc,invest_type,invest_name,invest_money,invest_rate1,invest_number,invest_time,invest_feico,result=case when invest_result=0 then -invest_money*(1-invest_feico)when invest_result=1 then invest_money*invest_rate1-(invest_money*(1-invest_feico)) end from invest_l where invest_issue="&history_issue&" and invest_name='"&name1&"' and invest_banlance=1 and invest_type="&type1
case "9"
Count_sql="select invest_secondtype,Invest_agzc,invest_feizc,invest_type,invest_name,invest_money,invest_rate1,invest_number,invest_time,invest_feico,result=case when invest_result=0 then -invest_money*(1-invest_feico)when invest_result=1 then (case when invest_amount='和局' then 0 else invest_money*invest_rate1-(invest_money*(1-invest_feico))end) end from invest_l where invest_issue="&history_issue&" and invest_name='"&name1&"' and invest_banlance=1 and invest_type="&type1
case "10"
Count_sql="select invest_secondtype,Invest_agzc,invest_feizc,invest_type,invest_name,invest_money,invest_rate1,invest_number,invest_time,invest_feico,result=case when invest_result=0 then -invest_money*(1-invest_feico)when invest_result=1 then (case when invest_amount='和局' then 0 else invest_money*invest_rate1-(invest_money*(1-invest_feico))end) end from invest_l where invest_issue="&history_issue&" and invest_name='"&name1&"' and invest_banlance=1 and invest_type="&type1
end select
'response.write count_sql
Count_rs.open Count_sql,conn,1,1
%>
<html>
<head>
<link href="include/css.css" rel="stylesheet" type="text/css">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
<style type="text/css">
<!--
.style2 {color: #FF9900}
.style3 { color: #000000;
font-weight: bold;
}
-->
</style>
</head>
<body style="background-color: #F2F2F2">
<table border="1" width="739" cellspacing="0" cellpadding="0" bordercolor="#E0E0E0" style="border-collapse: collapse" height="10%">
<tr>
<td width="731" valign="top">
<center>
<table border="1" cellspacing="1" width="733" bordercolor="#F2F2F2" bordercolorlight="#F2F2F2" bordercolordark="#9D9CA4" height="102">
<tr align="center" bgcolor="#E5EAEE">
<td height="20" colspan="9" width="725">
<form name="form1" method="post" action="">
<span class="style2"><a href="history_count.asp" >
返回 </a>
<input name="radio" type="radio" onclick="javascript:self.location.href='?name=<%=name1%>'" <%if type1="" then response.write "checked"%>>
全部 <input type="radio" name="radio" onclick="javascript:self.location.href='?type1=1&name=<%=name1%>'" <%if type1="1" then response.write "checked"%>>
特码
<input type="radio" name="radio" onclick="javascript:self.location.href='?type1=2&name=<%=name1%>'" <%if type1="2" then response.write "checked"%>>
正码
<input type="radio" name="radio" onclick="javascript:self.location.href='?type1=3&name=<%=name1%>'" <%if type1="3" then response.write "checked"%>>
两面 <input type="radio" name="radio" onclick="javascript:self.location.href='?type1=5&name=<%=name1%>'" <%if type1="5" then response.write "checked"%>>
波色
<input type="radio" name="radio" onClick="javascript:self.location.href='?type1=4&name=<%=name1%>'" <%if type1="4" then response.write "checked"%>>
连码
<input type="radio" name="radio" onclick="javascript:self.location.href='?type1=8&name=<%=name1%>'" <%if type1="8" then response.write "checked"%>>
正码过关
<input type="radio" name="radio" onClick="javascript:self.location.href='?type1=6&name=<%=name1%>'" <%if type1="6" then response.write "checked"%>>
生肖
<input type="radio" name="radio" onClick="javascript:self.location.href='?type1=7&name=<%=name1%>'" <%if type1="7" then response.write "checked"%>>
一肖</span><span class="style2">
<input type="radio" name="radio" onClick="javascript:self.location.href='?type1=9&name=<%=name1%>'" <%if type1="9" then response.write "checked"%>>
六肖</span>
<input type="radio" name="radio" onClick="javascript:self.location.href='?type1=10&name=<%=name1%>'" <%if type1="10" then response.write "checked"%>>
<span class="style2">半波</span>
</form></td>
</tr>
<tr align="center" bgcolor="#CCCCCC">
<td width="33" height="20" bgcolor="#BCD5E4">类别</td>
<td width="58" height="20" bgcolor="#BCD5E4">投注会员</td>
<td width="51" bgcolor="#BCD5E4" height="20">代理占成</td>
<td width="51" bgcolor="#BCD5E4" height="20">销商占成</td>
<td width="119" height="20" bgcolor="#BCD5E4">球号</td>
<td width="75" height="20" bgcolor="#BCD5E4">投注金额</td>
<td width="73" height="20" bgcolor="#BCD5E4">投注结果</td>
<td width="45" height="20" bgcolor="#BCD5E4">赔率</td>
<td width="164" bgcolor="#BCD5E4" height="20"> 投注时间 </td>
</tr>
<%
do while not Count_rs.eof
%>
<tr align="center" bgcolor="#f2f2f2">
<td width="33" height="9">
<%
select case Count_rs("Invest_type")
case "1"
response.write "特码"
case "2"
response.write "正码"
case "3"
response.write "两面"
case "4"
response.write "连码"
case "5"
response.write "色波"
case "6"
response.write "生肖"
case "7"
response.write "一肖"
case "8"
response.write "正码过关"
case "9"
response.write "六肖"
case "10"
response.write "半波"
end select
%>
</td>
<td width="58" height="9"><%=Count_rs("Invest_name")%> </td>
<td width="51" height="9">0<%=formatnumber(Count_rs("Invest_agzc"))%></td>
<td width="51" height="9">0<%=formatnumber(Count_rs("Invest_feizc"))%></td>
<td width="119" height="9"><%select case type1
case ""
select case count_rs("invest_type")
case 1
response.write (Count_rs("invest_number"))
case 2
response.write (Count_rs("invest_number"))
case 3
select case Count_rs("Invest_secondtype")
case "58"
response.write "红波"
case "59"
response.write "绿波"
case "60"
response.write "蓝波"
case "61"
response.write "合单"
case "62"
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 "总小"
end select
end if
case 4
select case count_rs("invest_secondtype")
case "1"
response.write "二全中"
case "2"
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
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 (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"
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
'-----显示特码-----
case "1"
response.write " 特码 "
select case count_rs("invest_secondtype")
case "50"
' type2="特单"
response.write "特单"
case "51"
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -