当前位置：首页 > 资讯 > 技术文档

如何实现歌曲在线点播？

时间：2020-10-07 02:35 编辑：来源：阅读：
扫一扫，手机访问

摘要：如何实现歌曲在线点播？

<% 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 %>

[b][1][/b]

全部评论(0)

上一篇：如何判断用户是否非正常离开聊天室？
下一篇：如何限制上传文件的大小？

资讯排行榜
更多>>