📄 member_statistics.asp
字号:
<!-- #include virtual="/admin/admin_head.asp" -->
<%
s_type = request("s_type")
%>
<script language=javascript>
<!--
function Checkit ()
{
form = document.member_statistics;
if (form.s_type.value == '') {
alert ("辆幅甫 急琶窍技夸.");
form.s_type.focus ();
return false;
}
return true;
}
//-->
</script>
<table border="0" cellpadding="0" cellspacing="0" height="100%">
<tr>
<td> </td>
<td width="752" valign="top" align="cener">
<form name="member_statistics" action="member_statistics.asp" method=post onsubmit="return Checkit()">
<table width="750" border="0" cellspacing="1" cellpadding="1" align="center" bgcolor="white">
<tr>
<td bgcolor="#CCCCCC" height="40" colspan="2">
<div align="center"><font size="5" face="蹈框"><b>雀盔烹拌 </b></font></div>
</td>
</tr>
<tr>
<td class="boardtext03" valign="middle" align="right" width="50%">
烹拌 辆幅 :
<select name="s_type" class="border" onFocus="this.style.backgroundColor='D0F2FD'" onBlur="this.style.backgroundColor='ffffff'">
<option value=""<%if s_type = "" then%>selected <%end if%>>辆幅甫 急琶窍技夸.</option>
<option value="01"<%if s_type = 01 then%>selected <%end if%>>己喊</option>
<option value="02"<%if s_type = 02 then%>selected <%end if%>>楷飞</option>
</select>
</td>
<td class="boardtext03" valign="middle" align="left" width="50%">
<input type="image" src="http://www.toksclub.com/admin/icons/search.gif">
</td>
</tr>
<tr>
<td colspan="2" align="center" class="boardtext03">
<%
if s_type <> "" then
sql = "Select count(*) count From ib_member"
set rs = server.CreateObject("adodb.recordset")
rs.Open sql, DbCon, 1, 3
total_count = rs("count")
response.write "<b>醚 雀盔荐 : "& total_count &" 疙</b><br><br>"
if s_type = "01" then
sql = "Select count(*) count From ib_member Where MF = 0"
set rs1 = server.CreateObject("adodb.recordset")
rs1.Open sql, DbCon, 1, 3
sql = "Select count(*) count From ib_member Where MF = 1"
set rs2 = server.CreateObject("adodb.recordset")
rs2.Open sql, DbCon, 1, 3
man = CLng(rs1("count"))
woman = CLng(rs2("count"))
sex_percent1 = CDbl(man) * 100 / total_count
sex_percent1 = FormatNumber(sex_percent1, 1)
sex_percent2 = CDbl(woman) * 100 / total_count
sex_percent2 = FormatNumber(sex_percent2, 1)%>
<table border="0" width="100%">
<tr><td align="center" colspan="2"><b><big>己喊 烹拌<br><br></big></b></td></tr>
<tr><td align="right" width="25%">巢己 : </td><td><img src="http://www.toksclub.com/admin/img/blue_bar.gif" width="<%=sex_percent1%>%" height="13"> <%=man%> 疙 <%=sex_percent1%> %</td></tr>
<tr><td align="right">咯己 : </td><td><img src="http://www.toksclub.com/admin/img/red_bar.gif" width="<%=sex_percent2%>%" height="13"> <%=woman%> 疙 <%=sex_percent2%> %</td></tr>
</table>
<%end if
if s_type = "02" then
ele = 0
middle = 0
high = 0
twenty = 0
thirty = 0
forty = 0
ele1 = 0
middle1 = 0
high1 = 0
twenty1 = 0
thirty1 = 0
forty1 = 0
sql = "Select JuminA, MF from ib_member where partner_tag != 'NM' "
set rs1= DbCon.execute(sql)
total_count = 0
while not rs1.EOF
if trim(rs1("JuminA")) = "" then rs1.MoveNext
jumin = Cint(left(trim(rs1("JuminA")),2))
cur_year = 103
sex = rs1("MF")
'total = clng(total + clng(rs("counter")))
if (cur_year - jumin) < 12 then
if sex = 0 then ele = ele + 1
if sex = 1 then ele1 = ele1 + 1
elseif (cur_year - jumin) < 15 then
if sex = 0 then middle = middle + 1
if sex = 1 then middle1 = middle1 + 1
elseif (cur_year - jumin) < 18 then
if sex = 0 then high = high + 1
if sex = 1 then high1 = high1 + 1
else
if sex = 0 then forty = forty + 1
if sex = 1 then forty1 = forty1 + 1
end if
total_count = total_count + 1
rs1.MoveNext
wend
sql = "Select count(*) as counter from ib_member where partner_tag = 'NM' and MF = 0 "
set rs2= DbCon.execute(sql)
sql = "Select count(*) as counter from ib_member where partner_tag = 'NM' and MF = 1 "
set rs3= DbCon.execute(sql)
NM_man = rs2("counter")
NM_girl = rs3("counter")
age_percent1 = CDbl(ele+ele1) * 100 / total_count
age_percent1 = FormatNumber(age_percent1, 1)
age_percent2 = CDbl(middle+middle1) * 100 / total_count
age_percent2 = FormatNumber(age_percent2, 1)
age_percent3 = CDbl(high+high1) * 100 / total_count
age_percent3 = FormatNumber(age_percent3, 1)
age_percent4 = CDbl(forty+forty1) * 100 / total_count
age_percent4 = FormatNumber(age_percent4, 1)
%>
<table border="0" width="100%" class="boardtext03">
<tr><td align="center" colspan="2"><b><big>楷飞 烹拌<br><br></big></b></td></tr>
<tr><td align="right" width="25%">父 12技 固父 : </td><td><img src="http://www.toksclub.com/admin/img/blue_bar.gif" width="<%=age_percent1%>%" height="13"> <%=ele+ele1%> 疙 <%=age_percent1%> % 巢磊 : <%= ele%>疙 咯磊 : <%=ele1%>疙</td></tr>
<tr><td align="right">父 15技 固父 : </td><td><img src="http://www.toksclub.com/admin/img/red_bar.gif" width="<%=age_percent2%>%" height="13"> <%=middle+middle1%> 疙 <%=age_percent2%> % 巢磊 : <%= middle%>疙 咯磊 : <%=middle1%>疙</td></tr>
<tr><td align="right">父 18技 固父 : </td><td><img src="http://www.toksclub.com/admin/img/blue_bar.gif" width="<%=age_percent3%>%" height="13"> <%=high+high1%> 疙 <%=age_percent3%> % 巢磊 : <%= high%>疙 咯磊 : <%=high1%>疙</td></tr>
<tr><td align="right">父 18技 捞惑 : </td><td><img src="http://www.toksclub.com/admin/img/red_bar.gif" width="<%=age_percent4%>%" height="13"> <%=forty+forty1%> 疙 <%=age_percent4%> % 巢磊 : <%= forty%>疙 咯磊 : <%=forty1%>疙</td></tr>
<tr><td align="right">齿付喉 : </td><td><%=NM_man+NM_girl%> 疙 巢磊 : <%=NM_man%>疙 咯磊 : <%=NM_girl%>疙</td></tr>
</table>
<%
end if
if s_type = "03" then
ele = 0
middle = 0
high = 0
twenty = 0
thirty = 0
forty = 0
ele1 = 0
middle1 = 0
high1 = 0
twenty1 = 0
thirty1 = 0
forty1 = 0
for index = 1 to total_count
sql = "Select UserID, JuminA, MF From ib_member Where Idx = '"& index &"'"
set rs1 = server.CreateObject("adodb.recordset")
rs1.Open sql, DbCon, 1, 3
if not rs1.EOF then
cur_year = 103'clng(year(now()))
sex = rs1("MF")
ID = rs1("UserID")
jumin = left(rs1("JuminA"),2)
jumin2 = left(jumin,2)
jumin = Cint(jumin)
' if jumin2 < right(cur_year,2) then
' jumin = "20" & jumin2
' else
' jumin = "19" & jumin2
' end if
if (cur_year - jumin) < 11 then
ele = ele + 1
if sex = 0 then ele1 = ele1 + 1
elseif (cur_year - jumin) < 15 then
middle = middle + 1
if sex = 0 then middle1 = middle1 + 1
elseif (cur_year - jumin) < 21 then
high = high + 1
if sex = 0 then high1 = high1 + 1
elseif (cur_year - jumin) < 31 then
twenty = twenty + 1
if sex = 0 then twenty1 = twenty1 + 1
elseif (cur_year - jumin) < 41 then
thirty = thirty + 1
if sex = 0 then thirty1 = thirty1 + 1
else
forty = forty + 1
if sex = 0 then forty1 = forty1 + 1
end if
end if
'response.write ID &" : "& jumin & "<br>"
next
age_percent1 = CDbl(ele) * 100 / total_count
age_percent1 = FormatNumber(age_percent1, 1)
age_percent2 = CDbl(middle) * 100 / total_count
age_percent2 = FormatNumber(age_percent2, 1)
age_percent3 = CDbl(high) * 100 / total_count
age_percent3 = FormatNumber(age_percent3, 1)
age_percent4 = CDbl(twenty) * 100 / total_count
age_percent4 = FormatNumber(age_percent4, 1)
age_percent5 = CDbl(thirty) * 100 / total_count
age_percent5 = FormatNumber(age_percent5, 1)
age_percent6 = CDbl(forty) * 100 / total_count
age_percent6 = FormatNumber(age_percent6, 1)
%>
<table border="0" width="100%">
<tr><td align="center" colspan="2"><b><big>楷飞 烹拌<br><br></big></b></td></tr>
<tr><td align="right" width="25%">父 11技 固父 : </td><td><img src="/admin/img/blue_bar.gif" width="<%=age_percent1%>%" height="13"> <%=ele%> 疙 <%=age_percent1%> % 巢磊 : <%= ele1%>疙 咯磊 : <%= ele - ele1%>疙</td></tr>
<tr><td align="right">父 15技 固父 : </td><td><img src="/admin/img/red_bar.gif" width="<%=age_percent2%>%" height="13"> <%=middle%> 疙 <%=age_percent2%> % 巢磊 : <%= middle1%>疙 咯磊 : <%= middle - middle1%>疙</td></tr>
<tr><td align="right">父 21技 固父 : </td><td><img src="/admin/img/blue_bar.gif" width="<%=age_percent3%>%" height="13"> <%=high%> 疙 <%=age_percent3%> % 巢磊 : <%= high1%>疙 咯磊 : <%= high - high1%>疙</td></tr>
<tr><td align="right">父 31技 固父 : </td><td><img src="/admin/img/red_bar.gif" width="<%=age_percent4%>%" height="13"> <%=twenty%> 疙 <%=age_percent4%> % 巢磊 : <%= twenty1%>疙 咯磊 : <%= twenty - twenty1%>疙</td></tr>
<tr><td align="right">父 41技 固父 : </td><td><img src="/admin/img/blue_bar.gif" width="<%=age_percent5%>%" height="13"> <%=thirty%> 疙 <%=age_percent5%> % 巢磊 : <%= thirty1%>疙 咯磊 : <%= thirty - thirty1%>疙</td></tr>
<tr><td align="right">父 41技 捞惑 : </td><td><img src="/admin/img/red_bar.gif" width="<%=age_percent6%>%" height="13"> <%=forty%> 疙 <%=age_percent6%> % 巢磊 : <%= forty1%>疙 咯磊 : <%= forty - forty1%>疙</td></tr>
</table>
<%end if
end if%>
</td>
</tr>
</table>
</form>
</td>
</tr>
</table>
<!-- #include virtual="/admin/admin_bottom.asp" -->
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -