📄 history_person_detail-bak.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")
if type1="" then
'Count_sql="select 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 "
count_sql="select Invest_agzc,invest_feizc,invest_type,invest_name,invest_money,invest_rate=convert(varchar(10),invest_rate),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_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_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"
else if type1<>"4" then
Count_sql="select 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
else if type1="4" then
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 "
end if
end if
end if
'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="100%">
<tr>
<td width="731" valign="top">
<center><table border="1" cellspacing="1" width="96%" bordercolor="#F2F2F2" bordercolorlight="#F2F2F2" bordercolordark="#9D9CA4">
<tr align="center" bgcolor="#E5EAEE">
<td height="23" colspan="12">
<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=4&name=<%=name1%>'" <%if type1="4" 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"%>>
生肖 </span>
</form></td>
</tr>
<tr align="center" bgcolor="#CCCCCC">
<td width="6%" height="25" bgcolor="#BCD5E4">类别</td>
<td width="10%" height="25" bgcolor="#BCD5E4">投注会员</td>
<td width="8%" bgcolor="#BCD5E4">代理占成</td>
<td width="8%" bgcolor="#BCD5E4">销商占成</td>
<td width="10%" height="25" bgcolor="#BCD5E4">球号</td>
<td width="10%" height="25" bgcolor="#BCD5E4">投注金额</td>
<td width="10%" height="25" bgcolor="#BCD5E4">佣金</td>
<td width="10%" height="25" bgcolor="#BCD5E4">结果</td>
<td width="8%" height="25" bgcolor="#BCD5E4">赔率</td>
<td width="15%" bgcolor="#BCD5E4"> 投注时间 </td>
<td width="8%" height="25" bgcolor="#BCD5E4">期数</td>
</tr>
<%
do while not Count_rs.eof
%>
<tr align="center" bgcolor="#f2f2f2">
<td><% if type1<>"4" then'不为连码是类型 的显示情况
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 "8"
response.write "正码过关"
end select
else '为连码时
select case count_rs("invest_secondtype")
case "1"
rate=count_rs("invest_rate1")
response.write "二全中"
case "2"
rate=count_rs("invest_rate1")&"/"&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")&"/"&count_rs("invest_rate2")
response.write "三中二"
end select
end if
%> </td>
<td><%=Count_rs("Invest_name")%> </td>
<td width="6%">0<%=formatnumber(Count_rs("Invest_agzc"))%></td><td width="6%">0<%=formatnumber(Count_rs("Invest_feizc"))%></td>
<td><%
type2=""
if count_rs("invest_type")<>3 then
if count_rs("invest_type")=5 and Count_rs("Invest_number")<50 then
select case cstr(Count_rs("Invest_number") mod 7)
case "5"
type2="红"
case "6"
type2="绿"
case "0"
type2="蓝"
end select
response.write "正码"+cstr(int((Count_rs("Invest_number")-1)/7)+1)+type2
else
select case Count_rs("Invest_number")
case "58"
type2="红波"
response.write "红波"
case "59"
type2="绿波"
response.write "绿波"
case "60"
type2="蓝波"
response.write "蓝波"
case else
type2= Count_rs("Invest_number")
response.write Count_rs("Invest_number")
end select
end if
else
if Count_rs("Invest_number")<50 then
select case cstr(Count_rs("Invest_number") mod 7)
case "1"
type2="大"
case "2"
type2="小"
case "3"
type2="单"
case "4"
type2="双"
case "5"
type2="红"
case "6"
type2="绿"
case "0"
type2="蓝"
end select
response.write "正码"+cstr(int((Count_rs("Invest_number")-1)/7)+1)+type2
else
select case count_rs("invest_number")
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
end if
%> </td>
<td><%=Count_rs("invest_money")%> </td>
<td><%=formatnumber(count_rs("invest_feico"),3,-1) %> </td>
<td><%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><%if type1="4" then
response.write rate
else
response.write Count_rs("Invest_rate")
end if%> </td>
<td><%=Count_rs("Invest_time")%> </td>
<td><%=history_issue%> </td>
</tr>
<%Total=Total+Count_rs("invest_money")
result=result+count_rs("result")
Count_rs.movenext
loop%>
<tr align="center" bgcolor="#E5EAEE">
<td bgcolor="#f2f2f2"> </td>
<td bgcolor="#f2f2f2"> </td>
<td colspan="10" align="left" bgcolor="#f2f2f2"><span class="style3">会员统计：总投<%=Count_rs.recordcount%> 笔共<%=Total%> 元 结果：
<%if Result>0 then
response.write "<font color='#ff0000'>"& Result&"</font>"
else
response.write Result
end if%>元</span></td>
</tr>
</table>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -