<%
Dim Action
Dim arr1,arr2
Dim CmsDjUser:Set CmsDjUser = New CmsDj_Com_User
Dim CmsDjWeb:Set CmsDjWeb = New CmsDj_Com_Web
Dim CmsDjPublic:Set CmsDjPublic = New CmsDj_Com_Public
Dim CmsDjArt:Set CmsDjArt = New CmsDj_Com_Art
Dim CmsDjPic:Set CmsDjPic = New CmsDj_Com_Pic
Dim CmsDjFeed:Set CmsDjFeed = New CmsDj_Com_Feed
Dim CmsDjShare:Set CmsDjShare = New CmsDj_Com_Share
Dim CmsDjView:Set CmsDjView = New CmsDj_Com_View
Dim CmsDjSession:Set CmsDjSession = New CmsDj_Com_Session
action=Request.QueryString("action")
page=int(request.QueryString ("page"))
key=request.QueryString("key")
path=request.querystring("path")
Select Case Lcase(action)
Case "批量删除" : Call DelAll()
Case "会员激活" : Call UserLock(0,"恭喜您，批量激活会员成功！")
Case "会员锁定" : Call UserLock(1,"恭喜您，批量锁定会员成功！")
Case "设为推荐" : Call UserIsbest(1,"恭喜您，批量将选定的会员设为推荐成功！")
Case "解除推荐" : Call UserIsbest(0,"恭喜您，批量将选定的会员解除推荐成功！")
Case "设为vip" : Call UserGradeA
Case "解除vip" : Call UserGradeB
Case "configsave" : Call ConfigSave()
Case "config" : Call Config()
Case "edit": Call Edit()
Case "editsave": Call EditSave()
Case "del" : Call Del()
Case "online" : Call Online()
Case Else : Call Main()
End Select
Call Admin_FooterB
%>