<!--#include file="../conn/conn.asp"-->
<!--#include file="../conn/config.asp"-->
<!--#include file="../conn/nosql.asp"-->
<!--#include file="../conn/page.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>会员论坛-<%=webname%></title>
<link href="../css.css" REL="stylesheet" TYPE="text/css">
<style type="text/css">
<!--
body {
	background-image: url();
	margin-left: 0px;
	margin-top: 0px;
	margin-right: 0px;
	margin-bottom: 0px;
}
.style1 {color: #FFFFFF}
.style10 {color: #FF3300;
	font-weight: bold;
}
-->
</style>

<SCRIPT language=javascript>
//--检测登陆-->

	   function DoLogin() {

	      var UsernameGet = trim(document.loginForm.UsernameGet.value);
		  var PasswordGet = trim(document.loginForm.PasswordGet.value);
		  var Verifycode = trim(document.loginForm.Verifycode.value);

          if(UsernameGet == "") {
		    alert("请输入会员登录名！");
			document.loginForm.UsernameGet.focus();
		    return false;
		  } 
		  if(PasswordGet == "") {
		    alert("请输入您的会员密码！");
			document.loginForm.PasswordGet.focus();
		    return false;
		  } 
		  if(Verifycode == "") {
		    alert("请输入您的登录验证码！");
			document.loginForm.Verifycode.focus();
		    return false;
		  }  
		  
		  
		 }

           function trim(inputString) {
              if (typeof inputString != "string") { return inputString; }
              var retValue = inputString;
              var ch = retValue.substring(0, 1);
              while (ch == " ") { 
	          //检查字符串开始部分的空格
                  retValue = retValue.substring(1, retValue.length);
                  ch = retValue.substring(0, 1);
              }
              ch = retValue.substring(retValue.length-1, retValue.length);
              while (ch == " ") {
                 //检查字符串结束部分的空格
                 retValue = retValue.substring(0, retValue.length-1);
                 ch = retValue.substring(retValue.length-1, retValue.length);
              }
              while (retValue.indexOf("  ") != -1) { 
	         //将文字中间多个相连的空格变为一个空格
                 retValue = retValue.substring(0, retValue.indexOf("  ")) + retValue.substring(retValue.indexOf("  ")+1, retValue.length); 
              }
              return retValue;
           } 

//-->
</SCRIPT>
<script language="JavaScript" type="text/JavaScript">
<!--



function MM_preloadImages() { //v3.0
  var d=document; if(d.images){ if(!d.MM_p) d.MM_p=new Array();
    var i,j=d.MM_p.length,a=MM_preloadImages.arguments; for(i=0; i<a.length; i++)
    if (a[i].indexOf("#")!=0){ d.MM_p[j]=new Image; d.MM_p[j++].src=a[i];}}
}
//-->
</script>
<script language="JavaScript" type="text/JavaScript">
<!--
function MM_reloadPage(init) {  //reloads the window if Nav4 resized
  if (init==true) with (navigator) {if ((appName=="Netscape")&&(parseInt(appVersion)==4)) {
    document.MM_pgW=innerWidth; document.MM_pgH=innerHeight; onresize=MM_reloadPage; }}
  else if (innerWidth!=document.MM_pgW || innerHeight!=document.MM_pgH) location.reload();
}
MM_reloadPage(true);
//-->
</script>
</head>

<body >
<!--#include file="top.asp"-->
<table width="100" height="5" border="0" cellpadding="0" cellspacing="0">
  <tr>
    <td></td>
  </tr>
</table>
<table width="780" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td width="200" valign="top"><!--#include file="../left.asp"--></td>
    <td width="5" valign="top"><span class="style10"> </span></td>
    <td valign="top"><table width="90%"  border="0" cellspacing="0" cellpadding="0">
      <tr>
        <td><!--#include file="../tlpic.asp"-->
            <table width="100" height="5" border="0" cellpadding="0" cellspacing="0">
              <tr>
                <td></td>
              </tr>
            </table>
            <table cellspacing="0" cellpadding="0" width="575" border="0" class="a2" bgcolor="#FFFFFF" align="center">
              <%
sql="select * from snsn_bbsclass order by bbspx desc"
Set rs= Server.CreateObject("ADODB.Recordset") 
rs.open sql,conn,1,1
do while not rs.eof%>
              <tr onMouseOver='JavaScript:this.style.backgroundColor="#FCFBF3"' onMouseOut='JavaScript:this.style.backgroundColor=""'>
                <td height="30" background="img/t1.gif">&nbsp; &nbsp; <a class="text" href="list.asp?id=<%=rs("id")%>"><b><%=left(rs("bbsname"),38)%></b></a>
                    <%
           classsl=conn.execute("Select count(*)from snsn_bbs where bbsclass="&rs("id")&"")(0)
		   response.write "(<font color=#FF0000>"&classsl&"</font>)"%></td>
              </tr>
              <tr onMouseOver='JavaScript:this.style.backgroundColor="#FCFBF3"' onMouseOut='JavaScript:this.style.backgroundColor=""'>
                <td height="23" background="img/t2.gif">
                  <table width="95%" border="0" align="center" cellpadding="0" cellspacing="0">
                    <tr>
                      <td width="60" rowspan="5">
                        <table border="0" cellspacing="0" cellpadding="5">
                          <tr>
                            <td><img src="<%=rs("bbslogo")%>" width="54" height="48"></td>
                          </tr>
                      </table></td>
                      <td>&nbsp; <a class="text" href="list.asp?id=<%=rs("id")%>"><%=rs("bbsnr")%></a></td>
                    </tr>
                    <tr>
                      <td height="1" background="/images/bj_x.gif"></td>
                    </tr>
                    <tr>
                      <td>&nbsp; 最新发表：
                          <%
										  sql="select top 1 * from snsn_bbs where replyid=0 and bbsclass="&rs("id")&" order by id desc"
Set rs2= Server.CreateObject("ADODB.Recordset") 
rs2.open sql,conn,1,1
if not rs2.eof then
%>
                          <a class="text" href="view.asp?id=<%=rs2("id")%>"><%=left(rs2("title"),58)%></a> (<%=rs2("wdate")%>)
                          <%end if%>
                      </td>
                    </tr>
                    <tr >
                      <td height="1" background="/images/bj_x.gif"></td>
                    </tr>
                    <tr>
                      <td height="25">&nbsp; 版主：
                          <%username2=rs("bbsbz")
	if username2<>"" then 
	  bsort2=split(username2,",")
	  for i=0 to ubound(bsort2)
	  bsortb2=bsort2(i)
set rs3=conn.execute("select * from [snsn_user] where username='"&bsortb2&"'")
if rs3.eof or rs3.bof then
response.write "<a href=#>"
else%>
                          <a href="javascript:;" onClick="showmenuie5(<%=rs3("url")%>,<%=rs3("id")%>,'<%=rs3("username")%>')" >
                          <%end if%>
                          <%=bsortb2%></a>
                          <%next
else
response.write"暂无版主"
end if%></td>
                    </tr>
                </table></td>
              </tr>
              <tr onMouseOver='JavaScript:this.style.backgroundColor="#FCFBF3"' onMouseOut='JavaScript:this.style.backgroundColor=""'>
                <td background="img/t2.gif"><img src="img/t3.gif" width="575"></td>
              </tr>
              <tr  height="1">
                <td height="10" bgcolor="ffffff"></td>
              </tr>
              <%RS.MoveNext
loop%>
              <tr class="a4">
                <td><br>
                    <iframe border="0" frameBorder="0" height="30"   noResize scrolling="no" width="100%" src="/shenri1.asp"></iframe>
                </td>
              </tr>
            </table>
              <table width="100%" border="0" cellspacing="0" cellpadding="0" height="5">
                <tr>
                  <td height="10"></td>
                </tr>
          </table></td></tr>
    </table>
      <table width="96%"  border="0" align="center" cellpadding="0" cellspacing="0">
        <tr>
         <!--#include file="../line.asp"--> <%usno=conn.execute("Select count(ltime)from online where name<>''")(0)                                                                                      
                            lineno=conn.execute("Select count(ltime)from online")(0)                                                                      
							set count1=server.CreateObject("adodb.recordset")
							count1.open"select * from online order by ltime desc",conn,3,3
							online=count1.recordcount
if  zonline<online then
    conn.execute("update snsn_config set online="&online&",onlinedate=getdate()")
	tmprs=conn.execute("Select online,onlinedate From snsn_config")
	zonline=tmprs(0)
	zonlinedate=tmprs(1)
end if
%>
          <td>在线人数(总计:<%=online%>人&nbsp;&nbsp;游客:<%=lineno-usno%>人&nbsp;&nbsp;用户:<%=usno%>人) &nbsp;目前最高在线：<%=zonline%>人&nbsp;发生于：<%=zonlinedate%>&nbsp;&nbsp;<br>
      在线列表:<br>
      <%
							set count1=server.CreateObject("adodb.recordset")
							count1.open"select * from online order by ltime desc",conn,3,3
if not count1.eof then	
			response.write "<table>"
			do while not count1.eof
			iiii=0
			response.write "<tr>"
			do while not count1.eof and iiii<6
			iiii=iiii+1
			response.write "<td width=120>"
%>
      <%if count1("name")<>"" then
							set dhsa=server.CreateObject("adodb.recordset")
							dhsa.open"select username,name,url,id,cz,vip from snsn_user where username='"&count1("name")&"'",conn,3,3
							%>
      <img src="img/messages1.gif" width="12" height="11">
      <%if dhsa("cz")="1" then%>
      <a href="javascript:;" onClick="showmenuie5(<%=dhsa("url")%>,<%=dhsa("id")%>,'<%=dhsa("username")%>')" ><font color="#FF3300"><%=dhsa("name")%></font></a>
      <%if dhsa("vip")=1 then%>
      <img src="/images/vip.gif" width="27" height="15">
      <%end if%>
      <%else%>
      <font color="#FF9900">隐身会员</font>
      <%end if%>
      <%else%>
      <img src="img/messages2.gif" width="12" height="11"> 游客
      <%end if%>
      <%
							count1.movenext	
	loop
	response.write "</tr>"
	loop
	response.write "</table>"
	end if%></td>
        </tr>
      </table></td>
  </tr>
</table>
<table width="100" height="5" border="0" cellpadding="0" cellspacing="0">
  <tr>
    <td></td>
  </tr>
</table>
<!--#include file="../end.asp"-->
</body>
</html>