<!--#include file="../../conn/conn.asp"-->
<!--#include file="../../conn/nosql.asp"-->
<!--#include file="../../conn/config.asp"-->
<!--#include file="../../conn/count.asp"-->
<!--#include file="../page.asp"-->
<!--#include file="../count.asp"-->
<%
if isChkInteger(request("web_id")) then
web_id=request("web_id")
else
Response.Redirect ("../../index.asp")
end if
%>
<html><head><title>欢迎访问论坛</title>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<style type="text/css">
<!--
.style1 {
	color: #FFFFFF;
	font-weight: bold;
}
-->
</style>
<link rel="stylesheet" href="css.css" type="text/css">
</head>
<body bgcolor="#ffffff">
<table width="420"  border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td><table width="420"  border="0" align="center" cellpadding="0" cellspacing="0">
        <tr>
          <td width="1" height="1"></td>
          <td height="1" colspan="2" bgcolor="#CCCCCC"></td>
          <td width="1" height="1"></td>
        </tr>
        <tr>
          <td width="1" bgcolor="#CCCCCC"></td>
          <td width="30" bgcolor="#F1F1F1"><div align="center"><span class="M"><IMG 
                              src="img/icon_03.gif" 
                              name=image1754891 width="14" height="14" border=0></span></div></td>
          <td height="25" bgcolor="#F1F1F1"><span class="M"><FONT 
                              color=#000000><a href="web.asp?web_id=<%=web_id%>"><U><%=home%></U></a></FONT> -&gt; <FONT 
                              color=#000000><a href="bbs.asp?web_id=<%=web_id%>"><U><%=lt%></U></a></FONT> -&gt; <FONT 
                              color=#000000><a href="bbs_add.asp?web_id=<%=web_id%>"><U>发表新帖</U></a></FONT></span></td>
          <td width="1" bgcolor="#CCCCCC"></td>
        </tr>
        <tr>
          <td width="1" height="1"></td>
          <td height="1" colspan="2" bgcolor="#CCCCCC"></td>
          <td width="1" height="1"></td>
        </tr>
      </table></td>
  </tr>
  <tr>
    <td height="10" valign="bottom"></td>
  </tr>
</table>
<table width="410"  border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td><table  border="0" cellspacing="0" cellpadding="0">
      <tr>
	  <td width="7"><img src="img/main_b_1.jpg" width="7" height="25"></td>
          <td background="img/main_b_2.jpg"><a href="bbs.asp?web_id=<%=web_id%>">首页</a></td>
          <td width="7"><img src="img/main_b_3.jpg" width="7" height="25"></td>
          <td width="5"></td>
        <%Set rs1 = Server.CreateObject("ADODB.Recordset")
        rs1.open "select * from snsn_bbs_class where userid="&web_id&" order by id",conn,1,1
	if rs1.eof and rs1.bof then
	else
        do while not rs1.eof
%>
        <td width="7"><img src="img/main_b_01.jpg" width="7" height="25"></td>
        <td background="img/main_b_02.jpg"><%if rs1("xs")=2   and rs1("userid")<>session("id")  then%><%=trim(rs1("bbsname"))%><img src="img/s.gif" border="0"><%else%><a href="bbs_c.asp?web_id=<%=web_id%>&id=<%=rs1("id")%>"><%=trim(rs1("bbsname"))%></a><%end if%></td>
        <td width="7"><img src="img/main_b_03.jpg" width="7" height="25"></td>
		<td width="5"></td>
        <%
        rs1.movenext
        loop
	end if
        rs1.close
%>
      </tr>
    </table></td>
  </tr>
</table>
<table cellspacing="0" cellpadding="0" width="410" border="0" class="a2" bgcolor="#FFFFFF" align="center">
<tr bgcolor="#CCCCCC" height="1"><td height="1" colspan="3"></td>
  </tr>
<tr bgcolor="efefef" class="a1">
  <td width="65%" height="23">&nbsp;标题</td>
  <td width="20%" align="center">发贴</td>
  <td width="15%" align="center">浏览回复</td>
</tr>  <tr background="img/xbj.gif" height="1"><td height="1" colspan="3"></td>
  </tr>    
<%s = request.querystring("s")
if len(s)<1 then s = 0
s=s*20
sql="select * from snsn_bbs where userid="&web_id&" and replyid=0 and classid=0 order by id desc"
Set rs= Server.CreateObject("ADODB.Recordset") 
rs.open sql,conn,1,1
while not rs.eof
lastdate=rs("ldate")
shicha=DateDiff("n",lastdate,date) 
count = count +1
if count>s and count<=(s+20) then
if count mod 2 = 0 then 
bgcolor = "a3"
else
bgcolor = "a4" 
end if%>
<tr onMouseOver='JavaScript:this.style.backgroundColor="#FCFBF3"' onMouseOut='JavaScript:this.style.backgroundColor=""'>
<td height="23">&nbsp;<span class="365ye"><img src=img/Mood/<%=rs("faceimg")%>.gif width="20" height="20"></span> <a class="text" href="view.asp?web_id=<%=web_id%>&id=<%=rs("id")%>&s=<%=s/20%>"><%=left(rs("title"),18)%></a><%if shicha<=1 then %> <img src=img/new.gif><%end if%><%if rs("hits")>=50 then%> <img src=img/icon4.gif><%end if%><%if rs("reply")>=10 then%> <img src=img/icon3.gif><%end if%></td>
<td align="center"><%=rs("username")%></td>
<td align="center"><font color="#0000FF"><%=rs("hits")%></font>/<font color="#FF0000"><%=rs("reply")%></font></td>
</tr><tr background="img/xbj3.gif" height="1"><td height="1" background="img/xbj3.gif" colspan="3"></td>
  </tr> 
<%end if
rs.movenext
wend
sql="select count(id) as alleEintraege from snsn_bbs where userid="&web_id&" and replyid=0"
Set rs= Server.CreateObject("ADODB.Recordset") 
rs.open sql,conn,1,1
alleEintraege = int(rs("alleEintraege"))%>
<tr class="a4"><td colspan = "3"><br><table width=100%><tr bgcolor="#CCCCCC" height="1"><td height="1" ></td>
  </tr><tr>
  <td>新帖 <img src=img/new.gif> 点击超过50<img src=img/icon4.gif>  回复超过10<img src=img/icon3.gif></td>
</tr>
      <tr>
        <td>跳到
          <select name="select" onChange="if(this.options[this.selectedIndex].value!=''){location=this.options[this.selectedIndex].value;}">
            <% for t = 0 to fix((alleEintraege-1)/20)%>
            <option value="bbs.asp?web_id=<%=web_id%>&s=<%=t%>" <%if t=(s/20) then%>selected<%end if%>><%=t+1%></option>
            <%next%>
          </select>
页　当前第<font color=red> <%=s/20+1%> </font>页　
<% if s>0 then %>
<a href=bbs.asp?web_id=<%=web_id%>&s=<%=s/20-1%>>[上一页]</a>&nbsp;
<%end if%>
<% if fix((alleEintraege-1)/20)-s/20 <> 0 then %>
<a href="bbs.asp?web_id=<%=web_id%>&s=<%=s/20+1%>">[下一页]</a>
<%end if%></td>
        </tr>
</table></td></tr></table>
<%rs.close
set rs = nothing%>
</body></html>