list_special_new.html

971音乐站全站程序

<!-- 导航新进专辑列表 开始 -->
<%
	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
	%>
<!-- 导航新进专辑列表 结束 -->