search.asp

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

<!--#include file="cz_db.asp" -->
<%
Dim key
key = Trim(request("key"))
set rs = Server.CreateObject("ADODB.Recordset")
If key="" Then
response.Write("<a href='index.asp'>暂无歌曲!</a>")&vbcrlf
else
rs.open "select * from cz_songlist where cz_song_name like '%"&key&"%' or cz_from_name like '%"&key&"%'",conn,1,3
End If
if not rs.eof then
while not rs.eof
response.Write("mkList("""&rs("cz_song_url")&""" ,"""&rs("cz_from_name")&"-"&rs("cz_song_name")&""");")&vbcrlf
rs.movenext
wend
Else
response.Write("<a href='index.asp'>暂无歌曲!</a>")&vbcrlf
End If 
rs.close
set rs=Nothing
conn.close
Set conn = nothing
%>