www.gusucode.com > 要听音乐网完美修正版 1.0源码程序 > wma_slb.asp

    <!--#include file="inc/const.asp"-->
<!--#include file="inc/Char.asp"-->
<ASX version = "3.0">
<%
Dim MusicID,MusicArray,MusicNum
MusicID=CheckStr(request.QueryString("checked"))
'创建排列顺序
MusicArray=Split(MusicID, ",")
MusicNum = UBound(MusicArray)
if MusicID<>"" then
set rs=server.createobject("adodb.recordset")

For i=0 To MusicNum
	sql="select Musicname,Wma,Singer,hits from [MusicList] where id ="&MusicArray(i)
	rs.open sql,conn,1,3
	If not rs.eof Then
	    rs("hits")=rs("hits")+1
		rs.Update
		url = "http://音乐路径/"&rs("Wma")
%>
<entry>
<title><%=rs("Musicname")%></title>
<author><%=site_info(0)%></author> <abstract><%=site_info(0)%></abstract> <copyright>歌手及其唱片公司所有</copyright>  <ref href="<%=url%>"/> <param name="Artist" value="<%=rs("Singer")%>"/> <param name="Album" value="<%=site_info(0)%>  点播<%=rs("hits")%>次"/> <param name="Title" value="<%=rs("Musicname")%>"/> </ENTRY> 
<% 
	End If
	rs.close
Next	
end if
set rs=nothing
conn.close
set conn=nothing
%>
</ASX>