index.asp

音乐类型的好网站

If (rs_count mod 5) <> 0 Then
for i = 1 to (5 - (rs_count mod 5))
Response.write "<td><a href='http://www.168cc.com' target='_blank' title='请管理员将数据库记录数添加至5的倍数'>此项暂时空缺</a></td>"&vbCrLf
Next
Response.Write "</tr>"&vbCrLf
End If
%>
</table>

<center>
<iframe frameborder=0 leftmargin=0 marginheight=0 marginwidth=0 scrolling=no src="http://www.e58.net/free/news7.htm" topmargin=0 width=760 height=102></iframe>
<br>
<script src="http://union.3721.com/custom.js?pid=S_music_10983&pid1=U_music_10984&SearchHeight=25px&SearchWidth=760px&Key=0,1,2,3,4,5,6,7,8,9,10,11,12&TextLength=13&Border=1"></script>
</center>
  <table width="760" border="1" cellspacing="0" cellpadding="0" bordercolor="#000000" style="border-collapse: collapse" bgcolor="#FFFFFF" align="center">
        <tr height="24" align="center"> 
          <td width="20%" colspan="1" align="left" background="images/wc2.gif"><a name="classical">&nbsp;<img src="pic_arrow_02.gif">&nbsp;<b>中文歌曲经典榜</b></td>
          <td width="80%" colspan="4" style="padding-left:10px;padding-right:10px" background="images/wc2.gif">&nbsp; 
          </td>
</tr>
<%
Set Rs = Server.CreateObject("ADODB.RecordSet")
Rs.Open "select * from basic where class='中文经典' order by numeration",conn,1,3
rs_count = 0
Do While Not Rs.Eof
rs_count = rs_count + 1
if rs_count = 1 or ((rs_count mod 5 = 1) and rs_count > 5 ) Then
Response.write "<tr height='24' align='center'>"&vbCrLf
End If
Response.write "<td width='20%'><a href='#"&Rs("numeration")&"' onclick="&chr(34)&"pre_play(this.href,this.innerText);return false;"&chr(34)&">"&Rs("title")&"</a></td>"&vbCrLf
if rs_count = 5 or (rs_count mod 5 = 0) Then
Response.write "</tr>"&vbCrLf
End If
Rs.MoveNext
Loop
If (rs_count mod 5) <> 0 Then
for i = 1 to (5 - (rs_count mod 5))
Response.write "<td><a href='http://www.168cc.com' target='_blank' title='请管理员将数据库记录数添加至5的倍数'>此项暂时空缺</a></td>"&vbCrLf
Next
Response.Write "</tr>"&vbCrLf
End If
%>
</table>
<br><center>
<script src="http://union.3721.com/custom.js?pid=S_music_10983&pid1=U_music_10984&SearchHeight=25px&SearchWidth=760px&Key=0,1,2,3,4,5,6,7,8,9,10,11,12&TextLength=13&Border=1"></script></center>

      <table width="760" border="1" cellspacing="0" cellpadding="0" bordercolor="#000000" style="border-collapse: collapse" bgcolor="#FFFFFF" align="center">
        <tr height="24" align="center"> 
          <td width="20%" colspan="1" background="images/wc2.gif"  align="left"><a name="english">&nbsp;<img src="pic_arrow_02.gif">&nbsp;<b>英文歌曲经典榜</b></td>
          <td width="80%" colspan="4" background="images/wc2.gif" style="padding-left:10px;padding-right:10px">&nbsp; 
          </td>
</tr>
<%
Set Rs = Server.CreateObject("ADODB.RecordSet")
Rs.Open "select * from basic where class='英文经典' order by numeration",conn,1,3
rs_count = 0
Do While Not Rs.Eof
rs_count = rs_count + 1
if rs_count = 1 or ((rs_count mod 5 = 1) and rs_count > 5 ) Then
Response.write "<tr height='24' align='center'>"&vbCrLf
End If
Response.write "<td width='20%'><a href='#"&Rs("numeration")&"' onclick="&chr(34)&"pre_play(this.href,this.innerText);return false;"&chr(34)&">"&Rs("title")&"</a></td>"&vbCrLf
if rs_count = 5 or (rs_count mod 5 = 0) Then
Response.write "</tr>"&vbCrLf
End If
Rs.MoveNext
Loop
If (rs_count mod 5) <> 0 Then
for i = 1 to (5 - (rs_count mod 5))
Response.write "<td><a href='http://www.168cc.com' target='_blank' title='请管理员将数据库记录数添加至5的倍数'>此项暂时空缺</a></td>"&vbCrLf
Next
Response.Write "</tr>"&vbCrLf
End If
%>
</table>
<center>
<iframe frameborder=0 leftmargin=0 marginheight=0 marginwidth=0 scrolling=no src="http://www.e58.net/free/news8.htm" topmargin=0 width=760 height=102></iframe><br>
<script src="http://union.3721.com/custom.js?pid=S_music_10983&pid1=U_music_10984&SearchHeight=25px&SearchWidth=760px&Key=0,1,2,3,4,5,6,7,8,9,10,11,12&TextLength=13&Border=1"></script>
</center>
      <table width="760" border="1" cellspacing="0" cellpadding="0" bordercolor="#000000" style="border-collapse: collapse" bgcolor="#FFFFFF" align="center">
        <tr height="24" align="center"> 
          <td width="20%" background="images/wc2.gif" colspan="1" align="left">&nbsp;<img src="pic_arrow_02.gif">&nbsp;<b>DJ舞曲大奉献1</b></td>
          <td width="80%"  background="images/wc2.gif" colspan="4" style="padding-left:10px;padding-right:10px">&nbsp; 
          </td>
</tr>
<%
Set Rs = Server.CreateObject("ADODB.RecordSet")
Rs.Open "select * from basic where class='DJ舞曲' order by numeration",conn,1,3
rs_count = 0
Do While Not Rs.Eof
rs_count = rs_count + 1
if rs_count = 1 or ((rs_count mod 5 = 1) and rs_count > 5 ) Then
Response.write "<tr height='24' align='center'>"&vbCrLf
End If
Response.write "<td width='20%'><a href='#"&Rs("numeration")&"' onclick="&chr(34)&"pre_play(this.href,this.innerText);return false;"&chr(34)&">"&Rs("title")&"</a></td>"&vbCrLf
if rs_count = 5 or (rs_count mod 5 = 0) Then
Response.write "</tr>"&vbCrLf
End If
Rs.MoveNext
Loop
If (rs_count mod 5) <> 0 Then
for i = 1 to (5 - (rs_count mod 5))
Response.write "<td><a href='http://www.168cc.com' target='_blank' title='请管理员将数据库记录数添加至5的倍数'>此项暂时空缺</a></td>"&vbCrLf
Next
Response.Write "</tr>"&vbCrLf
End If
%>
</table>
     

      <center>
<iframe frameborder=0 leftmargin=0 marginheight=0 marginwidth=0 scrolling=no src="http://www.e58.net/free/news6.htm" topmargin=0 width=760 height=102></iframe><br>
<script src="http://union.3721.com/custom.js?pid=S_music_10983&pid1=U_music_10984&SearchHeight=25px&SearchWidth=760px&Key=0,1,2,3,4,5,6,7,8,9,10,11,12&TextLength=13&Border=1"></script>
</center>
      <table width="760" border="1" cellspacing="0" cellpadding="0" bordercolor="#000000" style="border-collapse: collapse" bgcolor="#FFFFFF" align="center">        
        <tr height="24" align="center">
          <td align="center" bgcolor="#E4DDEA"> 


<br>
            Copyright 2003-2004<b><font face="Verdana," color="#000000" sans-serif Helvetica, Arial,><font color="#000000"> 
            </font></font><font color="#000000"><a style="font-size: 8pt; color: #ff6600; text-decoration: none" href="http://www.168cc.com/">168音乐网</a></font></b> 
            版权所有 Power by <a href="http://www.168cc.com">『168音乐网</a>』<br>
            站长：懒得说　<a href="mailto:[e-mail]">E-Mail:[e-mail]</a> &nbsp;&nbsp;<a href="http://www.168cc.com/gbook/" target="_blank">　请你留言　</a>&nbsp;&nbsp; 
            QQ:273043</td>
        </tr>
      </table>
    </td>
    </tr>
</table> </table> 
<Script Language="JavaScript">
window.defaultStatus="请把本站网址发给你QQ上的网友，谢谢！站长QQ：273043";
</Script

></body></html>
<%
Rs.Close
Set Rs = Nothing
Conn.Close
Set Conn = Nothing
%>