<% Dim Best_Music_rs,Best_Music_bgcolor Set Best_Music_rs=conn.execute(Best_Music_Sql) For i=1 To Best_Music_Num If Best_Music_rs.eof Then Exit For Best_Music_bgcolor="f7f7f7" If i mod 2 = 0 Then Best_Music_bgcolor="ffffff" Else Best_Music_bgcolor="f7f7f7" End If %>  <%Response.Write (Best_Music_rs(1))%> <%Response.Write (Best_Music_rs(2))%> <% Dim Open_MusicWord_rs Set Open_MusicWord_rs=conn.execute("select ID from [MusicWord] where IsShow=true and MusicID="&Best_Music_rs(0)) If Open_MusicWord_rs.eof Then Response.Write ("") Else Response.Write ("") End If Open_MusicWord_rs.close Set Open_MusicWord_rs=NOTHING%> <%Response.Write (Best_Music_rs(3))%> <% Best_Music_rs.movenext Next Best_Music_rs.close Set Best_Music_rs=NOTHING %>