<%
Dim Action,page
Dim arr1,arr2
Dim key,HttpUrl
Dim CmsDjPic:Set CmsDjPic = New CmsDj_Com_Pic
action=Request.QueryString("action")
page=int(request.QueryString ("page"))
key=Request.QueryString("key")
Select Case Lcase(action)
Case "批量删除" : Call DelAll()
Case "del" : Call Del()
Case Else : Call Main()
End Select
Call Admin_FooterB
%>
<%Sub Main()%>
<%
End Sub
Sub DelAll()
CD_ID = SafeRequest("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 CmsDjPic.del("ID="&ID)
Conn.DB "delete from CmsDj_View where channel=1 and cid="&ID,"exe"
Conn.DB "delete from CmsDj_Feed where FeedA=2 and FeedB="&ID,"exe"
Conn.DB "delete from CmsDj_Feed where FeedA=6 and FeedB="&ID,"exe"
Next
Call AdminAlert("恭喜您，批量删除相册成功！",Request.ServerVariables("HTTP_REFERER"),0)
Response.End
End Sub
Sub Del()
CD_ID = SafeRequest("ID","get")
IF CD_ID="" Then
Call AdminAlert("出错了，参数传输错误！",Request.ServerVariables("HTTP_REFERER"),0)
Response.End
End IF
Call CmsDjPic.del("ID="&CD_ID)
Conn.DB "delete from CmsDj_View where channel=1 and cid="&CD_ID,"exe"
Conn.DB "delete from CmsDj_Feed where FeedA=2 and FeedB="&CD_ID,"exe"
Conn.DB "delete from CmsDj_Feed where FeedA=6 and FeedB="&CD_ID,"exe"
Call AdminAlert("恭喜您，删除相册成功！",Request.ServerVariables("HTTP_REFERER"),0)
Response.End
End Sub
%>