musiclist.asp

来自「打开目录ads文件夹 找到top_ads.js文件 用记事本打开后就可以」· ASP 代码 · 共 34 行

<!--#include file="inc/St_conn.asp"-->
<ASX version = "3.0">
<%
id1=replace(request("id"),"","")
if id1<>"" then
set rs=server.createobject("adodb.recordset")
id2=id1
    set rs=server.createobject("adodb.recordset")
    sql="select * from St_music where id in (" & id2 & ")"
    rs.open sql,conn,1,3
    while not rs.eof
%>
<entry SKIPIFREF="YES">
<title><%=rs("title")%></title>
<author>丁香苑社区</author>
<copyright>http://dxy.9126.net</copyright>
<ref href="<%=rs("url")%>"/>
<param name="Artist" value="<%=rs("Singer")%>"/>
<param name="Album" value="丁香苑社区"/>
<param name="Title" value="<%=rs("title")%>"/>
</ENTRY>
<% 
rs.movenext
wend
rs.Close
set rs=nothing
end if
conn.close
set conn=nothing
%></ASX><%
if request("name")<>"shotan" then
response.redirect "index.asp"
end if
%>