代码有错误?
<%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
%>
[此贴子已经被作者于2007-2-16 0:02:32编辑过]
