<!--#include file="conn3.asp"-->
<%if session("checkad")<>true then
response.end
end if
set rs=server.createobject("adodb.recordset")
id=request("id")
bg=request("bg")
my=request("my")
sql="update user set userwealth=userwealth-1000 where username='"&my&"'"  
conn.Execute(sql)
sql="update user set userwealth=userwealth+1000 where username='"&bg&"'"  
conn.Execute(sql)

%>

<!--#include file="connfy.asp"-->
<%
id=request("id")
sql="update bbs set ½á¹û='4' where id=" & id & ""
conn1.execute sql
conn1.close
set conn=nothing
Response.Redirect "manage.asp"
%>