<!--#include file="conn3.asp"-->
<%if session("checkad")<>true then
response.end
end if
set rs=server.createobject("adodb.recordset")
result=request("result")
id=request("id")
bg=request("bg")
my=request("my")
if result="罚款100" then
sql="update user set userwealth=userwealth-100 where username='"&bg&"'"  
conn.Execute(sql)
sql="update user set userwealth=userwealth+100 where username='"&my&"'"  
conn.Execute(sql)
end if
if result="罚款500" then
sql="update user set userwealth=userwealth-500 where username='"&bg&"'"  
conn.Execute(sql)
sql="update user set userwealth=userwealth+500 where username='"&my&"'"  
conn.Execute(sql)
end if
if result="罚款1000" then
sql="update user set userwealth=userwealth-1000 where username='"&bg&"'"  
conn.Execute(sql)
sql="update user set userwealth=userwealth+1000 where username='"&my&"'"  
conn.Execute(sql)
end if
if result="罚款5000" then
sql="update user set userwealth=userwealth-5000 where username='"&bg&"'"  
conn.Execute(sql)
sql="update user set userwealth=userwealth+5000 where username='"&my&"'"  
conn.Execute(sql)
end if
if result="罚款10000" then
sql="update user set userwealth=userwealth-10000 where username='"&bg&"'"  
conn.Execute(sql)
sql="update user set userwealth=userwealth+10000 where username='"&my&"'"  
conn.Execute(sql)
end if
if result="扣除魅力100" then
sql="update user set usercp=usercp-100 where username='" & bg & "'"
conn.execute sql
end if
if result="扣除魅力300" then
sql="update user set usercp=usercp-300 where username='" & bg & "'"
conn.execute sql
end if
if result="等级降一" then
sql="update user set userclass=userclass-1 where username='" & bg & "'"
conn.execute sql
end if
if result="等级降二" then
sql="update user set userclass=userclass-2 where username='" & bg & "'"
conn.execute sql
end if
if result="贬为平民" then
sql="update user set userclass=0 where username='" & bg & "'"
conn.execute sql
end if
if result="禁闭思过" then
sql="update user set lockuser=1 where username='" & bg & "'"
conn.execute sql
end if
if result="注销ＩＤ" then
sql="update user set userdel=1 where username='" & bg & "'"
conn.execute sql
end if
if result="离婚" then
sql="update user set wife="" where username='" & bg & "'"
conn.execute sql
end if
%>
<!--#include file="connfy.asp"-->
<%
sql="update bbs set 结果='1' where id=" & id & ""
conn1.execute sql
Response.Redirect "manage.asp"
%>
