<!-- #include file=../inc/BBSSetup.asp -->
<!-- #include file=../inc/Board_Popfun.asp -->
<!-- #include file=inc/UserTopic.asp -->
<%
DEF_BBS_HomeUrl = "../"
GBL_CHK_PWdFlag = 0
initDatabase
SiteHead(DEF_SiteNameString & " - 用户会员区")
UpdateOnlineUserAtInfo GBL_board_ID,"最新注册用户"
%>
<table width="<%=DEF_BBS_ScreenWidth%>" border="0" cellspacing="1" cellpadding="0" align="center" bgcolor="<%=DEF_BBS_DarkColor%>" class=TBone>
  <tr> 
    <td width="<%=DEF_BBS_LeftTDWidth%>" bgcolor="<%=DEF_BBS_LightColor%>" class=TBBG1 valign="top"> 
      <table width="100%" border="0" cellspacing="0" cellpadding="0">
        <tr>
          <td><%If GBL_CHK_Flag=1 Then DisplayUserCenter%></td>
        </tr>
      </table>
    </td>
    <td valign="top" bgcolor=<%=DEF_BBS_LightestColor%> class=TBBG9> <br>
      <table width="90%" border="0" cellspacing="0" cellpadding="0" align="center">
        <tr> 
          <td height="20">
            <%DisplayUserNavigate("最新注册用户")%>
            <%DisplayUserNewest(50)%>
            </p><br>
            </td>
        </tr>
      </table>
    </td>
  </tr>
</table>
<%
closeDataBase
SiteBottom
If GBL_ShowBottomSure = 1 Then Response.Write GBL_SiteBottomString

Function DisplayUserNewest(Numer)

	Dim Rs,SQL
	SQL = "select TOP " & Numer & " ID,UserName,Points,OnlineTime,ApplyTime,Prevtime from LeadBBS_User Order by ID DESC"
	Set Rs = Con.ExeCute(SQL)
	Dim Num
	If Not rs.Eof Then	
	%>
	<script language=javascript>
	var Number=1,i;
	function s(d0,d1,d2,d3,d4,d5)
	{
		if(d0=="")return;
		if(Number==0)
		{	i = "<%=DEF_BBS_LightColor%>";
			Number=1;
		}else
		{	i = "<%=DEF_BBS_LightestColor%>";
			Number=0;
		}
		document.write("<tr bgcolor=" + i);
		if(Number==0){document.write(" class=TBBG1");}else{document.write(" class=TBBG9");}
		document.write("><td height=20>" + d0 + "</td><td><a href=LookUserInfo.asp?id=" + d0 + ">" + d1 + "</a></td><td>" + d2 + "</td>");
		document.write("<td>" + parseInt(parseInt(d3)/60) + "</td>");
        document.write("<td>" + d4.substr(0,4) + "-" + d4.substr(4,2) + "-" + d4.substr(6,2) + " " + d4.substr(8,2) + ":" + d4.substr(10,2) + ":" + d4.substr(12,2) + "</td>");
		document.write("<td>" + d5.substr(0,4) + "-" + d5.substr(4,2) + "-" + d5.substr(6,2) + " " + d5.substr(8,2) + ":" + d5.substr(10,2) + ":" + d5.substr(12,2) + "</td></tr>");
	}
	</script>
	<p align=center><b><font color=ff0000 class=RedFont>论坛最新注册用户</font></b></p>
                  <table width="100%" border="0" cellspacing="1" cellpadding="5" bgcolor=<%=DEF_BBS_Color%> class=TBtwo>
                    <tr bgcolor="<%=DEF_BBS_TableHeadColor%>" class=TBfour>
                    	<td wdith=8%><b>编号</b></td>
                    	<td wdith=32%><b>名称</b></td>
                    	<td wdith=15%><b><%=DEF_PointsName%></b></td>
                    	<td wdith=15%><b>经验</b></td>
                    	<td wdith=15%><b>注册时间</b></td>
                    	<td wdith=15%><b>最后登录</b></td>
                    </tr><script language=javascript>
<%	
		Response.Write "" & VbCrLf & "s("""
		Response.Write Rs.GetString(,,""",""",""");" & VbCrLf & "s(""","")
		Rs.Close
		Set Rs = Nothing
		Response.Write ""","""","""","""");"
%></script>
                  </table>
	<%
	Else
		Rs.Close
		Set Rs = Nothing
		Response.Write "<br>		<TR><td><br><p>找不到用户。</td></tr>" & VbCrLf
	End If

End Function%>