<!--#include file="conn.asp"-->
<!--#include file="inc/const.asp"-->
<!--#include file="inc/plus_check.asp"-->
<%
'================================
'当前版本号：1.0
'程序作者：(21EClub)Andy
'21EClub网聚人 版权所有
'请尊重作者劳动成果，保留版权信息
'QQ:86093788 Http://Www.51Ent.Com
'================================
Dv_Plus.Name = "EC_Plus_Argue"
Dvbbs.stats = Dv_Plus.Plus_Name&"首页"
Dvbbs.LoadTemplates("")
Dvbbs.nav()
	Dvbbs.Head_var 0,0,Dv_Plus.Plus_Name,"EC_Argue_Index.asp"
		Argue_Nav_Link()
Dim EB_Rs,EB_SQL,EB_NewArgue
Dim EB_ArgueVotes,EB_OldArgue
%>
<!--#include file="EC_Argue_Const.asp"-->
<table border="0" width="<%=Dvbbs.mainsetting(0)%>" cellpadding=2 cellspacing=0 align=center>    <tr>
        <td valign="top" width="156">
<%Argue_ClassList("All")%>        </td>
        <td valign="top">
<table border="0" cellpadding=3 cellspacing=1 align=center class=Tableborder1 Style="Width:100%">
	<tr>
	<th height=23 >                        <p>当前正在进行中的辩论主题</p>
</th>
	</tr>
	<tr>
	<td align=center class=TableBody1>
<%
'0=ArgueID,1=Argue_Title,2=Argue_Class,3=Argue_Votes,4=Argue_Hits,5=UserName,6=Appear_Date,7=Argue_Days
Set EB_Rs=ArgueConn.Execute("Select Top 5 ArgueID,Argue_Title,Argue_Class,Argue_Votes,Argue_Hits,UserName,Appear_Date,Argue_Days From EC_ArgueTopic Where Argue_Open = 1 And (Appear_Date + Argue_Days >= DateValue('"&Date()&"')) Order By ArgueID Desc")
	If Not EB_Rs.Eof then
		EB_SQL=EB_Rs.GetRows(-1)
For EB_NewArgue = 0 To Ubound(EB_SQL,2)
EB_ArgueVotes = Split(EB_SQL(3,EB_NewArgue),"|")
%>
<table width="100%"><TR><TD colSpan=2 height=21 bgcolor="#F2F2F2"><STRONG><FONT color=#666666>论题：</FONT></STRONG><a href="EC_DispArgue.asp?ArgueID=<%=EB_SQL(0,EB_NewArgue)%>" title="<%=EB_SQL(1,EB_NewArgue)%>"><b><font color="#BD0000"><%=Left(EB_SQL(1,EB_NewArgue),20)%>...</font></b></a></TD><TD width="24%" height=21 bgcolor="#F2F2F2">
                                    <p align="center">[<a href="dispuser.asp?name=<%=EB_SQL(5,EB_NewArgue)%>" target="_blank"><%=EB_SQL(5,EB_NewArgue)%></a>]</TD></TR><TR><TD background="EC_Argue/line.gif" colSpan=3 height=1></TD></TR><TR><TD width="37%" height=21><b><font color="#666666">类别：</font></b><a href="EC_Argue_List.asp?ArgueClassID=<%=EB_SQL(2,EB_NewArgue)%>"><%Argue_ClassList(EB_SQL(2,EB_NewArgue)-1)%></a></TD>
<TD height=21 colspan="2">
                                    <p align="right"><font color="#666666"><b>正方得票：<%=EB_ArgueVotes(0)%> &nbsp;&nbsp;反方得票：<%=EB_ArgueVotes(1)%></b></font></TD></TR><TR><TD background="EC_Argue/line.gif" colSpan=3 height=1></TD></TR><TR><TD height=21><STRONG><FONT color=#666666>发起时间：</FONT></STRONG><%=EB_SQL(6,EB_NewArgue)%></TD><TD height=21><STRONG><FONT color=#666666>结束时间：</FONT></STRONG><%=EB_SQL(6,EB_NewArgue)+EB_SQL(7,EB_NewArgue)%></TD><TD height=21><STRONG><FONT color=#666666>访问量：</FONT></STRONG><font color="#666666"><b><%=EB_SQL(4,EB_NewArgue)%></b></font></TD></TR></table>
<%
Next
	Else
		Response.Write "暂时无任何正在进行中的论题"
	End if
EB_Rs.Close
%>
	</td>
	</tr>
</table>
        </td>
        <td width="194" valign="top">
<table border="0" cellpadding=3 cellspacing=1 align=center class=Tableborder1 Style="Width:100%">
	<tr>
	<th height=23 >                        <p>往期论题</p>
</th>
	</tr>
	<tr>
	<td align=center class=TableBody1>
<%
'0=ArgueID,1=Argue_Title,2=Argue_Hits,3=UserName,4=Argue_Votes
Set EB_Rs=ArgueConn.Execute("Select Top 5 ArgueID,Argue_Title,Argue_Hits,UserName,Argue_Votes From EC_ArgueTopic Where Argue_Open = 1 And (Appear_Date + Argue_Days < DateValue('"&Date()&"')) Order By ArgueID")
	If Not EB_Rs.Eof then
		EB_SQL=EB_Rs.GetRows(-1)
For EB_OldArgue = 0 To Ubound(EB_SQL,2)
EB_ArgueVotes = Split(EB_SQL(4,EB_OldArgue),"|")
%>
                        <table width="100%">
<TR>
<TD bgColor=#f9f9f9 height=22>论题：<a href="EC_DispArgue.asp?ArgueID=<%=EB_SQL(0,EB_OldArgue)%>" title="<%=EB_SQL(1,EB_OldArgue)%>"><b><font color="#BD0000"><%=Left(EB_SQL(1,EB_OldArgue),10)%>...</font></b></a></TD></TR>
<TR>
<TD height=21>辩论结果：<%
		If EB_ArgueVotes(0) > EB_ArgueVotes(1) Then
			Response.Write "正方胜"
		Elseif EB_ArgueVotes(1) > EB_ArgueVotes(0) Then
			Response.Write "反方胜"
		Else
			Response.Write "双方持平"
		End if
			%></TD></TR>
<TR>
<TD>
<P>发起人：<a href="dispuser.asp?name=<%=EB_SQL(3,EB_OldArgue)%>" target="_blank"><%=EB_SQL(3,EB_OldArgue)%></a><BR>访问量：<%=EB_SQL(2,EB_OldArgue)%></P></TD></TR>
                        </table>
<%
Next
	Else
		Response.Write "暂时无任何往期论题"
	End if
		EB_Rs.Close
%>	</td>
	</tr>
</table>
        </td>
    </tr>
</table>
<%
Argue_Copyright()
		Set EB_Rs = Nothing
		ArgueConn.Close : Set ArgueConn = Nothing
%>