tournament_ok.asp

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

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

<script language="JavaScript">
<!--
	function popup(name, name2, w, h, s)
	{
	var pop_name = name;
	var win_name = name2;
	var w_value = w;
	var h_value = h;
	var scroll = s;
		window.open(pop_name,win_name,'toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=' + scroll +',resizable=no,width=' + w_value +',height=' + h_value +',left=11,top=5');
	}
// -->
</script>

<%
t_type = request("type")

t_time = 1
tmp_month = CStr(Month(Date()))
tmp_day = CStr(Day(Date()))
if (tmp_month = 5) and (tmp_day > 11 and tmp_day < 18) then
	t_time = 1
elseif (tmp_month = 5) and (tmp_day > 18 and tmp_day < 25) then
	t_time = 2
else
	t_time = 3
end if


if t_type = 1 then

	sql = "UPDATE IB_Tournament SET t_buddyId = 'F' WHERE t_complete = 'F' and t_time = " & t_time & " "
	DbCon.Execute (sql)

	response.redirect ("tournament.asp")

elseif t_type = 2 then

	sql = "SELECT * "
	sql = sql &  " FROM IB_Tournament "
	sql = sql &  " WHERE t_complete = 'F' and t_time = " & t_time & " "
	sql = sql &  " ORDER BY t_index asc "
	set rs = DbCon.Execute(sql)

	While not rs.Eof 
		if not rs.Eof then
			t_index = rs("t_index")

			'rs.MoveNext

			if not rs.Eof  then

				d_index = rs("t_index")
				d_idname = rs("t_idname")

				sql = "UPDATE IB_Tournament SET t_complete = 'T' WHERE t_index = " & t_index & " and t_time = " & t_time & " "
				DbCon.Execute (sql)

				'sql = "DELETE FROM IB_Tournament WHERE t_index = " & d_index & " and t_time = " & t_time & " "
				'DbCon.Execute (sql)

			end if

		end if
		if not rs.Eof then rs.MoveNext
	wend

	response.redirect ("tournament.asp")

elseif t_type = 3 then

	sql = "SELECT count(*) as counter "
	sql = sql &  " FROM IB_Tournament "
	sql = sql &  " WHERE t_complete = 'T' and t_time = " & t_time & " "
	set crs = DbCon.Execute(sql)
	total = crs("counter")
	t_total = Cint(total/2)
	'response.write t_total
	'response.end

	sql = "SELECT * "
	sql = sql &  " FROM IB_Tournament "
	sql = sql &  " WHERE t_complete = 'T' and t_time = " & t_time & " "
	sql = sql &  " ORDER BY t_index asc "
	set rs = DbCon.Execute(sql)

%>

<table width="800" border=0 cellpadding=0 cellspacing=1 class="boardtext03">
	<tr>
		<td width="100%" colspan="2" align="center" height="50"><b><%=t_time%>瞒 抗急 府弊 措柳钎</b></td>
	</tr>
	<tr>
		<td width="100%">
			<table width="100%" border="0" cellspacing=1 cellpadding=0 class="boardtext03" bgcolor="#3C57A2">
<%
	count = 0
	t_count = 0
	t_hour = 18
	t_min = 0
	t_sec = 0
	While not rs.Eof 
		if ((t_count mod 8) >= 0) and ((t_count mod 8) < 4) then 
			'bgcolor = "#E6E6E6"
		else
			'bgcolor = "#CCCCCC"
		end if

		if not rs.Eof then
			t_index = rs("t_index")
			t_idname = replace(rs("t_idname"), "NMB123456_", "")
			t_buddyId = replace(rs("t_buddyId"), "NMB123456_", "")

			if not rs.Eof  then

				rs.MoveNext

				if not rs.Eof  then
					d_index = rs("t_index")
					d_idname = replace(rs("t_idname"), "NMB123456_", "")
					d_buddyId = replace(rs("t_buddyId"), "NMB123456_", "")
				else
					d_idname = "何傈铰"
					d_buddyId = "柳免"
				end if
				
				if (count mod t_total) = 0 then
					t_time =TimeSerial(t_hour, t_min, t_sec)
				%>
				<tr>
					<!-- <td colspan="3" align="center">1瞒 抗急 版扁 矫埃 : <%=right(t_time,11)%></td> -->
					<td width="200" align="center" bgcolor="skyblue" height="30">评 1</td>
					<td width="20" align="center" bgcolor="skyblue">VS</td>
					<td width="200" align="center" bgcolor="skyblue">评 2</td>
				<%if (t_count mod 2) = 0 then%>
						<td width="100" align="center" bgcolor="skyblue"><%=Cint(t_total/2)%>碍傈 版扁</td>
				<%end if%>
				<%if (t_count mod 4) = 0 then%>
						<td width="100" align="center" bgcolor="skyblue"><%=Cint(t_total/4)%>碍傈 版扁</td>
				<%end if%>
				<%if (t_count mod 8) = 0 then%>
						<td width="100" align="center" bgcolor="skyblue"><%=Cint(t_total/8)%>碍傈 版扁</td>
				<%end if%>
				<%if (t_count mod 16) = 0 then%>
						<td width="100" align="center" bgcolor="skyblue"><%=Cint(t_total/16)%>碍傈 版扁</td>
				<%end if%>
				<%if (t_count mod 32) = 0 then%>
						<td width="100" align="center" bgcolor="skyblue"><%=Cint(t_total/32)%>碍傈 版扁</td>
				<%end if%>
				<%if (t_count mod 64) = 0 then%>
						<td width="100" align="center" bgcolor="skyblue"><%=Cint(t_total/64)%>碍傈 版扁</td>
				<%end if%>
				<%if (t_count mod 128) = 0 then%>
						<td width="100" align="center" bgcolor="skyblue"><%=Cint(t_total/128)%>碍傈 版扁</td>
				<%end if%>
				</tr>
				<%
					t_min = t_min + 10
				end if%>

				<tr bgcolor="#E8E8E8">
				<%'if (count mod 6) = 0 then%>
						<!-- <td rowspan="6" align="center">1瞒<br>抗急<br>版扁<br>矫埃 :<br><%=right(t_time,11)%></td> -->
				<%'end if%>
					<td width="200" align="center" height="22"><%=t_idname%>, <%=t_buddyId%></td>
					<td width="20" align="center">VS</td>
					<td width="200" align="center"><%=d_idname%>, <%=d_buddyId%></td>
				<%if (t_count mod 2) = 0 then%>
						<td width="100" align="center" rowspan="2">版扁 <%=((t_count+1)/2)+0.5%></td>
				<%end if%>
				<%if (t_count mod 4) = 0 then%>
						<td width="100" align="center" rowspan="4">版扁 <%=((t_count+1)/4)+0.75%></td>
				<%end if%>
				<%if (t_count mod 8) = 0 then%>
						<td width="100" align="center" rowspan="8">版扁 <%=((t_count+1)/8)+0.875%></td>
				<%end if%>
				<%if (t_count mod 16) = 0 then%>
						<td width="100" align="center" rowspan="16">版扁 <%=((t_count+1)/16)+0.9375%></td>
				<%end if%>
				<%if (t_count mod 32) = 0 then%>
						<td width="100" align="center" rowspan="32">版扁 <%=((t_count+1)/32)+0.96875%></td>
				<%end if%>
				<%if (t_count mod 64) = 0 then%>
						<td width="100" align="center" rowspan="64">版扁 <%=((t_count+1)/64)+0.984375%></td>
				<%end if%>
				<%if (t_count mod 128) = 0 then%>
						<td width="100" align="center" rowspan="128">版扁 <%=((t_count+1)/128)+0.9921875%></td>
				<%end if%>
				</tr>
				<%
				count = count + 1
				t_count = t_count + 1
			end if

		end if
		if not rs.Eof then rs.MoveNext
	wend

%>
			</table>
		</td>
	</tr>
</table>

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