yxwma.asp

971音乐站全站程序

<!--#include file="conn.asp"-->
<ASX version = "3.0">
<%
Dim MusicID,MusicArray,MusicNum,songpath,path
MusicID=request.QueryString("id")
'创建排列顺序
MusicArray=Split(MusicID, ",")
MusicNum = UBound(MusicArray)

set rs=server.createobject("adodb.recordset")

For i=0 To MusicNum
	sql="select Musicname,Wma,Singer,song_path from [MusicList] where id ="&MusicArray(i)
	rs.open sql,conn,1,1
	If not rs.eof Then
path=request.QueryString("path")
%>
<entry SKIPIFREF="YES">
<title><%=rs("Musicname")%></title>
<author>971音乐网</author>
<copyright>971音乐网</copyright>
<ref href="<%=path%><%=rs("Wma")%>"/>
<param name="Artist" value="<%=rs("Singer")%>"/>
<param name="Album" value="971音乐网"/>
<param name="Title" value="<%=rs("Musicname")%>"/>
</ENTRY>
<% 
	End If
	rs.close
Next	

set rs=nothing
CloseDatabase
%>
</ASX>