<%
If request("Submitok")="AddLoveB" Then 
    Dim MemberName,MemberID,MemberTitle,TotalLoveB
    MemberName=trim(replace(replace(replace(request("MemberName"),"'",""),"[",""),"]",""))
    MemberID=trim(replace(replace(replace(request("MemberID"),"'",""),"[",""),"]",""))
    ClassID=int(trim(replace(replace(replace(request("ClassID"),"'",""),"[",""),"]","")))
    MemberTitle=trim(replace(replace(replace(request("MemberTitle"),"'",""),"[",""),"]",""))
        if grade=10 then
            sql= "select loveb from Q_Main where Id="&ClassID&""
        else
            sql="select loveb from Q_Main where (UserID="&UserID&" or UserID1="&UserID&" or UserID2="&UserID&" or UserID3="&UserID&") and Id="&ClassID&" "
        end if
            set rs=Server.CreateObject("ADODB.recordset")'验证是否为组长或副组长
            rs.open sql,conn,1,1
            if rs.eof and rs.bof then 
                rs.close:set rs=nothing:closeconn    
                call msg("请检查：\n\n你无权操作此项目1！","0") 
            end if
            TotalLoveB=rs(0)
            rs.close:set rs=nothing'验证结束,下一步
Elseif request("Submitok")="AddLoveB2" Then'开始加LoveB
    Dim LoveBnum,TempContent
    MemberName=trim(replace(replace(replace(request.form("MemberName"),"'",""),"[",""),"]",""))
    MemberID=trim(replace(replace(replace(request.form("MemberID"),"'",""),"[",""),"]",""))
    ClassID=int(request.form("ClassID"))
    LoveBnum=int(request.form("LoveBnum"))
    TempContent=trim(replace(replace(replace(request.form("TempContent"),"'",""),"[",""),"]",""))&"操作人："&Username
        if grade=10 then
            sql= "select loveb from Q_Main where Id="&ClassID&""
        else
            sql="select loveb from Q_Main where (UserID="&UserID&" or UserID1="&UserID&" or UserID2="&UserID&" or UserID3="&UserID&") and Id="&ClassID&" "
        end if
            set rs=Server.CreateObject("ADODB.recordset")'验证是否为组长或副组长
            rs.open sql,conn,1,1
            if rs.eof and rs.bof then 
                rs.close:set rs=nothing:closeconn    
                call msg("请检查：\n\n你无权操作此项目2！","0") 
            end if
            TotalLoveB=rs(0)
            rs.close:set rs=nothing'验证结束,下一步
    if TotalLoveB>=LoveBnum then
        conn.execute("update love_main Set loveb=loveb+"&LoveBnum&" where Id="&MemberID)'更新主表love币总数
        conn.execute("update Q_Main Set loveb=loveb-"&LoveBnum&" where Id="&ClassID)'更新主表love币总数
        call loveb_add(MemberName,LoveBnum,TempContent) '添加币历使记录,在fun.asp中
        closeconn    
        call msg("恭喜！操作成功！","GroupMain.asp?ClassID="&ClassID) 
    else
        closeconn    
        call msg("奖励失败！\n\n你的群组总财富值过少，让你的成员们多多发贴子吧！\n\n超级群组宗旨：取之于民，用之于民！","-1") 
    end if
Elseif request("Submitok")="SetJh" Then '设为精华文章
    Dim BlogID
    ClassID=int(request("ClassID"))
    BlogID=int(request("BlogID"))
    Call Q_Mainn
        conn.execute("update Q_Wz Set Ifjh=1 where Id="&BlogID)
        closeconn
        response.redirect"GBlogShow.asp?BlogID="&BlogID
Elseif request("Submitok")="DelJh" Then '取消文章
    ClassID=int(request("ClassID"))
    BlogID=int(request("BlogID"))
    Call Q_Mainn
        conn.execute("update Q_Wz Set Ifjh=0 where Id="&BlogID)
        closeconn
        response.redirect"GBlogShow.asp?BlogID="&BlogID
Elseif request("Submitok")="SetTop" Then '固顶
    ClassID=int(request("ClassID"))
    BlogID=int(request("BlogID"))
    Call Q_Mainn
        conn.execute("update Q_Wz Set IfTop=1 where Id="&BlogID)
        closeconn
        response.redirect"GBlogShow.asp?BlogID="&BlogID
Elseif request("Submitok")="DelTop" Then '解除固顶
    ClassID=int(request("ClassID"))
    BlogID=int(request("BlogID"))
    Call Q_Mainn
        conn.execute("update Q_Wz Set IfTop=0 where Id="&BlogID)
        closeconn
        response.redirect"GBlogShow.asp?BlogID="&BlogID
Elseif request("Submitok")="SetPb" Then '屏蔽此贴
    ClassID=int(request("ClassID"))
    BlogID=int(request("BlogID"))
    Call Q_Mainn
        conn.execute("update Q_Wz Set Flag=-1 where Id="&BlogID)
        closeconn
        response.redirect"GBlogShow.asp?BlogID="&BlogID
Elseif request("Submitok")="DelPb" Then '解除屏蔽
    ClassID=int(request("ClassID"))
    BlogID=int(request("BlogID"))
    Call Q_Mainn
        conn.execute("update Q_Wz Set Flag=1 where Id="&BlogID)
        closeconn
        response.redirect"GBlogShow.asp?BlogID="&BlogID
Elseif request("Submitok")="SetSh" Then '点击审核
    ClassID=int(request("ClassID"))
    BlogID=int(request("BlogID"))
    Call Q_Mainn
        conn.execute("update Q_Wz Set Flag=1 where Id="&BlogID)
        closeconn
        response.redirect"GBlogShow.asp?BlogID="&BlogID
Elseif request("Submitok")="DelBlog" Then '删贴
    ClassID=int(request("ClassID"))
    BlogID=int(request("BlogID"))
    BBSnum=int(request("Plnum"))
    Call Q_Mainn
        conn.execute("delete from Q_Wz where Id="&BlogID)
        conn.execute("update Q_Main Set Wznum=Wznum-1,BBSnum=BBSnum-"&BBSnum&" where Id="&ClassID)'版块文章数-1,总评论数
        conn.execute("delete from Q_BBS where Q_Wz_ID="&BlogID)
        conn.execute("delete from Q_Sc where Q_Wz_ID="&BlogID)
        closeconn
        response.redirect"GBlogShow.asp?BlogID="&BlogID
Else
    BlogID=int(request("BlogID"))
    closeconn
    response.redirect"GBlogShow.asp?BlogID="&BlogID
End if
%>