<!--#include file="inc_const.asp"-->
<%response.expires=0
Response.CacheControl = "Private"
application.lock

set cschat=server.createobject("ffcschat.cssbchat")
my_level=cschat.getLevel(Session,Application(ConstStr & "_user_list"),Application(ConstStr & "_room_list"))

application.unlock
if my_level=0 then
  set cschat=nothing
  response.redirect("showerr.asp")  
  response.end
end if
myname=cschat.myname
room_id=cschat.room_id

if my_level-application( ConstStr & "_superlevel")=0 then myname="管理员"



dim connbbs
dim sqlbbs
money=request.QueryString("exp_num")
membername=request.QueryString("username")

 Set connbbs=Server.CreateObject("ADODB.CONNECTION")
 connbbs.open Application(ConstStr & "_connstr")
sqlbbs="update user set exp_num=exp_num-"& money & " where username='" & membername & "'"
		connbbs.execute sqlbbs

 errText="你应成功的划走了"& money & "点经验值，请不要忘了送祝福给他，且及时删除改条信息，以免重复划款！"
  
  connbbs.close
  set connbbs=nothing
	response.redirect("showerr.asp?errtext="&errtext)%>

	