<!-- #include file="top.asp" -->
<!-- #include file="share.asp" -->
<%
	dim bdid
	bdid=request("bdid")
	if bdid="" then
		response.redirect "index.asp"
		response.end
	end if
%>
<HTML>
<HEAD>
<TITLE>3鸟设社[色彩连视版]媒体社区首页</TITLE>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=gb2312">
<link rel="stylesheet" href="BLUE.CSS" type="text/css">
<style type="text/css">
<!--
.hand { cursor: hand }
-->
</style>
</HEAD>
<body bgcolor=#ffffff leftmargin="0" topmargin="0">
<table width="755" height="614" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
      
    <td width="20" height="10" bgcolor="#FFFFFF"></td>
      
    <td width="719" height="10"></td>
      
    <td width="21" height="10" bgcolor="#FFFFFF"></td>
    </tr>
    <tr>
        
    <td width="25" height="587" background="images/bg.gif"></td>
        
    <td width="719" height="587" valign="top">
<table width="716" border="0" cellspacing="0">
        <tr>
          <td><div align="center"><br>
              <br>
              <img src="images/rightstyle.gif"><a href="index.asp">返回首页 </a><img src="images/rightstyle.gif"><a href="userlist.asp">查看成员列表 
              </a> 
              <%
			if not session("blueuid")="" then
		%>
              <img src="images/rightstyle.gif"><a href="editinfo.asp?uid=<%=session("blueuid")%>">修改个人资料 
              </a> 
              <%
			end if %>
              <img src="images/rightstyle.gif"><a href="javascript:history.back();">返回</a> 
            </div></td>
        </tr>
        <tr>
          <td width="714"> 
            <div align="center">
              <table width="100%" border="0" cellspacing="0" cellpadding="0">
                <tr> 
                  <td align="left" valign="top" width="717"> 
                    <%
						dim bid
						bid=request("bid")
						if bid="" then
							response.redirect "main.asp?bdid="&bdid
							response.end
						end if
						dim rs
						dim sql
						sql="select * from book where bid="&bid
						'opendb
						set rs=server.createobject("adodb.recordset")
						rs.open sql, conn, 1,3
						if rs.eof then
							response.redirect "error.asp?emsg=这篇文章不存在。"
							response.end
						else
							vn=rs("vn")
							rs("vn")=vn+1
							rs.update
							dim bbody
							bid=rs("bid")
							rt=rs("btitle")
							bbody=rs("bbody")
							'bbody=replace(bbody,""&chr(13),"<br>")
							bbody=eml(bbody)
						%>
                    <iframe border="0" frameborder="0" width="0" height="0" name="onlineframe" id="onlineframe" src="keep.asp?act=查看帖子〈<%=rs("btitle")%>〉" scrolling="false"></iframe> 
                    <table width="100%" border="0" cellspacing="0" cellpadding="0">
                      <tr valign="middle" align="left"> 
                        <td width="30%"><img src="images/bbs_signal.gif" width="20" height="20" align="absmiddle"> 
                          <% if session("blueuid")="" then
					response.write " 您没有<a href='index.asp'>登录</a>。"
					else %>
                          欢迎您 <%=session("blueuid")%>!
                          <% end if %>
                        </td>
                        <td width="70%" align="right"><a href="post.asp?type=new&bdid=<%=bdid%>"><img src="images/bbs_post.gif" border="0" align="absmiddle"></a><a href="post.asp?type=re&bid=<%=request("bid")%>&rt=<%=rs("btitle")%>&bdid=<%=bdid%>"><img src="images/bbs_reply.gif" border="0" align="absmiddle"></a><a href="main.asp?bdid=<%=bdid%>"><img src="images/bbs_back.gif" border="0" align="absmiddle"></a> 
                        </td>
                      </tr>
                    </table>
                    <table width="100%" border="0" cellspacing="1" cellpadding="0" name="messagetbx" class="repeatx_top" background="images/frame_bg_h.gif">
                      <tr align="left" valign="middle"> 
                        <td colspan="2" align="left"height="20"><img src="images/bbs_head_1st.gif" width="20" height="20" align="absmiddle"><%=rs("btitle")%></td>
                        <td width="200" height="20"><%=rs("btime")%></td>
                        <td width="88"  height="20" align="right"> 
                          <% if session("bluelogin")="yes" then %>
                          <% if session("blueauthority")>=1 then %>
                          <a href="delitem.asp?bid=<%=request("bid")%>&bdid=<%=bdid%>" title="Delete This Item!">x</a>&nbsp; 
                          <% end if %>
                          <% end if %>
                        </td>
                      </tr>
                    </table>
                    <table width="100%" border="0" cellspacing="1" cellpadding="0">
                      <tr align="left" valign="middle"> 
                        <td width="84" align="center" valign="top"><img src="icons/<%=rs("icon")%>" width="6" height="28"><br> 
                          <a href="showuser.asp?uid=<%=rs("uid")%>"><%=rs("uid")%></a><br> 
                          <%
							  sql="select * from userinfo where uid='"&rs("uid")&"'"
							  set us=conn.execute(sql)
							  if us.eof then
								response.redirect "error.asp?emsg=可能出现了严重的错误，请通知管理员!"
								response.end
							  else
								pos=us("pos")
								sign=us("sign")
								sn=us("sn")
							  end if
							  us.close
							  set us=nothing
							  %>
                          <%
							  if pos>=0 and pos<10 then
							  %>
                          <img src="images/bbs_head1.gif" width="20" height="20" align="absmiddle" alt="石头 [<%=sn%>/<%=pos%>/<%=10-pos%>]"> 
                          <%
							  elseif pos>=10 and pos<50 then
							  %>
                          <img src="images/bbs_head2.gif" width="20" height="20" align="absmiddle" alt="玻璃 [<%=sn%>/<%=pos%>/<%=50-pos%>]"> 
                          <%
							  elseif pos>=50 and pos<200 then
							  %>
                          <img src="images/bbs_head3.gif" width="20" height="20" align="absmiddle" alt="水晶 [<%=sn%>/<%=pos%>/<%=200-pos%>]"> 
                          <%
							  else
							  %>
                          <img src="images/bbs_head4.gif" width="20" height="20" align="absmiddle" alt="金刚石 [<%=sn%>/<%=pos%>/∞]"> 
                          <% end if %>
                        </td>
                        <td colspan="2" valign="top"><br> <%=bbody%><br>
                          <br> 
                          <% if rs("addsign")=TRUE then %>
                          <table width="100%" border="0" cellpadding="0" cellspacing="0">
                            <tr> 
                              <td width="60%"></td>
                              <td width="40%" align="left" valign="top"><br>
                                <br>
                                <img src="images/write.gif"><br> <%=sign%> </td>
                            </tr>
                          </table>
                          <% end if %>
                        </td>
                        <td width="93">&nbsp;</td>
                      </tr>
                    </table>
                    <%
							if rs("addreply")=TRUE then
								showreply
							end if
						end if
						rs.close
						set rs=nothing
						%>
                    <%
						sub showreply '------show reply function
						%>
                    <%
						sql="select * from reply where bid="&bid&" order by rtime ASC"
						set rrs=conn.execute(sql)
						if rrs.eof then
							response.redirect "error.asp?emsg=可能出现了严重的错误，请通知管理员!"
							response.end
						else
							do while not rrs.eof
								dim rbody
								rbody=rrs("rbody")
								'rbody=replace(rbody,""&chr(13),"<br>")
								rbody=eml(rbody)
						%>
                    <table width="100%" border="0" cellspacing="1" cellpadding="0" name="messagetb" class="repeatx_top" background="images/frame_bg_h.gif">
                      <tr align="left" valign="middle"> 
                        <td colspan="2" align="left" height="20"><img src="images/bbs_head_re.gif" width="20" height="20" align="absmiddle"><%=rrs("rtitle")%></td>
                        <td width="200" height="20"><%=rrs("rtime")%></td>
                        <td width="88" height="20" align="right"> 
                          <% if session("bluelogin")="yes" then %>
                          <% if session("blueauthority")>=1 then %>
                          <a href="delreply.asp?rid=<%=rrs("rid")%>&bdid=<%=bdid%>" title="Delete this reply!">x</a>&nbsp; 
                          <% end if %>
                          <% end if %>
                        </td>
                      </tr>
                    </table>
                    <table width="100%" border="0" cellspacing="1" cellpadding="0">
                      <tr align="left" valign="middle"> 
                        <td width="84" align="center" valign="top"><img src="icons/<%=rrs("icon")%>" width="8" height="28"><br> 
                          <a href="showuser.asp?uid=<%=rrs("uid")%>"><%=rrs("uid")%></a><br> 
                          <%
							  sql="select * from userinfo where uid='"&rrs("uid")&"'"
							  set us=conn.execute(sql)
							  if us.eof then
								'response.redirect "error.asp?emsg=Data Error, Contact Administrator!"
								'response.end
								pos=0
								sn=0
								sign=""
							  else
								pos=us("pos")
								sn=us("sn")
								sign=us("sign")
							  end if
							  us.close
							  set us=nothing
							  %>
                          <%
							  if pos>=0 and pos<10 then
							  %>
                          <img src="images/bbs_head1.gif" width="20" height="20" align="absmiddle" alt="石头 [<%=sn%>/<%=pos%>/<%=10-pos%>]"> 
                          <%
							  elseif pos>=10 and pos<50 then
							  %>
                          <img src="images/bbs_head2.gif" width="20" height="20" align="absmiddle" alt="玻璃 [<%=sn%>/<%=pos%>/<%=50-pos%>]"> 
                          <%
							  elseif pos>=50 and pos<200 then
							  %>
                          <img src="images/bbs_head3.gif" width="20" height="20" align="absmiddle" alt="水晶 [<%=sn%>/<%=pos%>/<%=200-pos%>]"> 
                          <%
							  else
							  %>
                          <img src="images/bbs_head4.gif" width="20" height="20" align="absmiddle" alt="金刚石 [<%=sn%>/<%=pos%>/∞]"> 
                          <% end if %>
                        </td>
                        <td colspan="2" valign="top" align="left"><br> <%=rbody%><br>
                          <br> 
                          <% if rrs("addsign")=TRUE then %>
                          <table width="100%" border="0" cellpadding="0" cellspacing="0">
                            <tr> 
                              <td width="60%"></td>
                              <td width="40%" align="left" valign="top"><br>
                                <br>
                                <img src="images/write.gif"><br> <%=sign%> </td>
                            </tr>
                          </table>
                          <% end if %>
                        </td>
                        <td width="88">&nbsp;</td>
                      </tr>
                    </table>
                    <%
						rrs.movenext
						loop
						end if
						rrs.close
						set rrs=nothing
						end sub
						%>
                    <%
						'closedb
						%>
                    <table border="0" cellpadding="0" cellspacing="0" width="100%" align="center">
                      <tr> 
                        <td height="1" bgcolor="#888888"></td>
                      </tr>
                      <tr> 
                        <td height="40" valign="top" align="right"><a href="post.asp?type=new&bdid=<%=bdid%>"><img src="images/bbs_post.gif" border="0" align="absmiddle"></a><a href="post.asp?type=re&bid=<%=bid%>&rt=<%=rt%>&bdid=<%=bdid%>"><img src="images/bbs_reply.gif" border="0" align="absmiddle"></a><a href="main.asp?bdid=<%=bdid%>"><img src="images/bbs_back.gif" border="0" align="absmiddle"></a></td>
                      </tr>
                      <tr> 
                        <td align="center"> <font color="#330000">www.3niao.com[色彩连视]. 
                          &nbsp;<a href="#top">[<b>▲UP</b>]</a></font> </td>
                      </tr>
                    </table></td>
                </tr>
              </table>
            </div></td>
        </tr>
      </table></td>
        
    <td width="25" height="587" background="images/bg.gif"></td>
    </tr>
    <tr>
      <td height="12" colspan="3"><div align="center">
        <table width="760" border="0" align="center" cellspacing="0">
          <tr> 
            <td height="35" colspan="2" background="images/footbg.gif"> <div align="center">3鸟设社[v1.2色彩连视]T恤论论坛 
                www.3niao.com</div></td>
          </tr>
          <tr> 
            <td width="392" background="http://www.3niao.com/v2/down1/images/footgb1.gif">&nbsp;</td>
            <td width="362"><div align="right"><img src="http://www.3niao.com/v2/down1/images/foot.jpg"></div></td>
          </tr>
        </table>
      </div></td>
    </tr>
  </table>
  </center>
</div>

</body>

</html>
