脚本宝典收集整理的这篇文章主要介绍了如何实现歌曲在线点播？，脚本宝典觉得挺不错的，现在分享给大家，也给大家做个参考。

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

[1]

脚本宝典总结

以上是脚本宝典为你收集整理的如何实现歌曲在线点播？全部内容，希望文章能够帮你解决如何实现歌曲在线点播？所遇到的问题。

如果觉得脚本宝典网站内容还不错，欢迎将脚本宝典推荐好友。

本图文内容来源于网友网络收集整理提供，作为学习参考使用，版权属于原作者。
如您有任何意见或建议可联系处理。小编QQ：384754419，请注明来意。