<%
Dim Action,CD_ClassID,page
Dim CD_ID,CD_Name
Dim arr1,arr2
Dim key,HttpUrl
Dim CmsDjClass:Set CmsDjClass = New CmsDj_Com_DjClass
Dim CmsDjSpecial:Set CmsDjSpecial = New CmsDj_Com_Special
Dim CmsDjUser:Set CmsDjUser = New CmsDj_Com_User
action = SafeRequest("action","get")
CD_ClassID = SafeRequest("CD_ClassID","get")
page=int(request.QueryString ("page"))
key = SafeRequest("key","get")
Select Case Lcase(action)
Case "批量删除" : Call DelAll()
Case "add":Call Add()
Case "edit":Call Edit()
Case "saveadd" : Call SaveAdd()
Case "saveedit": Call SaveEdit()
Case "del" : Call Del()
Case "editisbest" : Call EditIsBest()
Case Else : Call Main()
End Select
Call Admin_FooterB
%>
<%
Sub EditBoard(ActionUrl,ActionName,emValues)
IF IsArray(emValues) Then
CD_ClassID = emValues(0)
CD_Name = emValues(1)
CD_User = emValues(2)
CD_Pic = emValues(3)
CD_GongSi = emValues(4)
CD_YuYan = emValues(5)
CD_Intro = emValues(6)
CD_IsBest = emValues(7)
CD_Time = emValues(8)
End IF
IF CD_Pic="" Then CD_Pic="upload/special/nopic.gif"
%>
<%
End Sub
Sub Main()
%>
<%
End Sub
Sub EditIsBest()
Dim Arr1,Arr2
Dim CD_ID:CD_ID=SafeRequest("CD_ID","get")
Dim CD_IsBest:CD_IsBest=SafeRequest("CD_IsBest","get")
IF Not IsNum(CD_ID) Then Call AdminAlert("出错了，参数传输错误",Request.ServerVariables("HTTP_REFERER"),0):Response.End
IF Not IsNum(CD_IsBest) Then CD_IsBest=1
Arr1=Array("CD_IsBest")
Arr2=Array(CD_IsBest)
Call CmsDjSpecial.Update(Arr1,Arr2,"CD_ID="&CD_ID)
Response.redirect Request.ServerVariables("HTTP_REFERER")
End Sub
Sub Add()
Call EditBoard("?action=SaveAdd","添加","")
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_ClassID = SafeRequest("CD_ClassID","post")
CD_Name = SafeRequest("CD_Name","post")
CD_User = SafeRequest("CD_User","post")
CD_Pic = SafeRequest("CD_Pic","post")
CD_GongSi = SafeRequest("CD_GongSi","post")
CD_YuYan = SafeRequest("CD_YuYan","post")
CD_Intro = SafeRequest("CD_Intro","post")
CD_IsBest = SafeRequest("CD_IsBest","post")
CD_HttpUrl = SafeRequest("CD_HttpUrl","post")
CD_EditTime = SafeRequest("CD_EditTime","post")
CD_Time = SafeRequest("CD_Time","post")
If CD_EditTime="" Then CD_EditTime=0
If CD_EditTime=1 Then
CD_AddTime=Now()
Else
CD_AddTime=CD_Time
End If
If CD_IsBest="" Then CD_IsBest=0
If CD_IsBest=1 Then
CD_IsBest=1
Else
CD_IsBest=0
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
Arr1=Array("CD_ClassID","CD_Name","CD_User","CD_Pic","CD_GongSi","CD_YuYan","CD_Intro","CD_Hits","CD_IsBest","CD_AddTime")
Arr2=Array(CD_ClassID,CD_Name,CD_User,CD_Pic,CD_GongSi,CD_YuYan,CD_Intro,0,CD_IsBest,CD_AddTime)
Call CmsDjSpecial.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 = CmsDjSpecial.GetRs("",0,"CD_ID="&CD_ID)
CD_ID = Rs("CD_ID")
CD_ClassID = Rs("CD_ClassID")
CD_Name = Rs("CD_Name")
CD_User = Rs("CD_User")
CD_Pic = Rs("CD_Pic")
CD_GongSi = Rs("CD_GongSi")
CD_YuYan = Rs("CD_YuYan")
CD_Intro = Rs("CD_Intro")
CD_IsBest = Rs("CD_IsBest")
CD_AddTime = Rs("CD_AddTime")
Arr1=Array(CD_ClassID,CD_Name,CD_User,CD_Pic,CD_GongSi,CD_YuYan,CD_Intro,CD_IsBest,CD_AddTime)
Call EditBoard("?action=SaveEdit&CD_ID="&CD_ID,"编辑",Arr1)
End Sub
Sub SaveAdd()
CD_ClassID = SafeRequest("CD_ClassID","post")
CD_Name = SafeRequest("CD_Name","post")
CD_User = SafeRequest("CD_User","post")
CD_Pic = SafeRequest("CD_Pic","post")
CD_GongSi = SafeRequest("CD_GongSi","post")
CD_YuYan = SafeRequest("CD_YuYan","post")
CD_Intro = SafeRequest("CD_Intro","post")
CD_IsBest = SafeRequest("CD_IsBest","post")
If CD_IsBest="" Then CD_IsBest=0
If CD_IsBest=1 Then
CD_IsBest=1
Else
CD_IsBest=0
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
Arr1=Array("CD_ClassID","CD_Name","CD_User","CD_Pic","CD_GongSi","CD_YuYan","CD_Intro","CD_Hits","CD_IsBest","CD_Passed","CD_AddTime")
Arr2=Array(CD_ClassID,CD_Name,CD_User,CD_Pic,CD_GongSi,CD_YuYan,CD_Intro,0,CD_IsBest,0,Now())
Call CmsDjSpecial.add(Arr1,Arr2)
Call AdminAlert("恭喜您，添加专辑成功！","Admin_Special.asp",0)
Response.End
End Sub
Sub DelAll()
CD_ID = SafeRequest("CD_ID","get")
IF CD_ID="" Then
Call AdminAlert("出错了，参数传输错误！",Request.ServerVariables("HTTP_REFERER"),0)
Response.End
End IF
CD_ID = Split(CD_ID,", ")
For Each ID In CD_ID
Call CmsDjSpecial.del("CD_ID="&ID)
Next
Call AdminAlert("恭喜您，批量删除专辑成功！",Request.ServerVariables("HTTP_REFERER"),0)
Response.End
End Sub
Sub Del()
CD_ID = SafeRequest("CD_ID","get")
IF CD_ID="" Then
Call AdminAlert("出错了，参数传输错误！",Request.ServerVariables("HTTP_REFERER"),0)
Response.End
End IF
Call CmsDjSpecial.del("CD_ID="&CD_ID)
Call AdminAlert("恭喜您，删除专辑成功！",Request.ServerVariables("HTTP_REFERER"),0)
Response.End
End Sub
%>