📄 a_counttm.asp
字号:
<%'创建时间:2004/07/12
'创建人:
%>
<!--#include file="Include/conn.asp"-->
<!--#include file="Include/Islogin.asp"-->
<% dim s
s=session("A_name")
set M_rs=server.createobject("adodb.recordset")
M_sql="select Agent_page,Agent_online,Agent_id,Agent_name,Agent_realname,Agent_total,Agent_list,Agent_rank,Agent_restart,Agent_fronttime,Agent_regtime from Agent where Agent_name='"&s&"'"
M_rs.open M_sql,conn,1,3
M_rs("Agent_online")=now()
M_rs("Agent_page")="收付统计-正码"
M_rs.update%>
<%
set AC_rs=server.createobject("adodb.recordset")
if session("a_rank")=1 then
row_2=4
AC_sql="select rate= case when rate_number<50 then max(rate_z) when rate_number>49 then max(rate_t) end ,money1=sum(isnull(money,0)),rate_number,re=count(re) , money2=sum(isnull(money2,0)),max(rate_color) from (select r.rate_z,r.rate_t,money=isnull(i.money,0),money2=(isnull(i.money,0)*invest_agzc),r.rate_number,r.rate_color,re=i.re,i.invest_second from (select money=isnull((invest_money),0) ,re=isnull((invest_id),0),invest_number,invest_second,invest_agzc from invest where (invest_number<54 or(invest_number>53 and invest_number<58)) and invest_issue="&count_issue&" and invest_frist='"&session("a_name")&"'and ((invest_type=2 and invest_number<50) or (invest_type=3 and invest_number>53 and invest_number<58) )) i right join (select * from rate_1 where rate_number<50 or (rate_number >53 and rate_number<58)) r on r.rate_number=i.invest_number) t group by rate_number"
else
row_2=4
AC_sql="select rate= case when rate_number<50 then max(rate_z) when rate_number>49 then max(rate_t) end ,money1=sum(isnull(money,0)),rate_number,re=count(re) , money2=sum(isnull(money2,0)),max(rate_color) from (select r.rate_z,r.rate_t,money=isnull(i.money,0),money2=(isnull(i.money,0)*invest_feizc),r.rate_number,r.rate_color,re=i.re,i.invest_second from (select money=isnull((invest_money),0) ,re=isnull((invest_id),0),invest_number,invest_second,invest_feizc from invest where (invest_number<54 or(invest_number>53 and invest_number<58)) and invest_issue="&count_issue&" and invest_second='"&session("a_name")&"'and ((invest_type=2 and invest_number<50) or (invest_type=3 and invest_number>53 and invest_number<58) )) i right join (select * from rate_1 where rate_number<50 or (rate_number >53 and rate_number<58)) r on r.rate_number=i.invest_number) t group by rate_number"
end if
AC_rs.open AC_sql,conn,1,1
Dim AC(61,5)
col=1
do while not AC_rs.eof and col<58
if col=50 then
AC(col,0)="功能"
else
for row=0 to row_2
AC(col,row)=AC_rs(row)
if row=row_2 and col<50 then AC(col,row+1)=AC_rs(row+1)
next
AC_rs.movenext
end if
col=col+1
loop
%>
<html>
<head>
<style>
td{font-size:9pt;line-height:120%;color:#3d3d3d}
body{font-size:9pt;line-height:120%}
a:link { color: #000000; text-decoration: none }
a:visited { color: #000000; text-decoration: none }
a:active { color: #000000; text-decoration: none }
a:hover { color: #0066ff; text-decoration: none; position: relative;}
.t13 {
FONT-SIZE: 14px
}
table { font-family: 宋体; font-size: 12px; cursor: default }
</style>
<link href="Include/css.css" rel="stylesheet" type="text/css">
<meta http-equiv='refresh' content='5'>
<title>无标题文档</title>
<style type="text/css">
<!--
body {
margin-top: 0px;
}
.unnamed1 {
color: #FF9900;
text-decoration: none;
}
.style11 {color: #000000}
.lp {
color: #FF0000;
text-decoration: none;
}
-->
</style>
<meta http-equiv="refresh" content="60">
</head>
<body style="background-color: #F2F2F2" topMargin=0>
<!--#include file="agent_mume.asp"-->
<table border="1" width="739" cellspacing="0" cellpadding="0" bordercolor="#E0E0E0" style="border-collapse: collapse" height="10%">
<tr>
<td width="731" valign="top">
<table width="100%" border="0" align="center" cellspacing="1" bgcolor="#999999">
<tr align="center" bgcolor="#f2f2f2">
<td width="5%" height="29" bgcolor="#BCD5E4">时间</td>
<td width="4%" bgcolor="#BCD5E4">期数</td>
<td width="4%" bgcolor="#BCD5E4">号码</td>
<td width="9%" bgcolor="#BCD5E4">注单</td>
<td width="4%" bgcolor="#BCD5E4">号码</td>
<td width="9%" bgcolor="#BCD5E4">注单</td>
<td width="4%" bgcolor="#BCD5E4">号码</td>
<td width="9%" bgcolor="#BCD5E4">注单</td>
<td width="4%" bgcolor="#BCD5E4">号码</td>
<td width="9%" bgcolor="#BCD5E4">注单</td>
<td width="4%" bgcolor="#BCD5E4">号码</td>
<td width="9%" bgcolor="#BCD5E4">注单</td>
<td width="4%" bgcolor="#BCD5E4">号码</td>
<td width="9%" bgcolor="#BCD5E4">注单</td>
<%x=1
for i=1 to 10
response.write "</tr> <tr align='center' bgcolor='#f2f2f2'>"
for j=1+i to I+60 step 10
%>
<%
if x=1 then
x=x+1
%>
<td rowspan="10"><%=formatdatetime(now,0)%></td>
<td rowspan="10"><%=count_issue%></td>
<%end if%>
<%if j<58 and j-1<>50 then
set rss=server.createobject("adodb.recordset")
sqlrss="select rate_image from rate_1 where rate_number='"&j-1&"'"
rss.open sqlrss,conn,1,1%>
<td align=middle class="<%=rss("rate_image")%>"> <%
select case j-1
case 51
response.write "总单"
case 52
response.write "总双"
case 53
response.write "总大"
case 54
response.write "总小"
case 55
response.write "合单"
case 56
response.write "合双"
case else
response.write right("0" & trim(cstr(j-1)),2)
end select%></td>
<td align=middle><%if session("a_rank")=2 then
if j-1<50 then
response.write AC(j-1,0)%><% response.write "<BR><a href='View_Count.asp?num="&j-1&"&type=2' class='lp' > "&AC(j-1,3)&"/"&AC(j-1,1)&"</href>"
else
if j-1=58 then
response.write "j"%><%response.write "<BR><a href='View_Count.asp?num="& AC(j-1,2)&"&type=5' class='lp'> "&AC(1,3)&"/"&AC(1,1)&"</href>"
else
response.write AC(j-1,0)%><%response.write "<BR><a href='View_Count.asp?num="& AC(j-1,2)&"&type=3' class='lp'> "&AC(j-1,3)&"/"&AC(j-1,1)&"</href>"
end if
end if
else
if j-1<50 then
response.write AC(j-1,0)%><%response.write "<BR><a href='View_Count.asp?num="&j-1&"&type=2' class='lp'> "&AC(j-1,3)&"/"&AC(j-1,1)&"</href>"
else
response.write AC(j-1,0)%><%response.write "<BR><a href='View_Count.asp?num="& AC(j-1,2)&"&type=3' class='lp'> "&AC(j-1,3)&"/"&AC(j-1,1)&"</href>"
end if
end if%></td>
<%else%>
<td colspan="2"><%
if j-1=50 then
response.write AC(50,0)
else
response.write " "
end if
%></td>
<%j=j+1
exit for
end if%>
<%next
next%>
<td colspan="2"> </td>
</tr>
</table>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -