musicbox.asp

971音乐站全站程序

<!--#include file="conn.asp"-->
<%
If session("PassWord")="" or session("UserName")="" or session("PassWord")=null or session("UserName")=null Then
	Response.Write ("<script>alert(' 错误!\n\n您还没有登陆或登陆超时，请先登陆。');javascript:top.window.close();</script>")
	Response.end
End If
stats=session("UserName")&"的音乐盒"
%>
<!--#include file="home.asp"-->
<%
Dim action,rs
action=request.QueryString("action")
set rs=server.createobject("adodb.recordset")
Select Case action
	Case "add"
		SaveListAdd
	Case "del"
		SaveListDel
	Case "list"
		If request.form("savelist")<>"" Then
			SaveList
		ElseIf request.form("player")<>"" Then
			playermusic
		End If		
End Select

'添加歌曲
Sub SaveListAdd
	Dim Musicid,BoxNum,BoxNum_Max_rs,BoxNum_Max,rs2,sql2
	Dim MusicName,Singer,SClassid,NClassid
	Musicid=request.QueryString("id")
	If Musicid="" or not IsNumeric(Musicid) Then
		Response.Write ("<script>alert(' 错误!\n\n请正确选择歌曲!');javascript:top.window.close();</script>")
		Response.end
	End If

	sql="select id from [Box] where UserName='"&session("UserName")&"'"
	rs.open sql,conn,1,1
		If not rs.eof Then
			BoxNum=rs.recordcount
		Else
			BoxNum=0
		End If
	rs.close

	Set BoxNum_Max_rs=conn.execute("select boxnum from [user] where UserName='"&session("UserName")&"'")
		If not BoxNum_Max_rs.eof Then
			BoxNum_Max=BoxNum_Max_rs(0)
		Else
			BoxNum_Max=0
		End If
	BoxNum_Max_rs.close
	
	If BoxNum >  BoxNum_Max Then
		Response.Write ("<script>alert(' 错误!\n\n你的音乐盒已经满了! \n\n每添加一首歌词并通过审核则可以多放两首歌曲!');javascript:top.window.close();</script>")
		Response.end	
	End IF

	sql="select id,UserName,Musicid,MusicName,Singer,SClassid,NClassid from [Box] where UserName='"&session("UserName")&"' and Musicid="&Musicid
	rs.open sql,conn,1,3
	if not rs.EOF then
		Response.Write ("<script>alert(' 错误!\n\n你已经收藏了此歌曲了!');javascript:top.window.close();</script>")
		Response.end
	else
		set rs2=server.createobject("adodb.recordset")
		sql2="select MusicName,Singer,SClassid,NClassid from [MusicList] where id="&Musicid
		rs2.open sql2,conn,1,1
		if rs2.EOF then
			Response.Write ("<script>alert(' 错误!\n\n请正确选择歌曲!');javascript:top.window.close();</script>")
			Response.end
		else
			MusicName=rs2("MusicName")
			Singer=rs2("Singer")
			SClassid=rs2("SClassid")
			NClassid=rs2("NClassid")
		end if
		rs2.close
		set rs2=nothing
		rs.AddNew
		rs("UserName")=session("UserName")
		rs("Musicid")=Musicid
		rs("MusicName")=MusicName
		rs("Singer")=Singer
		rs("SClassid")=SClassid
		rs("NClassid")=NClassid
		rs.Update
	end if
	rs.Close
End Sub

'删除歌曲
Sub SaveListDel
	Dim Musicid
	Musicid=request.QueryString("id")
	conn.execute("delete FROM [Box] where UserName='"&session("UserName")&"' and id="&Musicid)
End Sub

'保存列表
Sub SaveList
	Dim Wma,MusicNum,listid,MusicArray
	
	Wma=replace(request.form("checked")," ","")
	
	if Wma="" then
		response.write"<SCRIPT language=JavaScript>alert('保存排序错误!\n\n请选择要排序的歌曲!');</SCRIPT>"
		Exit Sub
	end if

	Wma=replace(request.form("checked")," ","")
	MusicArray=Split(Wma, ",")
	MusicNum = UBound(MusicArray)
	
	For i=0 to MusicNum
		listid=request("list"&MusicArray(i))
		If listid="" or not isnumeric(listid) Then
			listid=0
		End If
		set rs=server.createobject("adodb.recordset")
		sql="select listid from [Box] where UserName='"&session("UserName")&"' and Musicid="&MusicArray(i)
		rs.open sql,conn,1,3
			rs(0)=Cint(request("list"&MusicArray(i)))
		rs.Update
		rs.close
	Next
End Sub

Sub playermusic
	Dim Wma
	Wma=replace(request("checked")," ","")
	if Wma="" then
		response.write"<SCRIPT language=JavaScript>alert('连续播放错误!\n\n请选择要播放的歌曲!');</SCRIPT>"
		Exit Sub
	Else
		response.write"<SCRIPT language=JavaScript>plays('player.asp?id="&Wma&"');</SCRIPT>"
	end if
End Sub

	Dim BoxNum_Max_rs,BoxNum_Max
	Set BoxNum_Max_rs=conn.execute("select boxnum from [user] where UserName='"&session("UserName")&"'")
		If not BoxNum_Max_rs.eof Then
			BoxNum_Max=BoxNum_Max_rs(0)
		Else
			BoxNum_Max=0
		End If
	BoxNum_Max_rs.close
	set BoxNum_Max_rs=nothing
	
	Dim MusicBox_rs,MusicBox_bgcolor,MusicBox_count
	MusicBox_count=0
	Set MusicBox_rs = Server.CreateObject("ADODB.Recordset")
	sql = "select Musicid,MusicName,Singer,ID,listid,NClassID from [Box] where UserName='"&session("UserName")&"' ORDER BY listid"
	MusicBox_rs.open sql, conn, 1, 3
	If not (MusicBox_rs.eof) Then
		MusicBox_count=MusicBox_rs.recordcount
	End If
%>
<head>
<style>body,td{font-size:12px}</style>
<script language=javascript>
function listbox_onclick(e) {
	if (e.checked == true)
	{
		eval('form.list'+e.value+'.disabled = false;');
		eval('form.list'+e.value+'.title="输入要排列的顺序，然后保存";');
	}
	else
	{
		e.checked = false
		eval('form.list'+e.value+'.disabled = true;');
		eval('form.list'+e.value+'.title="请先选中你要修改的歌曲，然后才能修改歌曲中的顺序";');
	}
}
function CheckOthers1(form)
{
	for (var i=0;i<form.elements.length;i++)
	{
		var e = form.elements[i];
			if (e.checked==false)
			{
				e.checked = true;
			}
			else
			{
				e.checked = false;
			}
			if ((e.name!='checked')&&(e.name!='chkall')&&(e.name!='chkOthers')&&(e.name!='player')&&(e.name!='savelist')&&(e.disabled == true)){
				e.disabled = false;
				e.title="输入要排列的顺序，然后保存";
				//alert("允许修改"+ e.value);
			}
			else if ((e.name!='checked')&&(e.name!='chkall')&&(e.name!='chkOthers')&&(e.name!='player')&&(e.name!='savelist')){
				e.disabled = true;
				e.title="请先选中你要修改的歌曲，然后才能修改歌曲中的顺序";
				//alert("禁止修改"+ e.value);
			}
	}
}

function CheckAll1(form)
{
	for (var i=0;i<form.elements.length;i++)
	{
		var e = form.elements[i];
			e.checked = true;
			if ((e.name!='checked')&&(e.name!='chkall')&&(e.name!='chkOthers')&&(e.name!='player')&&(e.name!='savelist')){
				e.disabled = false;
				e.title="输入要排列的顺序，然后保存";