bjindex.asp

进入后台

            <td><a href="bjgg.asp?bid=<%=bid%>#<%=rs(0)%>"><%=left(Replace(rs(2),"<BR>",""),150)%></td>
          </tr>
        </table>
		<%end if
		rs.close%></td>
        <td width="108"><img src="skins/1/z0.gif" width="108" height="120"></td>
        </tr>
    </table>
	  <table width="100%"  border="0" cellspacing="0" cellpadding="0"><tr><td height="3"></td></tr></table>
      <table width="97%"  border="0" align="center" cellpadding="0" cellspacing="0" class="border">
        <tr>
          <td height="43" valign="top"><div align="center"><img src="skins/1/bjz3.gif" width="364" height="44"></div></td>
        </tr>
        <tr>
          <td height="134" valign="middle" background="skins/1/z3a.gif"><table width="94%"  border="0" align="center" cellpadding="0" cellspacing="0">
            <tr>
			<%rs.open "select top 3 id,pic,title from photo where bjid="&bid&" order by id desc",conn,1,1
			if rs.eof then
			str1="暂无图片"
			else
			do while not rs.eof
			str1=str1&"<td><table width='115' height='115'  border='0' align='center' cellpadding='0' cellspacing='0' class='border'><tr><td><div align='center'><a href='bjphotoview.asp?id="&rs("id")&"&bid="&bid&"'><img src='upphoto/"&rs("pic")&"' alt='"&rs("title")&"' width='105' height='105' border='0'></a></div></td></tr></table></td>"
			rs.movenext
			loop
			end if
			  rs.close
			  response.write str1%>
            </tr>
          </table></td>
        </tr>
      </table>
	  <table width="100%"  border="0" cellspacing="0" cellpadding="0"><tr><td height="3"></td></tr></table>
      <table width="97%"  border="0" align="center" cellpadding="0" cellspacing="0" class="border">
        <tr>
          <td><img src="skins/1/bjz4.gif" width="137" height="36"></td>
        </tr>
        <tr>
          <td height="166" valign="top" background="skins/1/z4b.gif"><br>
            <table width="94%"  border="0" align="center" cellpadding="0" cellspacing="0">
            <%rs.open "select top 6 id,title,date from ly where bjid="&bid&" order by date desc",conn,1,1
	If Rs.eof and Rs.bof Then
	Response.Write("<tr><td>暂无留言</td></tr>")
	else
	do while not rs.eof%>
			<tr>
              <td width="18" height="20"><img src="skins/1/xb1.gif" width="14" height="14"></td>
              <td><a href="bjly.asp?id=<%=rs(0)%>&bid=<%=bid%>"><%=left(rs(1),22)%></a>&nbsp;[<%=month(rs(2))&"-"&day(rs(2))%>]</td>
            </tr>
			<%rs.movenext
			loop
			end if
		rs.close%>
          </table></td>
        </tr>
      </table></td>
    <td width="182" valign="top">
      <table width="99%"  border="0" cellpadding="0" cellspacing="0" class="border">
        <tr>
          <td><img src="skins/1/bjr4.gif" width="122" height="40"></td>
        </tr>
        <tr>
          <td height="140" valign="top"><%=bjjz%></td>
        </tr>
      </table>
	   <table width="100%"  border="0" cellspacing="0" cellpadding="0"><tr><td height="3"></td></tr></table>
	  <table width="99%"  border="0" cellpadding="0" cellspacing="0" class="border">
      <tr>
        <td><img src="skins/1/r1.gif" width="125" height="32"></td>
      </tr>
      <tr>
        <td height="140" valign="top">
		<marquee scrollamount='1' height="140" scrolldelay='10' behavior='loop' direction='up' onmouseover='this.stop()' onmouseout='this.start()'>
		<%rs.open "select top 10 id,accept,songname from song where bjid="&bid&" order by id desc",conn,1,1
	If Rs.eof and Rs.bof Then
	Response.Write("无人点歌")
	else
	i=1
	do while not rs.eof
	Response.Write(i&".<a href='bjsong.asp?bid="&bid&"#"&rs(0)&"'>点给"&left(rs(1),3)&"的["&left(rs(2),6)&"]</a><br>")
	i=i+1
	rs.movenext
			loop
			end if
		rs.close%></marquee></td>
      </tr>
    </table>
      <table width="100%"  border="0" cellspacing="0" cellpadding="0"><tr><td height="3"></td></tr></table>
      <table width="99%"  border="0" cellpadding="0" cellspacing="0" class="border">
        <tr>
          <td><img src="skins/1/bjr3.gif" width="119" height="28"></td>
        </tr>
        <tr>
          <td height="150" valign="top">
		  
	<table width="100%"  border="0" cellspacing="0" cellpadding="0">
     <form action="vote.asp" target="newwindow" method=post name=research>
	 <%rs.open "select * from [vote] where bjid="&bid&"",conn,1,1
	If Rs.eof Then
	response.write "<tr><td height=20>暂无投票</td></tr>"
	else
	response.write "<tr><td height=20>&nbsp;&nbsp;<b>"&rs("title")&"</b></td></tr>"
	for i=1 to 6
				if rs("Select"&i)<>"" then%>
		    <tr><td height=20>&nbsp; <input style="border: 0" <%if i=1 then%>checked<%end if%> name=Options type=radio value=<%=i%>><%=i%>.<%=rs("Select"&i)%><br> </td></tr>
			<%end if
			next%>
			<tr><td height=25 valign="bottom"><div align="center">
  <input type=button class="bottom" onClick="javascript:test(this.form);this.blur()" value="投一票">
&nbsp;&nbsp;
  <input type="button" class="bottom" onClick="javascript:vote();this.blur()" value="看结果">
			  </div></td></tr>
			  <%end if
			rs.close%>
          </form></table>
	
	</td>
        </tr>
      </table>
    </td>
  </tr>
</table>

<table width="760" border="0" align="center" cellpadding="0" cellspacing="0" class="border">
  <tr>
    <td><img src="skins/1/b.gif" width="494" height="38"></td>
  </tr>
  <tr>
    <td height="130" background="skins/1/bb.gif"><table width="96%"  border="0" align="center" cellpadding="0" cellspacing="0">
             <tr>
        <td height="20">最新登录：<%rs.open "select top 15 id,realname,lastdate from [user] where instr(','&bjid&',' ,',"&bid&",')>0 order by lastdate desc",conn,1,1
	If Rs.eof and Rs.bof Then
	Response.Write("暂无会员")
	else
	do while not rs.eof
			Response.Write "<A href='datum.asp?userid="&rs("id")&"' title='"&rs("lastdate")&"'>"&rs("realname")&"</a>&nbsp;"
			rs.movenext
			loop
			end if
		rs.close%></td>
      </tr>
	  <tr>
        <td height="20">最新会员：<%rs.open "select top 15 id,realname,joindate from [user] where instr(','&bjid&',' ,',"&bid&",')>0 order by joindate desc",conn,1,1
	If Rs.eof and Rs.bof Then
	Response.Write("暂无会员")
	else
	do while not rs.eof
			Response.Write "<A href='datum.asp?userid="&rs("id")&"' title='"&rs("joindate")&"'>"&rs("realname")&"</a>&nbsp;"
			rs.movenext
			loop
			end if
		rs.close%></td>
      </tr>
      <tr>
        <td height="20">富翁排行：<%rs.open "select top 15 id,realname,sitemoney from [user] where instr(','&bjid&',' ,',"&bid&",')>0 order by sitemoney desc",conn,1,1
	If Rs.eof and Rs.bof Then
	Response.Write("暂无会员")
	else
	do while not rs.eof
			Response.Write "<A href='datum.asp?userid="&rs("id")&"' title="&rs("sitemoney")&">"&rs("realname")&"</a>&nbsp;"
			rs.movenext
			loop
			end if
		rs.close%></td>
      </tr>
     <tr>
        <td height="20">在线会员：<%rs.open "select top 15 userid,entertime,newtime from [online] order by newtime desc",conn,1,1
	If Rs.eof and Rs.bof Then
	Response.Write("暂无会员")
	else
	do while not rs.eof
			Response.Write "<A href='datum.asp?userid="&rs("userid")&"' title='进入:"&rs("entertime")&"活动:"&rs("newtime")&"'>"&obj.getname(rs("userid"),1,SiteDatabase)&"</a>&nbsp;"
			rs.movenext
			loop
			end if
		rs.close%></td>
      </tr>
	  <%if session("xyluserid")<>"" then
	  if obj.inbj(session("xyluserid"),bid,SiteDatabase)=1 then%>
      <tr>
        <td height="20">退出班级：[<a href="bj.asp?bid=<%=bid%>&type2=outbj" onClick="return confirm('确定要退出这个班级吗？')">退出班级</a>]　操作后你将不再是本班的成员，请认真操作。[没地方放了，只好放这边，希望你能找到]</td>
      </tr>
	  <%end if
	  end if%>
    </table></td>
  </tr>
</table>
<%sitebottom%>
</body>
</html>