<!--#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="罚款一千" then
sql="update user set userwealth=userwealth-1200 where username='"&my&"'"  
conn.Execute(sql)
sql="update user set userwealth=userwealth+1200 where username='"&bg&"'"  
conn.Execute(sql)
end if
if result="罚款两千" then
sql="update user set userwealth=userwealth-2200 where username='"&my&"'"  
conn.Execute(sql)
sql="update user set userwealth=userwealth+2200 where username='"&bg&"'"  
conn.Execute(sql)
end if
if result="罚款五千" then
sql="update user set userwealth=userwealth-5200 where username='"&my&"'"  
conn.Execute(sql)
sql="update user set userwealth=userwealth+5200 where username='"&bg&"'"  
conn.Execute(sql)
end if
if result="罚款一万" then
sql="update user set userwealth=userwealth-10200 where username='"&my&"'"  
conn.Execute(sql)
sql="update user set userwealth=userwealth+10200 where username='"&bg&"'"  
conn.Execute(sql)
end if
if result="罚款五万" then
sql="update user set userwealth=userwealth-50200 where username='"&my&"'"  
conn.Execute(sql)
sql="update user set userwealth=userwealth+50200 where username='"&bg&"'"  
conn.Execute(sql)
end if
if result="降一级" then
sql="update user set userclass=userclass+1 and userwealth=userwealth+200 where username='" & bg & "'"
conn.execute sql
end if
if result="降二级" then
sql="update user set userclass=userclass+2 and userwealth=userwealth+200 where username='" & bg & "'"
conn.execute sql
end if
if result="打回原形" then
sql="update user set userclass=4 and userwealth=userwealth+1000 where username='" & bg & "'"
conn.execute sql
end if
if result="坐牢" then
sql="update user set lockuser=0 and userwealth=userwealth+2000 where username='" & bg & "'"
conn.execute sql
end if
if result="斩首" then
sql="update user set userdel=0 and userwealth=userwealth+5000 where username='" & bg & "'"
conn.execute sql
end if
if result="离婚" then
sql="update user set wife="" where username='" & bg & "'"
conn.execute sql
end if
if result="魅力减一百" then
sql="update user set usercp=usercp+120 where username='" & bg & "'"
conn.execute sql
sql="update user set usercp=usercp-20 where username='" & my & "'"
conn.execute sql
end if
if result="魅力减三百" then
sql="update user set usercp=usercp+320 where username='" & bg & "'"
conn.execute sql
sql="update user set usercp=usercp-20 where username='" & my & "'"
conn.execute sql
end if
%>
<!--#include file="connfy.asp"-->
<%
sql="update bbs set 结果='2' where id=" & id & ""
conn1.execute sql
Response.Redirect "manage.asp"
%>
