如何实现歌曲在线点播？_编程10000问_

NEWSZW_HZH_BEGIN-->

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