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

    <!--#include file="inc/const.asp"-->
<!--#include file="inc/function.asp"-->
<ASX version = "3.0">
<%
id=request.QueryString("id")
id1=ReqNum("id")
if id="" then 
   Response.redirect"../"
   else
    set rs=server.createobject("adodb.recordset")
    sql="select Musicname,Wma,Singer,hits from MusicList where id="&id1
    rs.open sql,conn,1,3
	if rs.bof and rs.eof then
	response.write "参数错误"
    response.end
	else
    rs("hits")=rs("hits")+1
	rs.Update
    url = "http://音乐路径/"&rs("Wma")
%>
<Entry>
<Title><%=rs("Musicname")%></Title>
<Ref href = "<%=url%>"/>
<author><%=site_info(0)%></author>
<copyright>歌手及其唱片公司所有</copyright>
<param name="Artist" value="<%=rs("Singer")%>"/> 
<param name="Album" value="<%=site_info(0)%>  点播<%=rs("hits")%>次"/> 
<param name="Title" value="<%=rs("Musicname")%>"/>
</Entry>
<%
rs.Close
set rs=nothing
end if
end if
conn.close
set conn=nothing
%>
</ASX>