song_list.asp

asp写的一个mp3播放器(带源码)

<!--#include file="cz_db.asp" -->
<%Dim type_id
type_id = ChkNumeric(Trim(request("typeid")))
set rs = Server.CreateObject("ADODB.Recordset")
If type_id="" Then
rs.open "select * from cz_songlist order by cz_id desc",conn,1,1
else
rs.open "select * from cz_songlist where cz_typeid="&type_id&" order by cz_id desc",conn,1,1
End If
if not rs.eof then
while not rs.eof
If rs("cz_typeid") = 0 Then
response.Write("mkList("""&rs("cz_song_url")&""" ,"""&rs("cz_song_name")&""");")&vbcrlf
Else
response.Write("mkList("""&rs("cz_song_url")&""" ,"""&rs("cz_from_name")&"-"&rs("cz_song_name")&""");")&vbcrlf
End If
rs.movenext
wend
Else
response.Write("mkList("""" ,""本分类暂无歌曲，请从后台添加！"","""",""f"");")&vbcrlf
End If 
rs.close
set rs=Nothing
conn.close
Set conn = nothing
%>