如何实现歌曲在线点播?

栏目: 编程语言 · 发布时间: 7年前

内容简介:如何实现歌曲在线点播?

<%
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=click1,
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]


以上就是本文的全部内容,希望本文的内容对大家的学习或者工作能带来一定的帮助,也希望大家多多支持 码农网

查看所有标签

猜你喜欢:

本站部分资源来源于网络,本站转载出于传递更多信息之目的,版权归原作者或者来源机构所有,如转载稿涉及版权问题,请联系我们

自制编译器

自制编译器

[日] 青木峰郎 / 严圣逸、绝云 / 人民邮电出版社 / 2016-6 / 99.00元

本书将带领读者从头开始制作一门语言的编译器。笔者特意为本书设计了CЬ语言,CЬ可以说是C语言的子集,实现了包括指针运算等在内的C语言的主要部分。本书所实现的编译器就是C Ь语言的编译器, 是实实在在的编译器,而非有诸多限制的玩具。另外,除编译器之外,本书对以编译器为中心的编程语言的运行环境,即编译器、汇编器、链接器、硬件、运行时环境等都有所提及,介绍了程序运行的所有环节。一起来看看 《自制编译器》 这本书的介绍吧!

HTML 压缩/解压工具
HTML 压缩/解压工具

在线压缩/解压 HTML 代码

JSON 在线解析
JSON 在线解析

在线 JSON 格式化工具

HTML 编码/解码
HTML 编码/解码

HTML 编码/解码