繁體中文当前位置: 首页 > 图文教程 > 网络编程 > 编程10000问 > 如何实现歌曲在线点播？
- 编程10000问
- 如何实现点击数的计算？
- 如何随机显示图片计数器？
- 如何用数据库制作一个多用户版的计数器？
- 如何制作一个防止多次刷新计数的图片计数器？
- 如何做一个计数器并让人家申请使用？
- 统计在线人数是实时的吗？
- 图像图表
- 如何把图片也存到数据库中去？
- 如何使图象随机显示？
- 如何制作K线图？
- 为什么有的留言簿不需要数据库？
- 如何编写一个最简单的聊天程序？
- 如何判断发言是否为空？
- 如何判断用户是否非正常离开聊天室？
- 如何用变量实现群聊和悄悄话？
- 如何判断电子邮件的地址格式是否正确？
- 如何实现电子邮件的自动发送？
- 如何使用表单发送电子邮件？
- 如何用ASP发送html格式的邮件？
- 如何用ASP发送带附件的邮件？
编程10000问 中的 如何实现歌曲在线点播？
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2010-01-10 浏览: 24 ::
收藏到网摘: n/a
<%
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]
评论 (0) All
