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>