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>