<%
Dim Action,ID
Dim arr1,arr2
Dim CmsDjMusic,CmsDjClass,CmsDjServer
Set CmsDjMusic = New CmsDj_Com_Dj
Set CmsDjClass = New CmsDj_Com_DjClass
Set CmsDjServer = New CmsDj_Com_Server
Dim CmsDjUser:Set CmsDjUser = New CmsDj_Com_User
Dim CmsDjSpecial:Set CmsDjSpecial = New CmsDj_Com_Special
action=Request.QueryString("action")
ID=request.QueryString("ID")
Select Case Lcase(action)
Case "edit":Call Edit()
Case Else : Call Main()
End Select
Call Admin_FooterB
%>
<%Sub Main()%>
<%
End Sub
Sub Edit()
CmsDj_Com_CD_ID = SafeRequest("CD_ID","post")
CmsDj_Com_CD_ClassID = SafeRequest("CD_ClassID","post")
CmsDj_Com_BatchType = SafeRequest("BatchType","post")
CmsDj_Com_Hits = SafeRequest("CD_Hits","post")
CmsDj_Com_UserS = SafeRequest("CD_User","post")
CmsDj_Com_Singer = SafeRequest("CD_Singer","post")
CmsDj_Com_Color = SafeRequest("CD_Color","post")
CmsDj_Com_Grade = SafeRequest("CD_Grade","post")
CmsDj_Com_Points = SafeRequest("CD_Points","post")
CmsDj_Com_DjServer = SafeRequest("CD_Server","post")
CmsDj_Com_Isbest = SafeRequest("CD_Isbest","post")
CmsDj_Com_Skin = SafeRequest("CD_Skin","post")
CmsDj_Com_Passed = SafeRequest("CD_Passed","post")
CmsDj_Com_Class = SafeRequest("CD_Class","post")
CmsDj_Com_SpecialID = SafeRequest("CD_Special","post")
CmsDj_Com_Deleted = SafeRequest("CD_Deleted","post")
CmsDj_Com_ModifyHits = SafeRequest("ModifyHits","post")
CmsDj_Com_ModifyUser = SafeRequest("ModifyUser","post")
CmsDj_Com_ModifySinger = SafeRequest("ModifySinger","post")
CmsDj_Com_ModifyColor = SafeRequest("ModifyColor","post")
CmsDj_Com_ModifyGrade = SafeRequest("ModifyGrade","post")
CmsDj_Com_ModifyPoints = SafeRequest("ModifyPoints","post")
CmsDj_Com_ModifyServer = SafeRequest("ModifyServer","post")
CmsDj_Com_ModifyIsbest = SafeRequest("ModifyIsbest","post")
CmsDj_Com_ModifySkin = SafeRequest("ModifySkin","post")
CmsDj_Com_ModifyPassed = SafeRequest("ModifyPassed","post")
CmsDj_Com_ModifyClass = SafeRequest("ModifyClass","post")
CmsDj_Com_ModifySpecial = SafeRequest("ModifySpecial","post")
CmsDj_Com_ModifyDeleted = SafeRequest("ModifyDeleted","post")
If CmsDj_Com_BatchType="1" Then
If CmsDj_Com_CD_ID="" Then Call AdminAlert("出错了，指定舞曲ID不能为空！","",1):Response.End
CmsDj_Com_AAA=Split(","&CmsDj_Com_CD_ID,",")
CmsDj_Com_Num=Ubound(CmsDj_Com_AAA)
For i=1 to CmsDj_Com_Num
'更新试听次数
If CmsDj_Com_ModifyHits="Yes" Then
If CmsDj_Com_Hits="" Then Call AdminAlert("出错了，试听次数不能为空！","",1):Response.End
Arr1=Array("CD_Hits")
Arr2=Array(CmsDj_Com_Hits)
Call CmsDjMusic.update(Arr1,Arr2,"CD_ID="&CmsDj_Com_AAA(i))
End If
'更新添加会员
If CmsDj_Com_ModifyUser="Yes" Then
Set UserRs=CmsDjUser.GetRs("UserName",0,"UserName='"&CmsDj_Com_UserS&"'")
If UserRs.Eof Or UserRs.Bof Then
Call AdminAlert("出错了，添加会员 "&CmsDj_Com_UserS&" 不存在！","",1)
Response.End
End IF
Arr1=Array("CD_User")
Arr2=Array(CmsDj_Com_UserS)
Call CmsDjMusic.update(Arr1,Arr2,"CD_ID="&CmsDj_Com_AAA(i))
End If
'更新所属歌手
If CmsDj_Com_ModifySinger="Yes" Then
If CmsDj_Com_Singer="" Then Call AdminAlert("出错了，所属歌手不能为空！","",1):Response.End
Arr1=Array("CD_Singer")
Arr2=Array(CmsDj_Com_Singer)
Call CmsDjMusic.update(Arr1,Arr2,"CD_ID="&CmsDj_Com_AAA(i))
End If
'更新标题颜色
If CmsDj_Com_ModifyColor="Yes" Then
Arr1=Array("CD_Color")
Arr2=Array(CmsDj_Com_Color)
Call CmsDjMusic.update(Arr1,Arr2,"CD_ID="&CmsDj_Com_AAA(i))
End If
'更新下载等级
If CmsDj_Com_ModifyGrade="Yes" Then
Arr1=Array("CD_Grade")
Arr2=Array(CmsDj_Com_Grade)
Call CmsDjMusic.update(Arr1,Arr2,"CD_ID="&CmsDj_Com_AAA(i))
End If
'更新下载扣除点数
If CmsDj_Com_ModifyPoints="Yes" Then
If CmsDj_Com_Points="" Then Call AdminAlert("出错了，下载扣除点数不能为空！","",1):Response.End
Arr1=Array("CD_Points")
Arr2=Array(CmsDj_Com_Points)
Call CmsDjMusic.update(Arr1,Arr2,"CD_ID="&CmsDj_Com_AAA(i))
End If
'更新服务器
If CmsDj_Com_ModifyServer="Yes" Then
Arr1=Array("CD_Server")
Arr2=Array(CmsDj_Com_DjServer)
Call CmsDjMusic.update(Arr1,Arr2,"CD_ID="&CmsDj_Com_AAA(i))
End If
'更新舞曲推荐
If CmsDj_Com_ModifyIsbest="Yes" Then
Arr1=Array("CD_Isbest")
Arr2=Array(CmsDj_Com_Isbest)
Call CmsDjMusic.update(Arr1,Arr2,"CD_ID="&CmsDj_Com_AAA(i))
End If
'更新风格模板
If CmsDj_Com_ModifySkin="Yes" Then
If CmsDj_Com_Skin="" Then Call AdminAlert("出错了，播放页风格模板不能为空！","",1):Response.End
Arr1=Array("CD_Skin")
Arr2=Array(CmsDj_Com_Skin)
Call CmsDjMusic.update(Arr1,Arr2,"CD_ID="&CmsDj_Com_AAA(i))
End If
'更新舞曲审核
If CmsDj_Com_ModifyPassed="Yes" Then
Arr1=Array("CD_Passed")
Arr2=Array(CmsDj_Com_Passed)
Call CmsDjMusic.update(Arr1,Arr2,"CD_ID="&CmsDj_Com_AAA(i))
End If
'移动到分类
If CmsDj_Com_ModifyClass="Yes" Then
Arr1=Array("CD_ClassID")
Arr2=Array(CmsDj_Com_Class)
Call CmsDjMusic.update(Arr1,Arr2,"CD_ID="&CmsDj_Com_AAA(i))
End If
'移动到专辑
If CmsDj_Com_ModifySpecial="Yes" Then
Arr1=Array("CD_SpecialID")
Arr2=Array(CmsDj_Com_SpecialID)
Call CmsDjMusic.update(Arr1,Arr2,"CD_ID="&CmsDj_Com_AAA(i))
End If
'删除舞曲
If CmsDj_Com_ModifyDeleted="Yes" Then
If CmsDj_Com_Deleted="0" Then
Arr1=Array("CD_Deleted")
Arr2=Array(1)
Call CmsDjMusic.update(Arr1,Arr2,"CD_ID="&CmsDj_Com_AAA(i))
ElseIf CmsDj_Com_Deleted="1" Then
Arr1=Array("CD_Deleted")
Arr2=Array(0)
Call CmsDjMusic.update(Arr1,Arr2,"CD_ID="&CmsDj_Com_AAA(i))
ElseIf CmsDj_Com_Deleted="2" Then
Call CmsDjMusic.del("CD_ID="&CmsDj_Com_AAA(i))
Conn.DB "delete from CmsDj_View where channel=0 and cid="&CmsDj_Com_AAA(i),"exe"
Conn.DB "delete from CmsDj_Feed where FeedA=4 and FeedB="&CmsDj_Com_AAA(i),"exe"
Conn.DB "delete from CmsDj_Feed where FeedA=8 and FeedB="&CmsDj_Com_AAA(i),"exe"
Conn.DB "delete from CmsDj_Feed where FeedA=13 and FeedB="&CmsDj_Com_AAA(i),"exe"
End If
End If
Next
ElseIf CmsDj_Com_BatchType="2" Then
If CmsDj_Com_CD_ClassID="" Then Call AdminAlert("出错了，请选择栏目！","",1):Response.End
'更新试听次数
If CmsDj_Com_ModifyHits="Yes" Then
If CmsDj_Com_Hits="" Then Call AdminAlert("出错了，试听次数不能为空！","",1):Response.End
Conn.DB "update CmsDj_Dj SET CD_Hits='"&CmsDj_Com_Hits&"' where CD_ClassID in("&CmsDj_Com_CD_ClassID&")","exe"
End If
'更新添加会员
If CmsDj_Com_ModifyUser="Yes" Then
Set UserRs=CmsDjUser.GetRs("UserName",0,"UserName='"&CmsDj_Com_UserS&"'")
If UserRs.Eof Or UserRs.Bof Then
Call AdminAlert("出错了，添加会员 "&CmsDj_Com_UserS&" 不存在！","",1)
Response.End
End IF
Conn.DB "update CmsDj_Dj SET CD_User='"&CmsDj_Com_UserS&"' where CD_ClassID in("&CmsDj_Com_CD_ClassID&")","exe"
End If
'更新所属歌手
If CmsDj_Com_ModifySinger="Yes" Then
If CmsDj_Com_Singer="" Then Call AdminAlert("出错了，所属歌手不能为空！","",1):Response.End
Conn.DB "update CmsDj_Dj SET CD_Singer='"&CmsDj_Com_Singer&"' where CD_ClassID in("&CmsDj_Com_CD_ClassID&")","exe"
End If
'更新标题颜色
If CmsDj_Com_ModifyColor="Yes" Then
Conn.DB "update CmsDj_Dj SET CD_Color='"&CmsDj_Com_Color&"' where CD_ClassID in("&CmsDj_Com_CD_ClassID&")","exe"
End If
'更新下载等级
If CmsDj_Com_ModifyGrade="Yes" Then
Conn.DB "update CmsDj_Dj SET CD_Grade='"&CmsDj_Com_Grade&"' where CD_ClassID in("&CmsDj_Com_CD_ClassID&")","exe"
End If
'更新下载扣除点数
If CmsDj_Com_ModifyPoints="Yes" Then
If CmsDj_Com_Points="" Then Call AdminAlert("出错了，下载扣除点数不能为空！","",1):Response.End
Conn.DB "update CmsDj_Dj SET CD_Points='"&CmsDj_Com_Points&"' where CD_ClassID in("&CmsDj_Com_CD_ClassID&")","exe"
End If
'更新服务器
If CmsDj_Com_ModifyServer="Yes" Then
Conn.DB "update CmsDj_Dj SET CD_Server='"&CmsDj_Com_DjServer&"' where CD_ClassID in("&CmsDj_Com_CD_ClassID&")","exe"
End If
'更新舞曲推荐
If CmsDj_Com_ModifyIsbest="Yes" Then
Conn.DB "update CmsDj_Dj SET CD_Isbest='"&CmsDj_Com_Isbest&"' where CD_ClassID in("&CmsDj_Com_CD_ClassID&")","exe"
End If
'更新风格模板
If CmsDj_Com_ModifySkin="Yes" Then
If CmsDj_Com_Skin="" Then Call AdminAlert("出错了，播放页风格模板不能为空！","",1):Response.End
Conn.DB "update CmsDj_Dj SET CD_Skin='"&CmsDj_Com_Skin&"' where CD_ClassID in("&CmsDj_Com_CD_ClassID&")","exe"
End If
'更新舞曲审核
If CmsDj_Com_ModifyPassed="Yes" Then
Conn.DB "update CmsDj_Dj SET CD_Passed='"&CmsDj_Com_Passed&"' where CD_ClassID in("&CmsDj_Com_CD_ClassID&")","exe"
End If
'移动到分类
If CmsDj_Com_ModifyClass="Yes" Then
Conn.DB "update CmsDj_Dj SET CD_ClassID='"&CmsDj_Com_Class&"' where CD_ClassID in("&CmsDj_Com_CD_ClassID&")","exe"
End If
'移动到专辑
If CmsDj_Com_ModifySpecial="Yes" Then
Conn.DB "update CmsDj_Dj SET CD_SpecialID='"&CmsDj_Com_SpecialID&"' where CD_ClassID in("&CmsDj_Com_CD_ClassID&")","exe"
End If
'删除舞曲
If CmsDj_Com_ModifyDeleted="Yes" Then
If CmsDj_Com_Deleted="0" Then
Conn.DB "update CmsDj_Dj SET CD_Deleted='1' where CD_ClassID in("&CmsDj_Com_CD_ClassID&")","exe"
ElseIf CmsDj_Com_Deleted="1" Then
Conn.DB "update CmsDj_Dj SET CD_Deleted='0' where CD_ClassID in("&CmsDj_Com_CD_ClassID&")","exe"
ElseIf CmsDj_Com_Deleted="2" Then
Call CmsDjMusic.del("CD_ClassID in("&CmsDj_Com_CD_ClassID&")")
End If
End If
End If
Call AdminAlert("恭喜您，批量设置数据成功！","Admin_Dj.asp",0)
Response.End
End Sub
%>