<%
Dim Action,CD_ClassID,page
Dim CD_ID,CD_Name
Dim arr1,arr2
Dim key,HttpUrl
Dim CmsDjMusic:Set CmsDjMusic = New CmsDj_Com_Dj
Dim CmsDjClass:Set CmsDjClass = New CmsDj_Com_DjClass
Dim CmsDjMold:Set CmsDjMold= New CmsDj_Com_Mold
Dim CmsDjServer:Set CmsDjServer = New CmsDj_Com_Server
Dim CmsDjUser:Set CmsDjUser = New CmsDj_Com_User
Dim fso_v:Set fso_v = New CmsDj_Com_Fso
action=Request.QueryString("action")
CD_ClassID=request.QueryString("CD_ClassID")
CD_SpecialID=request.QueryString("CD_SpecialID")
page=int(request.QueryString ("page"))
key=request.QueryString("key")
Select Case Lcase(action)
Case "addlist":Call AddList()
Case "addlistsave":Call AddListSave()
Case "add":Call Add()
Case "edit":Call Edit()
Case "saveadd" : Call SaveAdd()
Case "saveedit": Call SaveEdit()
Case "dela" : Call DelA()
Case "delb" : Call DelB()
Case "delc" : Call DelC()
Case "alldel" : Call AllDel()
Case "editpassed" : Call EditPassed()
Case Else : Call Main()
End Select
Call Admin_FooterB
%>
<%Sub AddList()%>
<%
End Sub
Sub EditBoard(ActionUrl,ActionName,emValues)
IF IsArray(emValues) Then
CD_Name = emValues(0)
CD_Color = emValues(1)
CD_ClassID = emValues(2)
CD_Singer = emValues(3)
CD_Pic = emValues(4)
CD_Hits = emValues(5)
CD_DayHits = emValues(6)
CD_WeekHits = emValues(7)
CD_MonthHits = emValues(8)
CD_uHits = emValues(9)
CD_dHits = emValues(10)
CD_DownHits = emValues(11)
CD_FavHits = emValues(12)
CD_Server = emValues(13)
CD_SpecialID = emValues(14)
CD_IsBest = emValues(15)
CD_Url = emValues(16)
CD_DownUrl = emValues(17)
CD_Grade = emValues(18)
CD_Points = emValues(19)
CD_User = emValues(20)
CD_Word = emValues(21)
CD_Lrc = emValues(22)
CD_Time = emValues(23)
CD_Skin = emValues(24)
End IF
IF Not IsNum(CD_Points) Then CD_Points=0
IF Request.QueryString("ClassID")<>"" Then
CmsDj_CD_ClassID=Request.QueryString("ClassID")
Else
CmsDj_CD_ClassID=CD_ClassID
End IF
IF CmsDj_CD_ClassID="" Then CmsDj_CD_ClassID=0
IF CD_Skin="" Then CD_Skin="Play.Html"
%>
<%
End Sub
Sub Main()
%>
<%
End Sub
Sub Add()
Call EditBoard("?action=SaveAdd","添加","")
End Sub
Sub AllDel()
Call CmsDjMusic.del("CD_Deleted=1")
Call AdminAlert("恭喜您，清空回收站成功！","Admin_Dj.asp?action=deleted",0)
Response.End
End Sub
Sub AddListSave()
upcount = SafeRequest("upcount","post")
CD_Server = SafeRequest("CD_Server","post")
CD_IsBest = SafeRequest("CD_IsBest","post")
CD_ClassID = SafeRequest("CD_ClassID","post")
CD_IsBest = SafeRequest("CD_IsBest","post")
CD_DjUrl = Request("CD_DjUrl")
CD_Skin = SafeRequest("CD_Skin","post")
CD_User = SafeRequest("CD_User","post")
If InStrRev(CD_Url,"/")<>len(CD_Url) Then
CD_Url=CD_Url&"/"
End If
Num=upcount
For i=1 to Num
CD_Name = Request("CD_Name"&i)
CD_Url = Request("CD_Url"&i)
CD_DownUrl = Request("CD_Down"&i)
Set HtmlRs=CmsDjMold.GetRs("",0,"CD_TheOrder=1")
CD_TemplateUrl=HtmlRs("CD_TempPath")
IF Not fso_v.CheckFile(InstallDir&CD_TemplateUrl&CD_Skin) Then
Call AdminAlert("未找到 "&CD_Skin&" 模板文件！\n \n请使用系统默认的 Play.Html 模板","",1)
Response.End
End IF
If CD_Name="" or isnull(CD_Name) or CD_Url="" or isnull(CD_Url) Then
Num=i-1
exit for
End If
Arr1=Array("CD_ClassID","CD_SpecialID","CD_Name","CD_Singer","CD_User","CD_Pic","CD_Url","CD_DownUrl","CD_Word","CD_Lrc","CD_Hits","CD_DownHits","CD_FavHits","CD_uHits","CD_dHits","CD_DayHits","CD_WeekHits","CD_MonthHits","CD_AddTime","CD_Server","CD_Deleted","CD_IsBest","CD_Error","CD_Passed","CD_Points","CD_Grade","CD_Color","CD_Skin")
Arr2=Array(CD_ClassID,0,CD_Name,CD_User,CD_User,"http://",CD_DjUrl&CD_Url,CD_DjUrl&CD_DownUrl,"","",0,0,0,0,0,0,0,0,Now(),CD_Server,0,CD_IsBest,0,0,0,1,"",CD_Skin)
Call CmsDjMusic.add(Arr1,Arr2)
Next
Call AdminAlert("恭喜您，共添加 "&Num&" 首舞曲！","Admin_Dj.asp",0)
Response.End
End Sub
Sub SaveEdit()
CD_ID = SafeRequest("CD_ID","auto")
IF Not IsNum(CD_ID) Then Call AdminAlert("出错了，参数传输错误！",Request.ServerVariables("HTTP_REFERER"),0):Response.End
CD_Name = Request("CD_Name")
CD_Color = SafeRequest("CD_Color","post")
CD_ClassID = SafeRequest("CD_ClassID","post")
CD_Singer = SafeRequest("CD_Singer","post")
CD_Pic = SafeRequest("CD_Pic","post")
CD_Hits = SafeRequest("CD_Hits","post")
CD_DayHits = SafeRequest("CD_DayHits","post")
CD_WeekHits = SafeRequest("CD_WeekHits","post")
CD_MonthHits = SafeRequest("CD_MonthHits","post")
CD_uHits = SafeRequest("CD_uHits","post")
CD_dHits = SafeRequest("CD_dHits","post")
CD_DownHits = SafeRequest("CD_DownHits","post")
CD_FavHits = SafeRequest("CD_FavHits","post")
CD_Server = SafeRequest("CD_Server","post")
CD_SpecialID = SafeRequest("CD_SpecialID","post")
CD_IsBest = SafeRequest("CD_IsBest","post")
CD_Url = Request("CD_Url")
CD_DownUrl = Request("CD_DownUrl")
CD_Word = SafeRequest("CD_Word","post")
CD_Lrc = SafeRequest("CD_Lrc","post")
CD_EditTime = SafeRequest("EditTime","post")
CD_HttpUrl = SafeRequest("CD_HttpUrl","post")
CD_Time = SafeRequest("CD_Time","post")
CD_Grade = SafeRequest("CD_Grade","post")
CD_Points = SafeRequest("CD_Points","post")
CD_User = SafeRequest("CD_User","post")
CD_Skin = SafeRequest("CD_Skin","post")
If request("EditTime")<=0 or request("EditTime")="" Then CD_EditTime=0
If CD_EditTime=1 Then
CD_AddTime=Now()
Else
CD_AddTime=CD_Time
End If
If CD_Pic<>"" Then
CD_Pic=CD_Pic
Else
CD_Pic="http://"
End If
CD_Error=0
Set UserRs=CmsDjUser.GetRs("UserName",0,"UserName='"&CD_User&"'")
If UserRs.Eof Or UserRs.Bof Then
Call AdminAlert("添加会员 "&CD_User&" 不存在！","",1)
Response.End
End IF
Set HtmlRs=CmsDjMold.GetRs("",0,"CD_TheOrder=1")
CD_TemplateUrl=HtmlRs("CD_TempPath")
IF Not fso_v.CheckFile(InstallDir&CD_TemplateUrl&CD_Skin) Then
Call AdminAlert("未找到 "&CD_Skin&" 模板文件！\n \n请使用系统默认的 Play.Html 模板","",1)
Response.End
End IF
Arr1=Array("CD_ClassID","CD_SpecialID","CD_Name","CD_Singer","CD_User","CD_Pic","CD_Url","CD_DownUrl","CD_Word","CD_Lrc","CD_Hits","CD_DownHits","CD_FavHits","CD_uHits","CD_dHits","CD_DayHits","CD_WeekHits","CD_MonthHits","CD_AddTime","CD_Server","CD_Deleted","CD_IsBest","CD_Error","CD_Passed","CD_Points","CD_Grade","CD_Color","CD_Skin")
Arr2=Array(CD_ClassID,CD_SpecialID,CD_Name,CD_Singer,CD_User,CD_Pic,CD_Url,CD_DownUrl,CD_Word,CD_Lrc,CD_Hits,CD_DownHits,CD_FavHits,CD_uHits,CD_dHits,CD_DayHits,CD_WeekHits,CD_MonthHits,CD_AddTime,CD_Server,0,CD_IsBest,0,0,CD_Points,CD_Grade,CD_Color,CD_Skin)
Call CmsDjMusic.update(Arr1,Arr2,"CD_ID="&CD_ID)
Call AdminAlert("恭喜您，编辑舞曲成功！",CD_HttpUrl,0)
Response.End
End Sub
Sub Edit()
CD_ID = SafeRequest("CD_ID","get")
IF Not IsNum(CD_ID) Then Call AdminAlert("出错了，参数传输错误！",Request.ServerVariables("HTTP_REFERER"),0):Response.End
Set Rs = CmsDjMusic.GetRs("",0,"CD_ID="&CD_ID)
CD_ID = Rs("CD_ID")
CD_Name = Rs("CD_Name")
CD_Color = Rs("CD_Color")
CD_ClassID = Rs("CD_ClassID")
CD_Singer = Rs("CD_Singer")
CD_Pic = Rs("CD_Pic")
CD_Hits = Rs("CD_Hits")
CD_DayHits = Rs("CD_DayHits")
CD_WeekHits = Rs("CD_WeekHits")
CD_MonthHits = Rs("CD_MonthHits")
CD_uHits = Rs("CD_uHits")
CD_dHits = Rs("CD_dHits")
CD_DownHits = Rs("CD_DownHits")
CD_FavHits = Rs("CD_FavHits")
CD_Server = Rs("CD_Server")
CD_SpecialID = Rs("CD_SpecialID")
CD_IsBest = Rs("CD_IsBest")
CD_Url = Rs("CD_Url")
CD_DownUrl = Rs("CD_DownUrl")
CD_Grade = Rs("CD_Grade")
CD_Points = Rs("CD_Points")
CD_User = Rs("CD_User")
CD_Word = Rs("CD_Word")
CD_Lrc = Rs("CD_Lrc")
CD_AddTime = Rs("CD_AddTime")
CD_Skin = Rs("CD_Skin")
Arr1=Array(CD_Name,CD_Color,CD_ClassID,CD_Singer,CD_Pic,CD_Hits,CD_DayHits,CD_WeekHits,CD_MonthHits,CD_uHits,CD_dHits,CD_DownHits,CD_FavHits,CD_Server,CD_SpecialID,CD_IsBest,CD_Url,CD_DownUrl,CD_Grade,CD_Points,CD_User,CD_Word,CD_Lrc,CD_AddTime,CD_Skin)
Call EditBoard("?action=SaveEdit&CD_ID="&CD_ID,"编辑",Arr1)
End Sub
Sub SaveAdd()
CD_Name = Request("CD_Name")
CD_Color = SafeRequest("CD_Color","post")
CD_ClassID = SafeRequest("CD_ClassID","post")
CD_Singer = SafeRequest("CD_Singer","post")
CD_Pic = SafeRequest("CD_Pic","post")
CD_Hits = SafeRequest("CD_Hits","post")
CD_DayHits = SafeRequest("CD_DayHits","post")
CD_WeekHits = SafeRequest("CD_WeekHits","post")
CD_MonthHits = SafeRequest("CD_MonthHits","post")
CD_uHits = SafeRequest("CD_uHits","post")
CD_dHits = SafeRequest("CD_dHits","post")
CD_DownHits = SafeRequest("CD_DownHits","post")
CD_FavHits = SafeRequest("CD_FavHits","post")
CD_Server = SafeRequest("CD_Server","post")
CD_SpecialID = SafeRequest("CD_SpecialID","post")
CD_IsBest = SafeRequest("CD_IsBest","post")
CD_Url = Request("CD_Url")
CD_DownUrl = Request("CD_DownUrl")
CD_Grade = SafeRequest("CD_Grade","post")
CD_Points = SafeRequest("CD_Points","post")
CD_User = SafeRequest("CD_User","post")
CD_Word = SafeRequest("CD_Word","post")
CD_Lrc = SafeRequest("CD_Lrc","post")
CD_Skin = SafeRequest("CD_Skin","post")
CD_EditTime = SafeRequest("EditTime","post")
If CD_EditTime=1 Then
CD_AddTime=Now()
Else
CD_AddTime=""
End If
If CD_Pic<>"" Then
CD_Pic=CD_Pic
Else
CD_Pic="http://"
End If
Set UserRs=CmsDjUser.GetRs("UserName",0,"UserName='"&CD_User&"'")
If UserRs.Eof Or UserRs.Bof Then
Call AdminAlert("添加会员 "&CD_User&" 不存在！","",1)
Response.End
End IF
Set HtmlRs=CmsDjMold.GetRs("",0,"CD_TheOrder=1")
CD_TemplateUrl=HtmlRs("CD_TempPath")
IF Not fso_v.CheckFile(InstallDir&CD_TemplateUrl&CD_Skin) Then
Call AdminAlert("未找到 "&CD_Skin&" 模板文件！\n \n请使用系统默认的 Play.Html 模板","",1)
Response.End
End IF
Arr1=Array("CD_ClassID","CD_SpecialID","CD_Name","CD_Singer","CD_User","CD_Pic","CD_Url","CD_DownUrl","CD_Word","CD_Lrc","CD_Hits","CD_DownHits","CD_FavHits","CD_uHits","CD_dHits","CD_DayHits","CD_WeekHits","CD_MonthHits","CD_AddTime","CD_Server","CD_Deleted","CD_IsBest","CD_Error","CD_Passed","CD_Points","CD_Grade","CD_Color","CD_Skin")
Arr2=Array(CD_ClassID,CD_SpecialID,CD_Name,CD_Singer,CD_User,CD_Pic,CD_Url,CD_DownUrl,CD_Word,CD_Lrc,CD_Hits,CD_DownHits,CD_FavHits,CD_uHits,CD_dHits,CD_DayHits,CD_WeekHits,CD_MonthHits,CD_AddTime,CD_Server,0,CD_IsBest,0,0,CD_Points,CD_Grade,CD_Color,CD_Skin)
Call CmsDjMusic.add(Arr1,Arr2)
Call AdminAlert("恭喜您，添加舞曲成功！","Admin_Dj.asp",0)
Response.End
End Sub
Sub DelA()
Dim Arr1,Arr2
Dim CD_ID:CD_ID=SafeRequest("CD_ID","get")
IF Not IsNum(CD_ID) Then Call AdminAlert("出错了，参数传输错误！",Request.ServerVariables("HTTP_REFERER"),0):Response.End
Arr1=Array("CD_Deleted")
Arr2=Array(1)
Call CmsDjMusic.Update(Arr1,Arr2,"CD_ID="&CD_ID&"")
Call AdminAlert("恭喜您，已将舞曲移到回收站！",Request.ServerVariables("HTTP_REFERER"),0)
Response.End
End Sub
Sub DelB()
Dim CD_ID,CmsDjMusic
CD_ID = SafeRequest("CD_ID","get")
IF CD_ID="" Then
Call AdminAlert("出错了，参数传输错误！",Request.ServerVariables("HTTP_REFERER"),0)
Response.End
End IF
Set CmsDjMusic = New CmsDj_Com_Dj
Call CmsDjMusic.del("CD_ID="&CD_ID)
Conn.DB "delete from CmsDj_View where channel=0 and cid="&CD_ID,"exe"
Conn.DB "delete from CmsDj_Feed where FeedA=4 and FeedB="&CD_ID,"exe"
Conn.DB "delete from CmsDj_Feed where FeedA=8 and FeedB="&CD_ID,"exe"
Conn.DB "delete from CmsDj_Feed where FeedA=13 and FeedB="&CD_ID,"exe"
Call AdminAlert("恭喜您，删除舞曲成功！",Request.ServerVariables("HTTP_REFERER"),0)
Response.End
End Sub
Sub DelC()
Dim Arr1,Arr2
Dim CD_ID:CD_ID=SafeRequest("CD_ID","get")
IF Not IsNum(CD_ID) Then Call AdminAlert("出错了，参数传输错误！",Request.ServerVariables("HTTP_REFERER"),0):Response.End
Arr1=Array("CD_Deleted")
Arr2=Array(0)
Call CmsDjMusic.Update(Arr1,Arr2,"CD_ID="&CD_ID&"")
Call AdminAlert("恭喜您，舞曲恢复成功！！",Request.ServerVariables("HTTP_REFERER"),0)
Response.End
End Sub
Sub EditPassed()
Dim Arr1,Arr2
Dim CD_ID:CD_ID=SafeRequest("CD_ID","get")
Dim CD_Passed:CD_Passed=SafeRequest("CD_Passed","get")
IF Not IsNum(CD_ID) Then Call AdminAlert("出错了，参数传输错误",Request.ServerVariables("HTTP_REFERER"),0):Response.End
IF Not IsNum(CD_Passed) Then CD_Passed=1
Arr1=Array("CD_Passed")
Arr2=Array(CD_Passed)
Call CmsDjMusic.Update(Arr1,Arr2,"CD_ID="&CD_ID)
IF CD_Passed=0 Then
Set Rs=CmsDjMusic.GetRs("CD_User",0,"CD_ID="&CD_ID)
Set RsUser=CmsDjUser.GetRs("Points,UserRank",0,"UserName='"&Rs("CD_User")&"'")
RsUser("Points")=RsUser("Points")+CD_PointsuEa
RsUser("UserRank")=RsUser("UserRank")+CD_PointsuEb
RsUser.Update
RsUser.close
Set RsUser=nothing
Conn.DB "insert into CMSDJ_Message (incept,sender,title,content,sendtime,flag,delR,delS) values ('"&Rs("CD_User")&"','系统消息','作品审核通知','亲爱的用户 "&Rs("CD_User")&" ，您上传的作品已经通过管理员的审核，系统给你奖励 "&CD_PointsuEa&" 点 "&CD_PointsuEb&" 经验，非常感谢你对本站的支持。','"&Now()&"',0,0,0)","exe"
Rs.close
Set Rs=nothing
End IF
Response.redirect Request.ServerVariables("HTTP_REFERER")
End Sub
%>