如何实现歌曲在线点播？

2007-04-27 推荐:335209450 收藏:216900047 评论:0 来源:20cn.net

下面我们看看如何在服务器上生成.m3u文件并下传到客户端的：
<%
dim choose,path,mydb,myset,SQL,fs,mp3
'' 获得用户提交表单(list.htm)选中的曲目对应的id号,并将其赋给字串变量choose
choose=“("
for i=3 to request.form.count
choose=choose＋request.form(i)＋“,"
next
choose=left(choose,len(choose)－1)＋“)"
if choose=“()" then
response.redirect(“list.htm")
response.end
'' 判断choose变量,如果不包含id号,说明list.htm中没有选中任何歌曲,终止程序
end if
path=“E:\inetpub\wwwroot\temp\"
'' 设置文件路径,把temp目录的权限设为对internet匿名用户具有read ＆ write 权限
Set fs = CreateObject(“Scripting.FileSystemObject")
Set mp3 = fs.CreateTextFile(path＋“listen.m3u", True)
'' 创建文件对象
set mydb=server.createobject(“adodb.connection")
'' 创建数据库对象
mydb.open “music"
SQL=“select mp3name,url from "＆dbname＆“where id in "＆choose set myset=tdb.execute(SQL)
do while not myset.eof
'' 检索数据库,获得曲目信息
mp3.Write(“http://"＋myset(“url")＋chr(10))
myset.movenext
'' 生成点播曲目文件列表
loop
SQL=“update music set click=click＋1,
this=this＋1 where id in "＆choose
mydb.execute(SQL)
'' 更新数据库中的当天点播次数和总共点播次数
set myset=nothing
mydb.close
set mydb=nothing
mp3.close
set mp3=nothing
'' 清空
response.redirect(“listen.m3u")
'' 将该文件下传到用户
response.end
%>

===============================================

您可以针对本文进行：[评论] [收藏] [推荐] [查看原文链接]