?? 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='請管理員將數(shù)據(jù)庫記錄數(shù)添加至5的倍數(shù)'>此項暫時空缺</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"> <img src="pic_arrow_02.gif"> <b>中文歌曲經(jīng)典榜</b></td>
<td width="80%" colspan="4" style="padding-left:10px;padding-right:10px" background="images/wc2.gif">
</td>
</tr>
<%
Set Rs = Server.CreateObject("ADODB.RecordSet")
Rs.Open "select * from basic where class='中文經(jīng)典' 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='請管理員將數(shù)據(jù)庫記錄數(shù)添加至5的倍數(shù)'>此項暫時空缺</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"> <img src="pic_arrow_02.gif"> <b>英文歌曲經(jīng)典榜</b></td>
<td width="80%" colspan="4" background="images/wc2.gif" style="padding-left:10px;padding-right:10px">
</td>
</tr>
<%
Set Rs = Server.CreateObject("ADODB.RecordSet")
Rs.Open "select * from basic where class='英文經(jīng)典' 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='請管理員將數(shù)據(jù)庫記錄數(shù)添加至5的倍數(shù)'>此項暫時空缺</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"> <img src="pic_arrow_02.gif"> <b>DJ舞曲大奉獻1</b></td>
<td width="80%" background="images/wc2.gif" colspan="4" style="padding-left:10px;padding-right:10px">
</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='請管理員將數(shù)據(jù)庫記錄數(shù)添加至5的倍數(shù)'>此項暫時空缺</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音樂網(wǎng)</a></font></b>
版權(quán)所有 Power by <a href="http://www.168cc.com">『168音樂網(wǎng)</a>』<br>
站長：懶得說 <a href="mailto:red8@163.com">E-Mail:red8@163.com</a> <a href="http://www.168cc.com/gbook/" target="_blank"> 請你留言 </a>
QQ:273043</td>
</tr>
</table>
</td>
</tr>
</table> </table>
<Script Language="JavaScript">
window.defaultStatus="請把本站網(wǎng)址發(fā)給你QQ上的網(wǎng)友，謝謝！站長QQ：273043";
</Script
></body></html>
<%
Rs.Close
Set Rs = Nothing
Conn.Close
Set Conn = Nothing
%>
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -