music_new.inc

971音乐站全站程序

<style type="text/css">
<!--
td {
	font-size: 12px;
	line-height: 120%;
}
-->
</style>

<div id=demo 
style=overflow:hidden;height:890;width:190;><table border=0 align=left 
cellpadding=0 bgcolor="#ffffff" cellspace=0>
  <tr><td id=demo1 valign=top>
<!-- 导航新进专辑列表 开始 -->
<%
	Dim New_Special_List_rs
	Set New_Special_List_rs=conn.execute("select SpecialID,name,NClassID,NClass,pic from [Special] ORDER BY SpecialID desc")
	For i=1 To 10
		If New_Special_List_rs.eof Then Exit For
%>
              <table width="100%" border="0" align="center" cellpadding="0" cellspacing="2">
                <tr> 
                  <td width="16%"><a href="show.asp?specialid=<%=New_Special_List_rs(0)%>" target="_blank"><img src="<%=New_Special_List_rs(4)%>" width="50" height="55" style="border: 1 solid #000000"></a></td>
                  <td width="84%" valign="top"> <table width="100%" border="0" cellspacing="0" cellpadding="2">
                      <tr valign="top"> 
                        <td height="22"><img src="images/om_icon10_yes.gif" alt="专 辑" width="14" height="14"></td>
                        <td height="22"><a href="show.asp?specialid=<%=New_Special_List_rs(0)%>" target="_blank"><u><font color="#FF6600"><%=New_Special_List_rs(1)%></font></u></a></td>
                      </tr>
                      <tr valign="top"> 
                        <td width="17" height="22"><img src="images/bull_voice_ok.gif" alt="歌 手" width="15" height="14"><font color="#000000"> 
                          </font></font></td>
                        <td width="95"><a href="special.asp?id=<%=New_Special_List_rs(2)%>" target="_blank"><font color="#FF6600"><%=New_Special_List_rs(3)%></font></a></td>
                      </tr>
                    </table></td>
                </tr>
              </table>
	<%	
		New_Special_List_rs.movenext	
	Next
	New_Special_List_rs.close
	Set New_Special_List_rs=NOTHING
	%>
<!-- 导航新进专辑列表 结束 -->
</td><td id=demo2 valign=top></td></tr></table></div>
  <script>
    var speed=30
    demo2.innerHTML=demo1.innerHTML
    demo.scroll=demo.scrollHeight
    function Marquee(){
    if(demo1.offsetTop-demo.scrollTop>=0)
    demo.scrollTop+=demo2.offsetHeight
    else{
    demo.scrollTop--
    }
    }
    var MyMar=setInterval(Marquee,speed)
    demo.onmouseover=function() {clearInterval(MyMar)}
    demo.onmouseout=function() {MyMar=setInterval(Marquee,speed)}
    </script>