index.asp

进入后台

			str1="暂无图片"
			str2="暂无图片"
			else
			i=0
			do while not rs.eof
			i=i+1
			  if i<4 then
			  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='photoview.asp?id="&rs("id")&"'><img src='upphoto/"&rs("pic")&"' alt='"&rs("title")&"' width='105' height='105' border='0'></a></div></td></tr></table></td>"
			  else
              str2=str2&"<td><table width='115' height='115'  border='0' align='center' cellpadding='0' cellspacing='0' class='border'><tr><td><div align='center'><a href='photoview.asp?id="&rs("id")&"'><img src='upphoto/"&rs("pic")&"' alt='"&rs("title")&"' width='105' height='105' border='0'></a></div></td></tr></table></td>"
			  end if
			  rs.movenext
			  loop
			end if
			  rs.close
			  response.write str1%>
            </tr>
          </table></td>
        </tr>
		<tr>
          <td height="130" background="skins/1/z3b.gif"><table width="94%"  border="0" align="center" cellpadding="0" cellspacing="0">
            <tr>
              <%=str2%>
            </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/z4.gif" width="138" height="39"></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,adddate from bbs where laye=0 order by id desc",conn,1,1
	If Rs.eof and Rs.bof Then
	Response.Write("<tr><td height=20>暂无帖子</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="bbsview.asp?aid=<%=rs(0)%>"><%=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/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 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='song.asp#"&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/r2.gif" width="142" height="37"></td>
        </tr>
        <tr>
          <td height="270" valign="top"><table width="98%"  border="0" cellspacing="0" cellpadding="0">
            <tr>
			<%rs.open "select top 3 id,hccount,userphoto from [user] where ishc=1 and sex='男' order by hccount desc,id desc",conn,1,1
	If Rs.eof and Rs.bof Then
	Response.Write("<tr><td>暂无成员</td></tr>")
	else
	i=1
	do while not rs.eof%>
              <td width="35%" height="54"><div align="center"><A href="hcview.asp?id=<%=rs("id")%>"><img src="<%=rs("userphoto")%>" width="50" height="50" class="picborder"></a></div></td>
             <%rs.movenext
			loop
end if
rs.close%> 
</tr>
          </table>
            <table width="94%"  border="0" align="center" cellpadding="0" cellspacing="0">
              <%rs.open "select top 10 id,realname,hccount,userphoto from [user] where ishc=1 and sex='男' order by hccount desc,id desc",conn,1,1
	If Rs.eof and Rs.bof Then
	else
	do while not rs.eof%>
			  <tr>
                <td width="25" height="20"><div align="center"><%=i%></div></td>
                <td width="83"><A href="hcview.asp?id=<%=rs("id")%>"><span class="xiahua"><%=rs("realname")%></span></a></td>
                <td width="59"><%=rs("hccount")%></td>
              </tr>
			 <%i=i+1
rs.movenext
			loop
end if
rs.close%> 
            </table></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/r4.gif" width="126" height="39"></td>
        </tr>
        <tr>
          <td height="140"><table width="98%"  border="0" align="center" cellpadding="0" cellspacing="0">
            <tr>
              <td height="20"><a href="help.asp#1">1.忘记了帐号的密码怎么办？</a></td>
            </tr>
            <tr>
              <td height="20"><a href="help.asp#2">2.如何创建和加入班级？</a></td>
            </tr>
            <tr>
              <td height="20"><a href="help.asp#3">3.如何加入校花校草？</a></td>
            </tr>
            <tr>
              <td height="20"><a href="help.asp#4">4.我以前点的歌曲怎么不见了？</a></td>
            </tr>
            <tr>
              <td height="20"><a href="help.asp#5">5.如何成为班级管理员？</a></td>
            </tr>
            <tr>
              <td height="20"><a href="help.asp#6">6.照片怎么不在学校相册里？</a></td>
            </tr> <tr>
              <td height="20"><a href="help.asp#7">7.从哪上传照片和点歌啊？</a></td>
            </tr>
          </table></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/r3.gif" width="124" height="30"></td>
        </tr>
        <tr>
          <td height="150">
		  
            <marquee scrollamount='1' height="140" scrolldelay='10' behavior='loop' direction='up' onmouseover='this.stop()' onmouseout='this.start()'>
		  <%rs.open "select * from link order by id",conn,1,1
	If Rs.eof and Rs.bof Then
	Response.Write("暂无链接")
	else
	Response.Write("<table width='100%' border='0' cellspacing='0' cellpadding='0'>")
	do while not rs.eof
	Response.Write("<tr><td height='35'><div align='center'><a href='"&rs("sitehttp")&"' target='_blank'><img src='"&rs("sitelogo")&"' width='88' height='31' border='0' alt='"&rs("sitename")&"'></a></div></td></tr>")
	rs.movenext
			loop
			Response.Write("</table>")
			end if
		rs.close%>
            </marquee>
          </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 14 id,realname,lastdate from [user] 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 14 id,realname,joindate from [user] 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 14 id,realname,sitemoney from [user] 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 14 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>
      <tr>
        <td height="20">班级排行：</td>
      </tr>
    </table></td>
  </tr>
</table>
<table width="760"  border="0" align="center" cellpadding="0" cellspacing="0">
<tr><td height="20"><script src='http://yvsy.net/tq/tq.asp?style=7'></script></td></tr></table>
<table width="760"  border="0" align="center" cellpadding="0" cellspacing="0">
<tr><td height="3"></td></tr></table>
<%sitebottom%>
</body>
</html>