geshou.asp

俄罗斯方块源码 俄罗斯方块源码 俄罗斯方块源码

<!--#include file="conn.asp"-->
<!--#include file="top.asp"-->
<title>闪闪之家----歌手列表</title>
<TABLE width=770 border=0 align="center" cellPadding=0 cellSpacing=0>
  <TR> 
    <TD width=190 vAlign=top background="index3/flash_bg4.jpg" bgcolor="#F7F7F7" class="bg"> 
      <!--#include file="left.asp"-->
    </TD>
    <TD width=570 align=left vAlign=top bgcolor="#FFFFFF"> 
      <TABLE align=center 
      background="images/line01.gif" 
      border=0 cellPadding=0 cellSpacing=0 height=24 width="100%">
        <TR> 
          <TD height=21>&nbsp;<IMG height=12 
            src="images/A3.gif" width=12> 当前位置：<A 
            href="index.asp" title="联盟首页">闪闪之家</A> -&gt; 歌手列表</TD>
        </TR>
      </TABLE>
	  <%
	  set geshours=server.CreateObject("adodb.recordset")
	  geshousql="select dalei from geshou group by dalei"
	  geshours.open geshousql,conn,1,1
	  if not geshours.eof then
	  do while not geshours.eof
	  
	  %>
      <table width="98%" border="0" align="center" cellpadding="2" cellspacing="2">
        <tr> 
          <td align="center"><font style="font-size:14px;" color="#ff0000"><img src="index3/dot_1.gif" width="11" height="11">&nbsp;&nbsp;<b><%=geshours("dalei")%></b></font></td>
        </tr>
        <tr>
          <td align="center" background="index3/linebg4.gif" height="5"></td>
        </tr>
        <tr> 
          <td> <%
		  set geshours2=server.CreateObject("adodb.recordset")
		  geshousql2="select zibo from geshou where dalei='"&geshours("dalei")&"' group by zibo order by zibo"
		  geshours2.open geshousql2,conn,1,1
		  if not geshours2.eof then
		  i=1
		  do while not geshours2.eof 
		   if (i mod 2)<>0 then
		   bg="#f2f8ff"
		   else
		   bg="#ffffff"
		   end if 
		  %> <table width="100%" border="0" cellspacing="2" cellpadding="3">
              <tr bgcolor=<%=bg%>> 
                <td width="8%" align="center" valign="top"><b><font color="#ff0000" style="font-size:14px"><%=UCase(geshours2("zibo"))%></font></b></td>
                <td width="92%" class="geshou"> <%
				set geshours3=server.createobject("adodb.recordset")
				geshousql3="select geshou from geshou where zibo='"&geshours2("zibo")&"' and dalei='"&geshours("dalei")&"'"
				geshours3.open geshousql3,conn,1,1
				if not geshours3.eof then
				do while not geshours3.eof
				%> <table width="100%" border="0" cellspacing="0" cellpadding="3">
                    <tr> 
                      <%
				  nn=0
				  do while not nn>4
				  if not geshours3.eof then
				  %>
                      <td width="20%"><a href="flash_search.asp?utype=geshou&keyword=<%=geshours3("geshou")%>"><%=geshours3("geshou")%></a></td>
                      <%
					
				  geshours3.movenext
				  else
                    response.write "<td width=20% ></td>"
				  end if
				  nn=nn+1 
				  loop
					%>
                    </tr>
                  </table>
                  <%
				loop
				end if
				geshours3.close
				%> </td>
              </tr>
            </table>
            <%
			i=i+1
			geshours2.movenext
			loop
			end if 
			geshours2.close
			%> </td>
        </tr>
      </table> 
	  <%
	  geshours.movenext
	  loop
	  end if 
	  geshours.close
	  %>
	  </TD>
  </TR>
</TABLE>
<!--#include file="bottom.asp"-->