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>