<%cpbtitle="管理主题"
call toptitle(l_title,cpbtitle)
call head(4,"论坛信息",Request.ServerVariables("HTTP_REFERER"),cpbtitle)
if request.querystring("l_id")="" then
errornum=1
errormsg="
很抱歉，您没有选择论坛,请从论坛首页正确登陆
"
end if
if errornum<> 1 then
if isuser then
isbanzhu=false
'如果是管理员或者总斑竹就跳过此检查
if issupermaster=false and ismaster=false then
sql="select l_id from topic where t_id="&chktopic(request("t_id"))&""
set rs=conn.execute(sql)
if rs.eof then
errormsg="
很抱歉，此主题不存在
"
call error(errormsg)
call bq
response.end
else
l_idd=rs("l_id")
end if
sqlchecadmin="select l_banzhu from lanmu where l_id="&l_idd&""
set rschecadmin=conn.execute(sqlchecadmin)
if not (rschecadmin.eof or rschecadmin.bof) then
l_banzhu=rschecadmin("l_banzhu")
if not isnull(l_banzhu) and l_banzhu<>"" and isuser then
if instr(l_banzhu,cpbusername)=0 then
errornum=1
errormsg="
很抱歉，您不是管理员或者总版主或者该论坛版主
"
end if
else
errornum=1
errormsg="
很抱歉，您不是管理员或者总版主或者该论坛版主
"
end if
else
errornum=1
errormsg="
很抱歉，您不是管理员或者总版主或者该论坛版主
"
end if
end if
else
errornum=1
errormsg="
很抱歉，您还没有登陆
"
end if
end if
if errornum=1 then
call error(errormsg)
call bq
response.end
end if
'取出变量
dim top_fen,h_topmoney,h_topbeauty
sql="select top_fen,h_topmoney,h_topbeauty from home"
set rsconn1=conn.execute(sql)
if not rsconn1.eof then
top_fen=rsconn1("top_fen")
h_topmoney=rsconn1("h_topmoney")
h_topbeauty=rsconn1("h_topbeauty")
end if
set rsconn1=nothing%>
<%if request.querystring("action")="top" then
sql="select t_title,t_top from topic where t_id="&chktopic(request("t_id"))&""
set rs=conn.execute(sql)
if rs("t_top")=0 and issupermaster=false and ismaster=false then
errormsg="
此主题已经总固定，只有管理员和总版主才可以操作
"
call error(errormsg)
call bq()
response.end
end if
if rs("t_top")=1 then
if request.querystring("mode")="" then%>
<%
else
e_money=chktopic(trim(request("e_money")))
e_beauty=chktopic(trim(request("e_beauty")))
e_fen=chktopic(trim(request("e_fen")))
e_title=chktopic(trim(request("e_title")))
e_content=chktopic(trim(request("e_content")))
if e_content="" and e_title="" then
errormsg="
请填写操作理由
"
call error(errormsg)
call bq()
response.end
end if
e_content="取消置顶主题："&htmlencode(rs("t_title"))&" 结果：经验："&e_fen&";;;魅力："&e_beauty&";;;金钱："&e_money&";;; 理由:"&e_title&"："&e_content
sql="select t_username,t_title from topic where t_id="&chktopic(request("t_id"))&""
set rs=conn.execute(sql)
if not rs.eof then
e_username=rs("t_username")
e_title=rs("t_title")
end if
set rs=nothing
sql="insert into even (e_lanmu,e_topic,e_ip,e_time,e_content,e_username,e_admin) values ("&chktopic(request("l_id"))&","&chktopic(request("t_id"))&",'"&o_ip&"','"&nowtime&"','"&e_content&"','"&e_username&"','"&cpbusername&"')"
conn.execute(sql)
sqlnum="update topic set t_top=4 where t_id="&chktopic(request("t_id"))&""
conn.Execute (sqlnum)
sqluser1="update user set fen=fen+"&e_fen&",u_beauty=u_beauty+"&e_beauty&",u_money=u_money+"&e_money&" where username='"&e_username&"'"
conn.Execute (sqluser1)
if request("p_send")="1" then
p_content=chktopic(request("p_content"))
admina=cpbusername
q_content="您发表的的主题《"&e_title&"》被取消置顶,[url=topic.asp?l_id="&chktopic(request("l_id"))&"&t_id="&chktopic(request("t_id"))&"]地址[/url]"&chr(10)&"结果：经验："&e_fen&";;;魅力："&e_beauty&";;;金钱："&e_money&";;;"&chr(10)&"以下为操作者对你的留言:"&p_content&""
q_title="系统信息"
sqlpm="insert into pm (q_receive,q_title,q_content,q_send) values('"&e_username&"','"&q_title&"','"&q_content&"','"&admina&"')"
conn.Execute(sqlpm)
end if
succmsg="
<%
else
e_money=chktopic(trim(request("e_money")))
e_beauty=chktopic(trim(request("e_beauty")))
e_fen=chktopic(trim(request("e_fen")))
e_title=chktopic(trim(request("e_title")))
e_content=chktopic(trim(request("e_content")))
if e_content="" and e_title="" then
errormsg="
请填写操作理由
"
call error(errormsg)
call bq()
response.end
end if
e_content="置顶主题："&htmlencode(rs("t_title"))&" 结果：经验："&e_fen&";;;魅力："&e_beauty&";;;金钱："&e_money&";;; 理由:"&e_title&"："&e_content
sql="select t_username,t_title from topic where t_id="&chktopic(request("t_id"))&""
set rs=conn.execute(sql)
if not rs.eof then
e_username=rs("t_username")
e_title=rs("t_title")
end if
set rs=nothing
sql="insert into even (e_lanmu,e_topic,e_ip,e_time,e_content,e_username,e_admin) values ("&chktopic(request("l_id"))&","&chktopic(request("t_id"))&",'"&o_ip&"','"&nowtime&"','"&e_content&"','"&e_username&"','"&cpbusername&"')"
conn.execute(sql)
sqlnum="update topic set t_top=1 where t_id="&chktopic(request("t_id"))&""
conn.Execute (sqlnum)
if request("p_send")="1" then
p_content=chktopic(request("p_content"))
admina=cpbusername
q_content="您发表的的主题《"&e_title&"》被置顶,[url=topic.asp?l_id="&chktopic(request("l_id"))&"&t_id="&chktopic(request("t_id"))&"]地址[/url]"&chr(10)&"结果：经验："&e_fen&";;;魅力："&e_beauty&";;;金钱："&e_money&";;;"&chr(10)&"以下为操作者对你的留言:"&p_content&""
q_title="系统信息"
sqlpm="insert into pm (q_receive,q_title,q_content,q_send) values('"&e_username&"','"&q_title&"','"&q_content&"','"&admina&"')"
conn.Execute(sqlpm)
end if
sqluser1="update user set fen=fen+"&e_fen&",u_beauty=u_beauty+"&e_beauty&",u_money=u_money+"&e_money&" where username='"&e_username&"'"
conn.Execute (sqluser1)
succmsg="
"
call succ(succmsg)
end if
end if
'总固定
elseif request.querystring("action")="toptop" then
if issupermaster=false and ismaster=false then
errormsg="
很抱歉，您无权限操作，只有总斑竹或者管理员才可以操作
"
call error(errormsg)
call bq()
response.end
end if
sql="select t_title,t_top from topic where t_id="&chktopic(request("t_id"))&""
set rs=conn.execute(sql)
if rs("t_top")=0 then
if request.querystring("mode")="" then%>
<%
else
e_money=chktopic(trim(request("e_money")))
e_beauty=chktopic(trim(request("e_beauty")))
e_fen=chktopic(trim(request("e_fen")))
e_title=chktopic(trim(request("e_title")))
e_content=chktopic(trim(request("e_content")))
if e_content="" and e_title="" then
errormsg="
请填写操作理由
"
call error(errormsg)
call bq()
response.end
end if
e_content="取消总固顶主题："&htmlencode(rs("t_title"))&" 结果：经验："&e_fen&";;;魅力："&e_beauty&";;;金钱："&e_money&";;; 理由:"&e_title&"："&e_content
sql="select t_username,t_title from topic where t_id="&chktopic(request("t_id"))&""
set rs=conn.execute(sql)
if not rs.eof then
e_username=rs("t_username")
e_title=rs("t_title")
end if
set rs=nothing
sql="insert into even (e_lanmu,e_topic,e_ip,e_time,e_content,e_username,e_admin) values ("&chktopic(request("l_id"))&","&chktopic(request("t_id"))&",'"&o_ip&"','"&nowtime&"','"&e_content&"','"&e_username&"','"&cpbusername&"')"
conn.execute(sql)
sqlnum="update topic set t_top=4 where t_id="&chktopic(request("t_id"))&""
conn.Execute (sqlnum)
if request("p_send")="1" then
p_content=chktopic(request("p_content"))
admina=cpbusername
q_content="您发表的的主题《"&e_title&"》被取消总固顶,[url=topic.asp?l_id="&chktopic(request("l_id"))&"&t_id="&chktopic(request("t_id"))&"]地址[/url]"&chr(10)&"结果：经验："&e_fen&";;;魅力："&e_beauty&";;;金钱："&e_money&";;;"&chr(10)&"以下为操作者对你的留言:"&p_content&""
q_title="系统信息"
sqlpm="insert into pm (q_receive,q_title,q_content,q_send) values('"&e_username&"','"&q_title&"','"&q_content&"','"&admina&"')"
conn.Execute(sqlpm)
end if
sqluser1="update user set fen=fen+"&e_fen&",u_beauty=u_beauty+"&e_beauty&",u_money=u_money+"&e_money&" where username='"&e_username&"'"
conn.Execute (sqluser1)
succmsg="
<%
else
e_money=chktopic(trim(request("e_money")))
e_beauty=chktopic(trim(request("e_beauty")))
e_fen=chktopic(trim(request("e_fen")))
e_title=chktopic(trim(request("e_title")))
e_content=chktopic(trim(request("e_content")))
if e_content="" and e_title="" then
errormsg="
请填写操作理由
"
call error(errormsg)
call bq()
response.end
end if
e_content="总固顶主题："&htmlencode(rs("t_title"))&" 结果：经验："&e_fen&";;;魅力："&e_beauty&";;;金钱："&e_money&";;; 理由:"&e_title&"："&e_content
sql="select t_username,t_title from topic where t_id="&chktopic(request("t_id"))&""
set rs=conn.execute(sql)
if not rs.eof then
e_username=rs("t_username")
e_title=rs("t_title")
end if
set rs=nothing
sql="insert into even (e_lanmu,e_topic,e_ip,e_time,e_content,e_username,e_admin) values ("&chktopic(request("l_id"))&","&chktopic(request("t_id"))&",'"&o_ip&"','"&nowtime&"','"&e_content&"','"&e_username&"','"&cpbusername&"')"
conn.execute(sql)
sqlnum="update topic set t_top=0 where t_id="&chktopic(request("t_id"))&""
conn.Execute (sqlnum)
if request("p_send")="1" then
p_content=chktopic(request("p_content"))
admina=cpbusername
q_content="您发表的的主题《"&e_title&"》被总固顶,[url=topic.asp?l_id="&chktopic(request("l_id"))&"&t_id="&chktopic(request("t_id"))&"]地址[/url]"&chr(10)&"结果：经验："&e_fen&";;;魅力："&e_beauty&";;;金钱："&e_money&";;;"&chr(10)&"以下为操作者对你的留言:"&p_content&""
q_title="系统信息"
sqlpm="insert into pm (q_receive,q_title,q_content,q_send) values('"&e_username&"','"&q_title&"','"&q_content&"','"&admina&"')"
conn.Execute(sqlpm)
end if
sqluser1="update user set fen=fen+"&e_fen&",u_beauty=u_beauty+"&e_beauty&",u_money=u_money+"&e_money&" where username='"&e_username&"'"
conn.Execute (sqluser1)
succmsg="
"
call succ(succmsg)
end if
end if
elseif request.querystring("action")="del" then
sql="select t_top,t_title,t_username from topic where t_id="&chktopic(request("t_id"))&""
set rs=conn.execute(sql)
if not rs.eof then
if rs("t_top")=0 and issupermaster=false and ismaster=false then
errormsg="
此主题已经总固定，只有管理员和总版主才可以操作
"
call error(errormsg)
call bq()
response.end
end if
if request.querystring("mode")="" then
%>
<%
else
e_money=chktopic(trim(request("e_money")))
e_beauty=chktopic(trim(request("e_beauty")))
e_fen=chktopic(trim(request("e_fen")))
e_title=chktopic(trim(request("e_title")))
e_content=chktopic(trim(request("e_content")))
if e_content="" and e_title="" then
errormsg="
请填写操作理由
"
call error(errormsg)
call bq()
response.end
end if
e_content="删除主题："&htmlencode(rs("t_title"))&" 结果：经验："&e_fen&";;;魅力："&e_beauty&";;;金钱："&e_money&";;; 理由:"&e_title&"："&e_content
sql="select t_username,t_title from topic where t_id="&chktopic(request("t_id"))&""
set rs=conn.execute(sql)
if not rs.eof then
e_username=rs("t_username")
e_title=rs("t_title")
end if
set rs=nothing
sql="insert into even (e_lanmu,e_topic,e_ip,e_time,e_content,e_username,e_admin) values ("&chktopic(request("l_id"))&","&chktopic(request("t_id"))&",'"&o_ip&"','"&nowtime&"','"&e_content&"','"&e_username&"','"&cpbusername&"')"
conn.execute(sql)
sqluser1="update topic set t_lock=2 where t_id="&chktopic(request("t_id"))&""
conn.Execute (sqluser1)
if request("p_send")="1" then
p_content=chktopic(request("p_content"))
admina=cpbusername
q_content="您发表的的主题《"&e_title&"》被删除,[url=topic.asp?l_id="&chktopic(request("l_id"))&"&t_id="&chktopic(request("t_id"))&"]地址[/url]"&chr(10)&"结果：经验："&e_fen&";;;魅力："&e_beauty&";;;金钱："&e_money&";;;"&chr(10)&"以下为操作者对你的留言:"&p_content&""
q_title="系统信息"
sqlpm="insert into pm (q_receive,q_title,q_content,q_send) values('"&e_username&"','"&q_title&"','"&q_content&"','"&admina&"')"
conn.Execute(sqlpm)
end if
sqluser1="update user set fen=fen+"&e_fen&",u_beauty=u_beauty+"&e_beauty&",u_money=u_money+"&e_money&" where username='"&e_username&"'"
conn.Execute (sqluser1)
succmsg="
"
call succ(succmsg)
end if
set rs=nothing
end if
%>
<%elseif request.querystring("action")="ts" then
sql="select t_top,t_title,t_username from topic where t_id="&chktopic(request("t_id"))&""
set rs=conn.execute(sql)
if not rs.eof then
if rs("t_top")=0 and issupermaster=false and ismaster=false then
errormsg="
此主题已经总固定，只有管理员和总版主才可以操作
"
call error(errormsg)
call bq()
response.end
end if
if request.querystring("mode")="" then
%>
<%
else
e_money=chktopic(trim(request("e_money")))
e_beauty=chktopic(trim(request("e_beauty")))
e_fen=chktopic(trim(request("e_fen")))
e_title=chktopic(trim(request("e_title")))
e_content=chktopic(trim(request("e_content")))
if e_content="" and e_title="" then
errormsg="
请填写操作理由
"
call error(errormsg)
call bq()
response.end
end if
e_content="拉升主题："&htmlencode(rs("t_title"))&" 结果：经验："&e_fen&";;;魅力："&e_beauty&";;;金钱："&e_money&";;; 理由:"&e_title&"："&e_content
sql="select t_username,t_title from topic where t_id="&chktopic(request("t_id"))&""
set rs=conn.execute(sql)
if not rs.eof then
e_username=rs("t_username")
e_title=rs("t_title")
end if
set rs=nothing
sql="insert into even (e_lanmu,e_topic,e_ip,e_time,e_content,e_username,e_admin) values ("&chktopic(request("l_id"))&","&chktopic(request("t_id"))&",'"&o_ip&"','"&nowtime&"','"&e_content&"','"&e_username&"','"&cpbusername&"')"
conn.execute(sql)
sqluser1="update topic set t_lasttime='"&nowtime&"' where t_id="&chktopic(request("t_id"))&""
conn.Execute (sqluser1)
if request("p_send")="1" then
p_content=chktopic(request("p_content"))
admina=cpbusername
q_content="您发表的的主题《"&e_title&"》被拉升,[url=topic.asp?l_id="&chktopic(request("l_id"))&"&t_id="&chktopic(request("t_id"))&"]地址[/url]"&chr(10)&"结果：经验："&e_fen&";;;魅力："&e_beauty&";;;金钱："&e_money&";;;"&chr(10)&"以下为操作者对你的留言:"&p_content&""
q_title="系统信息"
sqlpm="insert into pm (q_receive,q_title,q_content,q_send) values('"&e_username&"','"&q_title&"','"&q_content&"','"&admina&"')"
conn.Execute(sqlpm)
end if
sqluser1="update user set fen=fen+"&e_fen&",u_beauty=u_beauty+"&e_beauty&",u_money=u_money+"&e_money&" where username='"&e_username&"'"
conn.Execute (sqluser1)
succmsg="
"
call succ(succmsg)
end if
set rs=nothing
end if
'----------关闭
elseif request.querystring("action")="lock" then
sql="select t_top,t_title,t_lock from topic where t_id="&chktopic(request("t_id"))&""
set rs=conn.execute(sql)
if not rs.eof then
if rs("t_top")=0 and issupermaster=false and ismaster=false then
errormsg="
此主题已经总固定，只有管理员和总版主才可以操作
"
call error(errormsg)
call bq()
response.end
end if
if rs("t_lock")=1 then
if request.querystring("mode")="" then%>
<%
else
e_money=chktopic(trim(request("e_money")))
e_beauty=chktopic(trim(request("e_beauty")))
e_fen=chktopic(trim(request("e_fen")))
e_title=chktopic(trim(request("e_title")))
e_content=chktopic(trim(request("e_content")))
if e_content="" and e_title="" then
errormsg="
请填写操作理由
"
call error(errormsg)
call bq()
response.end
end if
e_content="取消关闭主题："&htmlencode(rs("t_title"))&" 结果：经验："&e_fen&";;;魅力："&e_beauty&";;;金钱："&e_money&";;; 理由:"&e_title&"："&e_content
sql="select t_username,t_title from topic where t_id="&chktopic(request("t_id"))&""
set rs=conn.execute(sql)
if not rs.eof then
e_username=rs("t_username")
e_title=rs("t_title")
end if
set rs=nothing
sql="insert into even (e_lanmu,e_topic,e_ip,e_time,e_content,e_username,e_admin) values ("&chktopic(request("l_id"))&","&chktopic(request("t_id"))&",'"&o_ip&"','"&nowtime&"','"&e_content&"','"&e_username&"','"&cpbusername&"')"
conn.execute(sql)
sqlnum="update topic set t_lock=0 where t_id="&chktopic(request("t_id"))&""
conn.Execute (sqlnum)
if request("p_send")="1" then
p_content=chktopic(request("p_content"))
admina=cpbusername
q_content="您发表的的主题《"&e_title&"》被取消关闭,[url=topic.asp?l_id="&chktopic(request("l_id"))&"&t_id="&chktopic(request("t_id"))&"]地址[/url]"&chr(10)&"结果：经验："&e_fen&";;;魅力："&e_beauty&";;;金钱："&e_money&";;;"&chr(10)&"以下为操作者对你的留言:"&p_content&""
q_title="系统信息"
sqlpm="insert into pm (q_receive,q_title,q_content,q_send) values('"&e_username&"','"&q_title&"','"&q_content&"','"&admina&"')"
conn.Execute(sqlpm)
end if
sqluser1="update user set fen=fen+"&e_fen&",u_beauty=u_beauty+"&e_beauty&",u_money=u_money+"&e_money&" where username='"&e_username&"'"
conn.Execute (sqluser1)
succmsg="
<%
else
e_money=chktopic(trim(request("e_money")))
e_beauty=chktopic(trim(request("e_beauty")))
e_fen=chktopic(trim(request("e_fen")))
e_title=chktopic(trim(request("e_title")))
e_content=chktopic(trim(request("e_content")))
if e_content="" and e_title="" then
errormsg="
请填写操作理由
"
call error(errormsg)
call bq()
response.end
end if
e_content="关闭主题："&htmlencode(rs("t_title"))&" 结果：经验："&e_fen&";;;魅力："&e_beauty&";;;金钱："&e_money&";;; 理由:"&e_title&"："&e_content
sql="select t_username,t_title from topic where t_id="&chktopic(request("t_id"))&""
set rs=conn.execute(sql)
if not rs.eof then
e_username=rs("t_username")
e_title=rs("t_title")
end if
set rs=nothing
sql="insert into even (e_lanmu,e_topic,e_ip,e_time,e_content,e_username,e_admin) values ("&chktopic(request("l_id"))&","&chktopic(request("t_id"))&",'"&o_ip&"','"&nowtime&"','"&e_content&"','"&e_username&"','"&cpbusername&"')"
conn.execute(sql)
sqlnum="update topic set t_lock=1 where t_id="&chktopic(request("t_id"))&""
conn.Execute (sqlnum)
if request("p_send")="1" then
p_content=chktopic(request("p_content"))
admina=cpbusername
q_content="您发表的的主题《"&e_title&"》被关闭,[url=topic.asp?l_id="&chktopic(request("l_id"))&"&t_id="&chktopic(request("t_id"))&"]地址[/url]"&chr(10)&"结果：经验："&e_fen&";;;魅力："&e_beauty&";;;金钱："&e_money&";;;"&chr(10)&"以下为操作者对你的留言:"&p_content&""
q_title="系统信息"
sqlpm="insert into pm (q_receive,q_title,q_content,q_send) values('"&e_username&"','"&q_title&"','"&q_content&"','"&admina&"')"
conn.Execute(sqlpm)
end if
sqluser1="update user set fen=fen+"&e_fen&",u_beauty=u_beauty+"&e_beauty&",u_money=u_money+"&e_money&" where username='"&e_username&"'"
conn.Execute (sqluser1)
succmsg="
"
call succ(succmsg)
end if
end if
else
errormsg="
参数错误，无此主题
"
call error(errormsg)
call bq()
response.end
end if
'_--------------------------精华----------------------------
elseif request.querystring("action")="jinhua" then
sql="select t_jinhua,t_username,t_title from topic where t_id="&chktopic(request("t_id"))&""
set rs=conn.execute(sql)
if rs("t_jinhua")<>0 then
if request.querystring("mode")="" then%>
<%
else
e_money=chktopic(trim(request("e_money")))
e_beauty=chktopic(trim(request("e_beauty")))
e_fen=chktopic(trim(request("e_fen")))
e_title=chktopic(trim(request("e_title")))
e_content=chktopic(trim(request("e_content")))
if e_content="" and e_title="" then
errormsg="
请填写操作理由
"
call error(errormsg)
call bq()
response.end
end if
e_content="取消精华主题："&htmlencode(rs("t_title"))&" 结果：经验："&e_fen&";;;魅力："&e_beauty&";;;金钱："&e_money&";;; 理由:"&e_title&"："&e_content
sql="select t_username,t_title from topic where t_id="&chktopic(request("t_id"))&""
set rs=conn.execute(sql)
if not rs.eof then
e_username=rs("t_username")
e_title=rs("t_title")
end if
set rs=nothing
sql="insert into even (e_lanmu,e_topic,e_ip,e_time,e_content,e_username,e_admin) values ("&chktopic(request("l_id"))&","&chktopic(request("t_id"))&",'"&o_ip&"','"&nowtime&"','"&e_content&"','"&e_username&"','"&cpbusername&"')"
conn.execute(sql)
sqlnum="update topic set t_jinhua=0 where t_id="&chktopic(request("t_id"))&""
conn.Execute (sqlnum)
sqluser1="update user set fen=fen-"&top_fen&",u_beauty=u_beauty-"&h_topbeauty&",u_money=u_money-"&h_topmoney&" ,u_toptopic=u_toptopic-1 where username='"&e_username&"'"
conn.Execute (sqluser1)
if request("p_send")="1" then
p_content=chktopic(request("p_content"))
admina=cpbusername
q_content="您发表的的主题《"&e_title&"》被取消精华,[url=topic.asp?l_id="&chktopic(request("l_id"))&"&t_id="&chktopic(request("t_id"))&"]地址[/url]"&chr(10)&"结果：经验："&e_fen&";;;魅力："&e_beauty&";;;金钱："&e_money&";;;"&chr(10)&"以下为操作者对你的留言:"&p_content&""
q_title="系统信息"
sqlpm="insert into pm (q_receive,q_title,q_content,q_send) values('"&e_username&"','"&q_title&"','"&q_content&"','"&admina&"')"
conn.Execute(sqlpm)
end if
sqluser1="update user set fen=fen+"&e_fen&",u_beauty=u_beauty+"&e_beauty&",u_money=u_money+"&e_money&" where username='"&e_username&"'"
conn.Execute (sqluser1)
succmsg="
"
call succ(succmsg)
end if
else
if request.querystring("mode")="" then
sql="select t_title from topic where t_id="&chktopic(request("t_id"))&""
set rs=conn.execute(sql)
if not rs.eof then%>
<%end if
set rs=nothing
else
e_money=chktopic(trim(request("e_money")))
e_beauty=chktopic(trim(request("e_beauty")))
e_fen=chktopic(trim(request("e_fen")))
e_title=chktopic(trim(request("e_title")))
e_content=chktopic(trim(request("e_content")))
e_title1=chktopic(trim(request("e_title1")))
if e_content="" and e_title="" then
errormsg="
请填写操作理由
"
call error(errormsg)
call bq()
response.end
end if
e_content="添加精华主题："&htmlencode(rs("t_title"))&" 结果：经验："&e_fen&";;;魅力："&e_beauty&";;;金钱："&e_money&";;; 理由:"&e_title&"："&e_content
sql="select t_username,t_title from topic where t_id="&chktopic(request("t_id"))&""
set rs=conn.execute(sql)
if not rs.eof then
e_username=rs("t_username")
e_title=rs("t_title")
end if
set rs=nothing
sql="insert into even (e_lanmu,e_topic,e_ip,e_time,e_content,e_username,e_admin) values ("&chktopic(request("l_id"))&","&chktopic(request("t_id"))&",'"&o_ip&"','"&nowtime&"','"&e_content&"','"&e_username&"','"&cpbusername&"')"
conn.execute(sql)
sqlnum="update topic set t_jinhua="&e_title1&" where t_id="&chktopic(request("t_id"))&""
conn.Execute (sqlnum)
sqluser1="update user set fen=fen+"&top_fen&",u_beauty=u_beauty+"&h_topbeauty&",u_money=u_money+"&h_topmoney&" ,u_toptopic=u_toptopic+1 where username='"&e_username&"'"
conn.Execute (sqluser1)
if request("p_send")="1" then
p_content=chktopic(request("p_content"))
admina=cpbusername
q_content="您发表的的主题《"&e_title&"》被加入精华,[url=topic.asp?l_id="&chktopic(request("l_id"))&"&t_id="&chktopic(request("t_id"))&"]地址[/url]"&chr(10)&"结果：经验："&e_fen&";;;魅力："&e_beauty&";;;金钱："&e_money&";;;"&chr(10)&"以下为操作者对你的留言:"&p_content&""
q_title="系统信息"
sqlpm="insert into pm (q_receive,q_title,q_content,q_send) values('"&e_username&"','"&q_title&"','"&q_content&"','"&admina&"')"
conn.Execute(sqlpm)
end if
sqluser1="update user set fen=fen+"&e_fen&",u_beauty=u_beauty+"&e_beauty&",u_money=u_money+"&e_money&" where username='"&e_username&"'"
conn.Execute (sqluser1)
succmsg="
"
call succ(succmsg)
end if
end if
'-------------------------禁止用户--------------
elseif request.querystring("action")="user" then
if request.querystring("mode")="" then
sql="select l_lockuser,l_pbuser,l_title from lanmu where l_id="&request.querystring("l_id")&""
set rs=conn.execute(sql)%>
<% else
e_money=chktopic(trim(request("e_money")))
e_beauty=chktopic(trim(request("e_beauty")))
e_fen=chktopic(trim(request("e_fen")))
e_title=chktopic(trim(request("e_title")))
e_content=chktopic(trim(request("e_content")))
l_lockuser=chktopic(request("l_lockuser"))
l_pbuser=chktopic(request("l_pbuser"))
if e_content="" and e_title="" then
errormsg="
请填写操作理由
"
call error(errormsg)
call bq()
response.end
end if
sql="select t_username,t_title from topic where t_id="&chktopic(request("t_id"))&""
set rs=conn.execute(sql)
if not rs.eof then
e_username=rs("t_username")
e_title=rs("t_title")
end if
e_content="管理用户："&e_title&" 结果：经验："&e_fen&";;;魅力："&e_beauty&";;;金钱："&e_money&";;; 理由:"&e_title&"："&e_content
set rs=nothing
sql="insert into even (e_lanmu,e_topic,e_ip,e_time,e_content,e_username,e_admin) values ("&chktopic(request("l_id"))&","&chktopic(request("t_id"))&",'"&o_ip&"','"&nowtime&"','"&e_content&"','"&e_username&"','"&cpbusername&"')"
conn.execute(sql)
sqluser1="update user set fen=fen+"&top_fen&",u_beauty=u_beauty+"&h_topbeauty&",u_money=u_money+"&h_topmoney&" ,u_toptopic=u_toptopic+1 where username='"&e_username&"'"
conn.Execute (sqluser1)
if request("p_send")="1" then
p_content=chktopic(request("p_content"))
admina=cpbusername
q_content="您因为发表的的主题《"&e_title&"》被屏蔽或者禁止发言或者被取消,[url=topic.asp?l_id="&chktopic(request("l_id"))&"&t_id="&chktopic(request("t_id"))&"]地址[/url]"&chr(10)&"结果：经验："&e_fen&";;;魅力："&e_beauty&";;;金钱："&e_money&";;;"&chr(10)&"以下为操作者对你的留言:"&p_content&""
q_title="系统信息"
sqlpm="insert into pm (q_receive,q_title,q_content,q_send) values('"&e_username&"','"&q_title&"','"&q_content&"','"&admina&"')"
conn.Execute(sqlpm)
end if
sql="update lanmu set l_pbuser='"&l_pbuser&"',l_lockuser='"&l_lockuser&"' where l_id="&request.querystring("l_id")&""
conn.execute(sql)
succmsg="
"
call succ(succmsg)
end if
'-----------------移动------------------------------------------
elseif request.querystring("action")="move" then
sql="select * from topic where t_id="&chktopic(request("t_id"))&""
set rs=conn.execute(sql)
if rs("t_top")=0 and issupermaster=false and ismaster=false then
errormsg="
此主题已经总固定，只有管理员和总版主才可以操作
"
call error(errormsg)
call bq()
response.end
end if
if request.querystring("mode")="" then
%>
topmargin="30" leftmargin="0" >
<% else
e_money=chktopic(trim(request("e_money")))
e_beauty=chktopic(trim(request("e_beauty")))
e_fen=chktopic(trim(request("e_fen")))
e_title=chktopic(trim(request("e_title")))
e_content=chktopic(trim(request("e_content")))
l_id1=chktopic(request.form("l_id"))
if l_id1=chktopic(request.querystring("l_id")) then
errnum=1
errormsg="
请不要在相同论坛间移动
"
end if
if e_content="" and e_title="" then
errnum=1
errormsg=errormsg&"
请填写操作理由
"
end if
if errnum=1 then
call error(errormsg)
call bq()
response.end
end if
e_content="移动主题："&htmlencode(rs("t_title"))&" 结果：经验："&e_fen&";;;魅力："&e_beauty&";;;金钱："&e_money&";;; 理由:"&e_title&"："&e_content
sql="select * from topic where t_id="&chktopic(request("t_id"))&""
set rs=conn.execute(sql)
e_username=rs("t_username")
e_title=rs("t_title")
sql="insert into even (e_lanmu,e_topic,e_ip,e_time,e_content,e_username,e_admin) values ("&chktopic(request("l_id"))&","&chktopic(request("t_id"))&",'"&o_ip&"','"&nowtime&"','"&e_content&"','"&e_username&"','"&cpbusername&"')"
conn.execute(sql)
sql1="select l_title from lanmu where l_id="&chktopic(request.querystring("l_id"))&""
set rs1=conn.execute(sql1)
l_title=rs1("l_title")
set rs1=nothing
t_id=rs("t_id")
t_replynum=rs("t_replynum")
l_id2=rs("l_id")
t_title=htmlencode(rs("t_title"))&"-"&cpbusername&"移-"
t_lastedit1=" 本主题由 "& cpbusername & "于 " & nowtime &"从"&l_title&"论坛转移到此"
set rs=nothing
sqlnum="update topic set l_id="&l_id1&" ,t_title='"&t_title&"',t_lastedit='"&t_lastedit1&"' where t_id="&chktopic(request("t_id"))&""
conn.Execute (sqlnum)
t_lastedit1=" 本回复由 "& cpbusername & "于 " & nowtime &"从"&l_title&"论坛转移到此"
sqlnum="update reply set t_lastedit='"&t_lastedit1&"' where t_id="&chktopic(request("t_id"))&""
conn.Execute (sqlnum)
sql1="update lanmu set l_topiccount=l_topiccount-1,l_count=l_count-"&t_replynum&" where l_id="&l_id2&""
conn.execute(sql1)
sql1="update lanmu set l_topiccount=l_topiccount+1,l_count=l_count+"&t_replynum&" where l_id="&l_id1&""
conn.execute(sql1)
if request("p_send")="1" then
p_content=chktopic(request("p_content"))
admina=cpbusername
q_content="您发表的的主题《"&e_title&"》被移动,[url=topic.asp?l_id="&l_id1&"&t_id="&chktopic(request("t_id"))&"]地址[/url]"&chr(10)&"结果：经验："&e_fen&";;;魅力："&e_beauty&";;;金钱："&e_money&";;;"&chr(10)&"以下为操作者对你的留言:"&p_content&""
q_title="系统信息"
sqlpm="insert into pm (q_receive,q_title,q_content,q_send) values('"&e_username&"','"&q_title&"','"&q_content&"','"&admina&"')"
conn.Execute(sqlpm)
end if
sqluser1="update user set fen=fen+"&e_fen&",u_beauty=u_beauty+"&e_beauty&",u_money=u_money+"&e_money&" where username='"&e_username&"'"
conn.Execute (sqluser1)
succmsg="
"
call succ(succmsg)
end if
'复制---------------------------------------------
elseif request.querystring("action")="copy" then
sql="select * from topic where t_id="&chktopic(request("t_id"))&""
set rs=conn.execute(sql)
if request.querystring("mode")="" then %>
topmargin="30" leftmargin="0" >
"
call succ(succmsg)
end if
'奖励----------------------
elseif request.querystring("action")="gooduser" then
sql="select t_title,t_username from topic where t_id="&chktopic(request("t_id"))&""
set rs=conn.execute(sql)
if request.querystring("mode")="" then%>
<%
else
e_money=chktopic(trim(request("e_money")))
e_beauty=chktopic(trim(request("e_beauty")))
e_fen=chktopic(trim(request("e_fen")))
e_title=chktopic(trim(request("e_title")))
e_content=chktopic(trim(request("e_content")))
if e_content="" and e_title="" then
errormsg="
请填写操作理由
"
call error(errormsg)
call bq()
response.end
end if
e_content="奖励/惩罚该主题："""&htmlencode(rs("t_title"))&"""的作者 结果：经验："&e_fen&";;;魅力："&e_beauty&";;;金钱："&e_money&";;; 理由:"&e_title&"："&e_content
if not rs.eof then e_username=rs("t_username")
sql="insert into even (e_lanmu,e_topic,e_ip,e_time,e_content,e_username,e_admin) values ("&chktopic(request("l_id"))&","&chktopic(request("t_id"))&",'"&o_ip&"','"&nowtime&"','"&e_content&"','"&e_username&"','"&cpbusername&"')"
conn.execute(sql)
if request("p_send")="1" then
p_content=chktopic(request("p_content"))
admina=cpbusername
q_content="您发表的的主题《"&htmlencode(rs("t_title"))&"》被奖励/惩罚,[url=topic.asp?l_id="&chktopic(request("l_id"))&"&t_id="&chktopic(request("t_id"))&"]地址[/url]"&chr(10)&"结果：经验："&e_fen&";;;魅力："&e_beauty&";;;金钱："&e_money&";;;"&chr(10)&"以下为操作者对你的留言:"&p_content&""
q_title="系统信息"
sqlpm="insert into pm (q_receive,q_title,q_content,q_send) values('"&e_username&"','"&q_title&"','"&q_content&"','"&admina&"')"
conn.Execute(sqlpm)
end if
sqluser1="update user set fen=fen+"&e_fen&",u_beauty=u_beauty+"&e_beauty&",u_money=u_money+"&e_money&" where username='"&e_username&"'"
conn.Execute (sqluser1)
succmsg="