实现歌曲连续播放
类别: ASP教程 
dim ramstr
ramstr=""
set rs=server.createobject("adodb.recordset")
sql="XXXXXXXXXXX"
rs.open sql,conn,1,3 /conn已定义；
do while not rs.eof
ramstr=ramstr&rs("url")&vbCrLf
rs.movenext
loop
rs.close
response.ContentType="audio/x-pn-realaudio"
////response.ContentType="audio/x-mpegurl"
response.write ramstr
response.write 输出的时候，由于定义了response.ContentType 所以输出歌曲地址的时候会自动调用符合相应格式的软件来播放歌曲，不过前提是播放歌曲的软件必须先安装的
ramstr=""
set rs=server.createobject("adodb.recordset")
sql="XXXXXXXXXXX"
rs.open sql,conn,1,3 /conn已定义；
do while not rs.eof
ramstr=ramstr&rs("url")&vbCrLf
rs.movenext
loop
rs.close
response.ContentType="audio/x-pn-realaudio"
////response.ContentType="audio/x-mpegurl"
response.write ramstr
response.write 输出的时候，由于定义了response.ContentType 所以输出歌曲地址的时候会自动调用符合相应格式的软件来播放歌曲，不过前提是播放歌曲的软件必须先安装的
- 上一篇: RC4经典加密算法代码(VB版)
- 下一篇: ASP中常见的错误80004005信息和解决办法
