<% dim Result,Selectid Dim ix,tempx,selectx,len_idx Result=request.QueryString("Result") SelectID=request.Form("SelectID") select case Result case "Administrators" select case Trim(Request.Form("batch")) case "批量显示" if SelectID<>"" Then conn.execute "update LiangJingCMS_Admin set Working = 1 where id in ("&SelectID&")" response.redirect request.servervariables("http_referer") case "批量不显示" if SelectID<>"" Then conn.execute "update LiangJingCMS_Admin set Working = 0 where id in ("&SelectID&")" response.redirect request.servervariables("http_referer") case "删除所选" if SelectID<>"" then conn.execute "delete from LiangJingCMS_Admin where id in ("&SelectID&")" response.redirect request.servervariables("http_referer") End Select case "LoginLog" if SelectID<>"" then conn.execute "delete from LiangJingCMS_AdminLog where id in ("&SelectID&")" response.redirect request.servervariables("http_referer") case "MemGroup" if SelectID<>"" then conn.execute "delete from MemGroup where GroupID in ('"&SelectID&"')" conn.execute "Update About set GroupID='200603281858588888' , Exclusive='>=' where GroupID = '"&SelectID&"'" conn.execute "Update Download set GroupID='200603281858588888' , Exclusive='>=' where GroupID = '"&SelectID&"'" conn.execute "Update Members set GroupID='200603281858588888' , GroupName='临时游客' where GroupID = '"&SelectID&"'" conn.execute "Update News set GroupID='200603281858588888' , Exclusive='>=' where GroupID = '"&SelectID&"'" conn.execute "Update Price set GroupID='200603281858588888' , Exclusive='>=' where GroupID = '"&SelectID&"'" conn.execute "Update Others set GroupID='200603281858588888' , Exclusive='>=' where GroupID = '"&SelectID&"'" conn.execute "Update Products set GroupID='200603281858588888' , Exclusive='>=' where GroupID = '"&SelectID&"'" response.redirect request.servervariables("http_referer") case "Members" select case Trim(Request.Form("batch")) case "批量显示" if SelectID<>"" Then conn.execute "update Members set Working = 1 where id in ("&SelectID&")" response.redirect request.servervariables("http_referer") case "批量不显示" if SelectID<>"" Then conn.execute "update Members set Working = 0 where id in ("&SelectID&")" response.redirect request.servervariables("http_referer") case "删除所选" if SelectID<>"" Then conn.execute "delete from Members where id in ("&SelectID&")" response.redirect request.servervariables("http_referer") End Select case "About" select case Trim(Request.Form("batch")) case "批量修改排序" Abo_id=request("Abo_id") Sequence=request("Sequence") arr_id=Split(Replace(Abo_id," ",""),",") arr_Sequence=Split(Replace(Sequence," ",""),",") For i = 0 To UBound(arr_id) conn.execute("update About set Sequence='"&arr_Sequence(i)&"' where id="&arr_id(i)&"") Next response.redirect request.servervariables("http_referer") case "中文批量显示" if SelectID<>"" Then conn.execute "update About set ViewFlagCH = 1 where id in ("&SelectID&")" response.redirect request.servervariables("http_referer") case "英文批量显示" if SelectID<>"" Then conn.execute "update About set ViewFlagEN = 1 where id in ("&SelectID&")" response.redirect request.servervariables("http_referer") case "中文批量不显示" if SelectID<>"" Then conn.execute "update About set ViewFlagCH = 0 where id in ("&SelectID&")" response.redirect request.servervariables("http_referer") case "英文批量不显示" if SelectID<>"" Then conn.execute "update About set ViewFlagEN = 0 where id in ("&SelectID&")" response.redirect request.servervariables("http_referer") case "删除所选" if SelectID<>"" Then conn.execute "delete from About where id in ("&SelectID&")" If ISHTML = 1 Then ix=0 SelectID=replace(SelectID," ","") len_idx=len(SelectID) tempx=tempx&left(SelectID,1) Do While ix"" Then conn.execute "update Products set ViewFlagCH = 1 where id in ("&SelectID&")" response.redirect request.servervariables("http_referer") case "英文批量显示" if SelectID<>"" Then conn.execute "update Products set ViewFlagEN = 1 where id in ("&SelectID&")" response.redirect request.servervariables("http_referer") case "中文批量不显示" if SelectID<>"" Then conn.execute "update Products set ViewFlagCH = 0 where id in ("&SelectID&")" response.redirect request.servervariables("http_referer") case "英文批量不显示" if SelectID<>"" Then conn.execute "update Products set ViewFlagEN = 0 where id in ("&SelectID&")" response.redirect request.servervariables("http_referer") case "删除所选" if SelectID<>"" Then conn.execute "delete from Products where id in ("&SelectID&")" If ISHTML = 1 Then ix=0 SelectID=replace(SelectID," ","") len_idx=len(SelectID) tempx=tempx&left(SelectID,1) Do While ix"" Then conn.execute "update News set ViewFlagCH = 1 where id in ("&SelectID&")" response.redirect request.servervariables("http_referer") case "英文批量显示" if SelectID<>"" Then conn.execute "update News set ViewFlagEN = 1 where id in ("&SelectID&")" response.redirect request.servervariables("http_referer") case "中文批量不显示" if SelectID<>"" Then conn.execute "update News set ViewFlagCH = 0 where id in ("&SelectID&")" response.redirect request.servervariables("http_referer") case "英文批量不显示" if SelectID<>"" Then conn.execute "update News set ViewFlagEN = 0 where id in ("&SelectID&")" response.redirect request.servervariables("http_referer") case "删除所选" if SelectID<>"" Then conn.execute "delete from News where id in ("&SelectID&")" If ISHTML = 1 Then ix=0 SelectID=replace(SelectID," ","") len_idx=len(SelectID) tempx=tempx&left(SelectID,1) Do While ix"" Then conn.execute "update Price set ViewFlagCH = 1 where id in ("&SelectID&")" response.redirect request.servervariables("http_referer") case "英文批量显示" if SelectID<>"" Then conn.execute "update Price set ViewFlagEN = 1 where id in ("&SelectID&")" response.redirect request.servervariables("http_referer") case "中文批量不显示" if SelectID<>"" Then conn.execute "update Price set ViewFlagCH = 0 where id in ("&SelectID&")" response.redirect request.servervariables("http_referer") case "英文批量不显示" if SelectID<>"" Then conn.execute "update Price set ViewFlagEN = 0 where id in ("&SelectID&")" response.redirect request.servervariables("http_referer") case "删除所选" if SelectID<>"" Then conn.execute "delete from Price where id in ("&SelectID&")" If ISHTML = 1 Then ix=0 SelectID=replace(SelectID," ","") len_idx=len(SelectID) tempx=tempx&left(SelectID,1) Do While ix"" Then conn.execute "update Download set ViewFlagCH = 1 where id in ("&SelectID&")" response.redirect request.servervariables("http_referer") case "英文批量显示" if SelectID<>"" Then conn.execute "update Download set ViewFlagEN = 1 where id in ("&SelectID&")" response.redirect request.servervariables("http_referer") case "中文批量不显示" if SelectID<>"" Then conn.execute "update Download set ViewFlagCH = 0 where id in ("&SelectID&")" response.redirect request.servervariables("http_referer") case "英文批量不显示" if SelectID<>"" Then conn.execute "update Download set ViewFlagEN = 0 where id in ("&SelectID&")" response.redirect request.servervariables("http_referer") case "删除所选" if SelectID<>"" Then conn.execute "delete from Download where id in ("&SelectID&")" If ISHTML = 1 Then ix=0 SelectID=replace(SelectID," ","") len_idx=len(SelectID) tempx=tempx&left(SelectID,1) Do While ix"" Then conn.execute "update Jobs set ViewFlagCH = 1 where id in ("&SelectID&")" response.redirect request.servervariables("http_referer") case "英文批量显示" if SelectID<>"" Then conn.execute "update Jobs set ViewFlagEN = 1 where id in ("&SelectID&")" response.redirect request.servervariables("http_referer") case "中文批量不显示" if SelectID<>"" Then conn.execute "update Jobs set ViewFlagCH = 0 where id in ("&SelectID&")" response.redirect request.servervariables("http_referer") case "英文批量不显示" if SelectID<>"" Then conn.execute "update Jobs set ViewFlagEN = 0 where id in ("&SelectID&")" response.redirect request.servervariables("http_referer") case "删除所选" if SelectID<>"" Then conn.execute "delete from Jobs where id in ("&SelectID&")" If ISHTML = 1 Then ix=0 SelectID=replace(SelectID," ","") len_idx=len(SelectID) tempx=tempx&left(SelectID,1) Do While ix"" Then conn.execute "update Message set ViewFlagCH = 1 where id in ("&SelectID&")" response.redirect request.servervariables("http_referer") case "英文批量显示" if SelectID<>"" Then conn.execute "update Message set ViewFlagEN = 1 where id in ("&SelectID&")" response.redirect request.servervariables("http_referer") case "中文批量不显示" if SelectID<>"" Then conn.execute "update Message set ViewFlagCH = 0 where id in ("&SelectID&")" response.redirect request.servervariables("http_referer") case "英文批量不显示" if SelectID<>"" Then conn.execute "update Message set ViewFlagEN = 0 where id in ("&SelectID&")" response.redirect request.servervariables("http_referer") case "删除所选" if SelectID<>"" Then conn.execute "delete from Message where id in ("&SelectID&")" response.redirect request.servervariables("http_referer") End Select case "Order" if SelectID<>"" Then conn.execute "delete from Order where id in ("&SelectID&")" response.redirect request.servervariables("http_referer") case "Talents" if SelectID<>"" Then conn.execute "delete from Talents where id in ("&SelectID&")" response.redirect request.servervariables("http_referer") case "Navigation" select case Trim(Request.Form("batch")) case "批量修改排序" Nav_id=request("Nav_id") Sequence=request("Sequence") arr_id=Split(Replace(Nav_id," ",""),",") arr_Sequence=Split(Replace(Sequence," ",""),",") For i = 0 To UBound(arr_id) conn.execute("update Navigation set Sequence='"&arr_Sequence(i)&"' where id="&arr_id(i)&"") Next response.redirect request.servervariables("http_referer") case "中文批量显示" if SelectID<>"" Then conn.execute "update Navigation set ViewFlagCH = 1 where id in ("&SelectID&")" response.redirect request.servervariables("http_referer") case "英文批量显示" if SelectID<>"" Then conn.execute "update Navigation set ViewFlagEN = 1 where id in ("&SelectID&")" response.redirect request.servervariables("http_referer") case "中文批量不显示" if SelectID<>"" Then conn.execute "update Navigation set ViewFlagCH = 0 where id in ("&SelectID&")" response.redirect request.servervariables("http_referer") case "英文批量不显示" if SelectID<>"" Then conn.execute "update Navigation set ViewFlagEN = 0 where id in ("&SelectID&")" response.redirect request.servervariables("http_referer") case "删除所选" if SelectID<>"" Then conn.execute "delete from Navigation where id in ("&SelectID&")" response.redirect request.servervariables("http_referer") End Select case "FriendLink" select case Trim(Request.Form("batch")) case "中文批量显示" if SelectID<>"" Then conn.execute "update FriendLink set ViewFlagCH = 1 where id in ("&SelectID&")" response.redirect request.servervariables("http_referer") case "英文批量显示" if SelectID<>"" Then conn.execute "update FriendLink set ViewFlagEN = 1 where id in ("&SelectID&")" response.redirect request.servervariables("http_referer") case "中文批量不显示" if SelectID<>"" Then conn.execute "update FriendLink set ViewFlagCH = 0 where id in ("&SelectID&")" response.redirect request.servervariables("http_referer") case "英文批量不显示" if SelectID<>"" Then conn.execute "update FriendLink set ViewFlagEN = 0 where id in ("&SelectID&")" response.redirect request.servervariables("http_referer") case "删除所选" if SelectID<>"" Then conn.execute "delete from FriendLink where id in ("&SelectID&")" response.redirect request.servervariables("http_referer") End Select case "Others" select case Trim(Request.Form("batch")) case "中文批量显示" if SelectID<>"" Then conn.execute "update Others set ViewFlagCH = 1 where id in ("&SelectID&")" response.redirect request.servervariables("http_referer") case "英文批量显示" if SelectID<>"" Then conn.execute "update Others set ViewFlagEN = 1 where id in ("&SelectID&")" response.redirect request.servervariables("http_referer") case "中文批量不显示" if SelectID<>"" Then conn.execute "update Others set ViewFlagCH = 0 where id in ("&SelectID&")" response.redirect request.servervariables("http_referer") case "英文批量不显示" if SelectID<>"" Then conn.execute "update Others set ViewFlagEN = 0 where id in ("&SelectID&")" response.redirect request.servervariables("http_referer") case "删除所选" if SelectID<>"" Then conn.execute "delete from Others where id in ("&SelectID&")" If ISHTML = 1 Then ix=0 SelectID=replace(SelectID," ","") len_idx=len(SelectID) tempx=tempx&left(SelectID,1) Do While ix"" Then conn.execute "update NoHackSql set Kill_ip=true where SqlIn_ID in ("&SelectID&")" response.redirect request.servervariables("http_referer") case "批量解锁" if SelectID<>"" Then conn.execute "update NoHackSql set Kill_ip=False where SqlIn_ID in ("&SelectID&")" response.redirect request.servervariables("http_referer") case "删除所选" if SelectID<>"" then conn.execute "delete from NoHackSql where SqlIn_ID in ("&SelectID&")" response.redirect request.servervariables("http_referer") End Select case else end select %>