<!--#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-application( ConstStr & "_superlevel")<>0 then
  set cschat=nothing
  response.end
end if

Set Conn=Server.CreateObject("ADODB.Connection")
conn.open "DBQ="+server.mappath("questions.asp")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"

addexp=cstr(request("addexp"))
if addexp<>"" and IsNumeric(addexp) then
  if left(addexp,1)="0" then
    sql="update questlib set addexp=addexp + "&addexp
  elseif left(addexp,1)="-" then
    sql="update questlib set addexp=addexp "&addexp
  else
    sql="update questlib set addexp="&addexp
  end if
  conn.Execute(sql)
  Response.Write "<meta http-equiv='Content-Type' content='text/html; charset=gb2312'><meta http-equiv='pragma' content='no-cache'><body>"
  Response.Write "<script Language=JavaScript>"
  Response.Write "alert('您成功进行了操作');history.go(-1);"
  Response.Write "</script>"
end if
set cschat=nothing
conn.close
set conn=nothing%>











