www.gusucode.com > 流光音乐建站系统 1.1码程序 > User/Play.asp
<!--#include file="conn.asp"--> <!--#include file="Path.Asp"--> <ASX version = "3.0"> <% id1=replace(request("id"),"","") if id1<>"" then set rs=server.createobject("adodb.recordset") id=id1 sql="select * from MusicList where id in (" & id & ")" rs.open sql,conn,1,1 songpath=rs("song_path") If songpath="" or IsNull(songpath) Then songpath=1 End If Select Case songpath Case 1 song_path=song_path1 Case 2 song_path=song_path2 Case 3 song_path=song_path3 Case 4 song_path=song_path4 Case 5 song_path=song_path5 Case 6 song_path=song_path6 Case 7 song_path=song_path7 End Select song_path=song_path&rs("Wma") while not rs.eof %> <entry SKIPIFREF="NO"> <title><%=rs("Musicname")%></title> <author>流光音乐网</author> <copyright>歌手和唱片公司所有</copyright> <ref href="<%=song_path%>"/> <param name="Artist" value="<%=rs("Singer")%>"/> <param name="Album" value="流光音乐网<%=rs("hits")%>人气"/> <param name="Title" value="<%=rs("Musicname")%>"/> </ENTRY> <% rs.movenext wend rs.Close set rs=nothing end if conn.close set conn=nothing %> </ASX>