静态网页设计与制作作业成品
- 静态网页作业类型 Bootstrap自适应网页作业 html5+css3 html静态网页作业
- 静态网页作业语言 英文静态网页作业 中文静态网页作业
- 静态网页作业主题 医院 其他 电子商务 名人 宠物医院 美容院 化妆品护肤 社会共享资源 历史名人 家居商城 珠宝首饰 旅游 中华传统教育 汽车 古典乐器 动漫 现代科技 公益活动 传统节日 体育运动 电影影视 比赛活动 文学 服装 美食 艺术 鲜花礼品 娱乐 游戏
- 静态网页作业布局 table+css div+css 表格table
- 静态网页作业页面 1页面 2页面 3页面 8页 4页面 5页面 6页面 7页面 8页面 9页面 10页面 11页面 12页面 13页面 14页面 15页面 16页面 17页面 18页面 19页面 20页面 40页
- 静态网页作业技术 表单
- 静态网页作业价格 10元 20元 30元 40元 50元
毕业设计中如何使用ASP实现歌曲在线播放功能？
毕业设计中如何使用ASP实现歌曲在线播放功能？
ASP作为一个比较久远的程序虽然商业上使用的不多，但是作为计算机类的毕业设计，使用的还是比较广泛的。最近同学们问我怎么实现音乐的在线播放
尤其是上一曲，和下一曲功能，大概的思路就是利用程序去获取数据库中的歌曲表，通过循环ID，来获取歌曲的相对路径，然后吧歌曲资源利用MP3的播放方式
再网页中播放出来，上一曲就是该 表中的上一个ID资源名，下一曲就是下一个歌曲ID的资源名，具体的功能如下：
<%
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\"
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 fs = CreateObject(“Scripting.FileSystemObject")
Set mp3 = fs.CreateTextFile(path＋“listen.m3u", True)
' 创建文件对象.
set mydb=server.createobject(“adodb.connection")
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
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
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)
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
set myset=nothing
mydb.close
set mydb=nothing
mp3.close
set mp3=nothing
' 清空.
response.redirect(“listen.m3u")
response.redirect(“listen.m3u")
' 将该文件下传到用户.
response.end
%>
正在做音乐播放功能的同学们可以参考一下，如果功能上还有不懂的地方可以联系我们的指导老师：QQ：1275404378 微信号：biyezhidao
response.end
%>
正在做音乐播放功能的同学们可以参考一下，如果功能上还有不懂的地方可以联系我们的指导老师：QQ：1275404378 微信号：biyezhidao
biyebang
QQ：629001810
