<%@ LANGUAGE=VBScript codepage ="936" %><%Response.Expires=0
Response.Buffer=true
cwjh_name=Session("cwjh_name")
cwjh_grade=Session("cwjh_grade")
cwjh_jhdj=Session("cwjh_jhdj")
if cwjh_name="" then Response.Redirect "../error.asp?id=440"
if session("cwjh_adminok")<>true then Response.Redirect "../chat/readonly/bomb.htm"
if cwjh_grade<>10 or instr(Application("cwjh_admin"),cwjh_name)=0  then Response.Redirect "../error.asp?id=439"
%>
<!--#include file="config.asp"-->
<%
bei=abs(request.form("moneybei"))
lx=trim(request.form("lx"))
if bei>=0 then
	Set conn=Server.CreateObject("ADODB.CONNECTION")
	Set rs=Server.CreateObject("ADODB.RecordSet")
	conn.open Application("cwjh_usermdb")
	conn.Execute "update b set h=(abs(d)+abs(e)+abs(f)+abs(g))*"& bei &"  where b='"& lx &"'"
	conn.close
	set conn=nothing	
Response.Redirect "../ok.asp?id=700"
end if
%>