month_users.asp

泡泡堂服务端内有建站说明,喜欢玩泡泡堂的朋友下载开发.

<!-- #include virtual="/admin/admin_head.asp" -->

<%
if (Trim(Request("year_from")) <> "") then
	cur_year	= CInt(Request ("year_from"))
	cur_month	= CInt(Request ("month_from"))
else
	cur_year	= Year	(Date())
	cur_month	= Month	(Date())
end if
fst_week  = Weekday (DateSerial(cur_year, cur_month, 1))
last_day  = Day(DateAdd("d", -1, DateAdd("m", 1, DateSerial(cur_year, cur_month, 1))))

link_site = Request("link_site")
if link_site = "" then link_site = "ALL"

if len(cur_month) = 1 then cur_month = "0" & cur_month
if cur_month = 12 then
	next_month = "01"
	next_year = cur_year + 1
else
	next_month = cur_month + 1
	next_year = cur_year
end if

sql = "SELECT   COUNT(*)  AS counter, LEFT(GaipDate, 10) AS GaipDate "
sql = sql & "FROM      IB_MEMBER "
sql = sql & "WHERE   (GaipDate >= '"& cur_year &"-"& cur_month &"-01') AND (GaipDate < '"& next_year &"-"& next_month &"-01') "
if link_site <> "ALL" then
	sql = sql & "AND partner_tag = '" & link_site & "' "
end if
sql = sql & "GROUP BY LEFT(GaipDate, 10) "
sql = sql & "ORDER BY GaipDate "

set rs = DbCon.execute (sql)

sql = "select count(*) counter , partner_tag from ib_member "
sql = sql & " group by partner_tag "
set rs1 = DbCon.execute (sql)

cur_users = Application.value ("users")
total_count = 0

if not rs1.EOF then
	while not rs1.EOF
		a_partner_id = rs1("partner_tag")
		if a_partner_id = "BG" then ' 航霸烙
		 bgmemb = rs1("counter")
		'elseif a_partner_id = "NT" then ' 匙捞飘
		 'ntmemb = rs1("counter")
		elseif a_partner_id = "BM" then ' 棍胶孤流
		 bmmemb = rs1("counter")
		elseif a_partner_id = "JC" then ' 炼捞揪匙
		 jcmemb = rs1("counter")
		elseif a_partner_id = "LH" then ' 扼弊窍烙
		 lhmemb = rs1("counter")
		elseif a_partner_id = "NM" then ' 齿付喉
		 nmmemb = rs1("counter")
		end if		
	    rs1.moveNext
	wend

end if
totalmemb=cLng(CLng(bgmemb)+CLng(ntmemb)+CLng(bmmemb)+CLng(jcmemb)+CLng(lhmemb)+CLng(nmmemb))
%>
<table border=0>
  <tr>
	<td width="200">
		<font size=2>
		泅犁 航霸烙 啊涝磊 荐 : <%=formatnumber(bgmemb,0)%><br>
		<!-- 泅犁 匙捞飘 啊涝磊 荐 : <%=formatnumber(ntmemb,0)%><br> -->
		泅犁 棍胶孤流 啊涝磊 荐 : <%=formatnumber(bmmemb,0)%><br>
		泅犁 炼捞揪匙 啊涝磊 荐 : <%=formatnumber(jcmemb,0)%><br>
		泅犁 扼弊窍烙 啊涝磊 荐 : <%=formatnumber(lhmemb,0)%><br>
		泅犁 齿付喉 啊涝磊 荐 : <%=formatnumber(nmmemb,0)%><br>
	<td valign="top">
		<font size=2>
		<b>泅犁 航霸烙 醚 啊涝磊 荐 : <%=formatnumber(totalmemb,0)%><br><br></b>
		泅犁鳖瘤 航霸烙 荤捞飘 捞侩磊荐(since 2002.12.17) : &nbsp;&nbsp;&nbsp;<img src="http://61.78.55.11:8080/servlet/vCounter?id=BGTotal&length=8"><br>
		<!-- 泅犁鳖瘤 匙捞飘 荤捞飘 捞侩磊荐(since 2002.12.17) : &nbsp;&nbsp;&nbsp;<img src="http://61.78.55.11:8080/servlet/vCounter?id=NTTotal&length=8"><br> -->
		泅犁鳖瘤 棍胶孤流 荤捞飘 捞侩磊荐(since 2002.12.17) : <img src="http://61.78.55.11:8080/servlet/vCounter?id=BMTotal&length=8"><br>
		泅犁鳖瘤 炼捞揪匙 荤捞飘 捞侩磊荐(since 2002.12.17) : <img src="http://61.78.55.11:8080/servlet/vCounter?id=JCTotal&length=8"></font></td>
  </tr>
</table>

<form method="post" action="month_users.asp" name=calender>
<table border=0 width=600 cellpadding=0 cellspacing=0>
<tr>
	<td width=40% bgcolor=#E6E6E6 align=center style="font-size:11pt"><b>老磊喊 啊涝磊烹拌</b></td>
	<td width=60% bgcolor=#E6E6E6 align=left>
		<select name=year_from>
			<option value=<%=(cur_year-1)%>><%=(cur_year-1)%>
			<option value=<%=cur_year%> selected><%=cur_year%>
		</select>斥&nbsp;
		<select name=month_from>
		<%
		for i = 1 to 12
			str = " "
			if i=CInt(cur_month) then
				str = " selected"
			end if
		%>
			<option value=<%=i%><%=str%>><%=i%>
		<%
		next
		%>
		</select>岿&nbsp;
		<select name=link_site>
			<option value="ALL"<%if link_site="ALL" then response.write(" selected")%>>傈眉
			<option value="BG"<%if link_site="BG" then response.write(" selected")%>>航霸烙
			<!-- <option value="NT"<%if link_site="NT" then response.write(" selected")%>>匙捞飘 -->
			<option value="BM"<%if link_site="BM" then response.write(" selected")%>>棍胶孤流
			<option value="JC"<%if link_site="JC" then response.write(" selected")%>>炼捞揪匙
			<option value="LH"<%if link_site="LH" then response.write(" selected")%>>扼弊窍烙
			<option value="NM"<%if link_site="NM" then response.write(" selected")%>>齿付喉
		</select>
		&nbsp;
		<input type=submit value="炼雀">
	</td>
<tr>
	<td colspan=2 bgcolor="#3C57A2">
		<table border=0 width=653 cellpadding=0 cellspacing=1>
		<tr>
			<td width=14% bgcolor="#7FBBF1" align=center height=20>老</td>
			<td width=14% bgcolor="#7FBBF1" align=center height=20>岿</td>
			<td width=14% bgcolor="#7FBBF1" align=center height=20>拳</td>
			<td width=14% bgcolor="#7FBBF1" align=center height=20>荐</td>
			<td width=14% bgcolor="#7FBBF1" align=center height=20>格</td>
			<td width=14% bgcolor="#7FBBF1" align=center height=20>陛</td>
			<td width=14% bgcolor="#7FBBF1" align=center height=20>配</td>
		</tr>
<%
		if  fst_week <> 1 then Response.Write ("<tr>")
		for i=1 to fst_week-1 
			Response.Write ("<td bgcolor=#F1F8FC>&nbsp;</td>")
		next
	
		for i=1 to last_day 
			if Weekday(DateSerial(cur_year, cur_month, i)) = 1 then Response.Write ("<tr>")
			found = false
			regi_count = 0
			while ((not rs.EOF) and (not found))
				comp_day = CInt(trim(mid(rs("GaipDate"), 4, 2)))
				if comp_day = i then 
					regi_count = CInt (rs("counter"))
					found = true
					rs.MoveNext
				elseif comp_day < i then
					rs.MoveNext
				else 
					found = true
				end if
			wend
			total_count = total_count + regi_count
			
			tmp_year  = CStr(cur_year)
			tmp_month = CStr(cur_month)
			tmp_day = CStr(i)
			if (len(tmp_month) = 1) then tmp_month = "0" + tmp_month
			if (len(tmp_day) = 1) then tmp_day = "0" + tmp_day
			DateStr = "BGMain" & tmp_year & tmp_month & tmp_day
%>
			<td width=14% cellspacing=0 cellpadding=0>
				<table border=0 width=100% bordercolor="black" cellpadding=0 cellspacing=0  bgcolor="#6A819B">
				<tr>
					<td valign=bottom align=center height=20><font color="white"><%=CInt(cur_month)%>岿 <%=i%>老&nbsp;</font></td>
				<tr>
					<td align=center height=25><img src="http://61.78.55.11:8080/servlet/vNumber?number=<%=regi_count%>" width=90 height=20></td>
				</table>
			</td>
<%
			if Weekday(DateSerial(cur_year, cur_month, i)) = 7 then Response.Write ("</tr>")
		next

		for i=Weekday(DateSerial(cur_year, cur_month, last_day)) to 7-1
			Response.Write ("<td bgcolor=#F1F8FC>&nbsp;</td>")
		next

		if Weekday(DateSerial(sel_year, sel_month, last_day)) <> 7 then Response.Write ("</tr>")
%>
		</table></td></form>
</table>
<table width="650" border=0>
<tr><td align="right">
<font size="2"><b>捞锅崔&nbsp;
<%if link_site="ALL" then response.write(" 傈眉")%>
<%if link_site="BG" then response.write(" 航霸烙")%>
<%if link_site="NT" then response.write(" 匙捞飘")%>
<%if link_site="BM" then response.write(" 棍胶孤流")%>
<%if link_site="JC" then response.write(" 炼捞揪匙")%>
<%if link_site="LH" then response.write(" 扼弊窍烙")%>
&nbsp;啊涝磊 荐 : <%=formatnumber(total_count,0)%></b>&nbsp;&nbsp;<br>
(^_^) 啊涝篮 拌加登绢具茄促~ 罗~~~~宽! 缺泼~!!</font>
</td></tr></table>

<!-- #include virtual="/admin/admin_bottom.asp" -->