<!--#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 Application( ConstStr & "_connstr")

set rs=conn.execute("select * from sysparam where alias like 'question%'")
if rs.eof or rs.bof then
  conn.execute "insert into sysparam (alias,guidetxt,body) values ('enablequestion','是否允许答题(0禁止，1允许)','0')"
  conn.execute "insert into sysparam (alias,guidetxt,body) values ('questionautoman','答题节目主持人','聪明小博士')"
  conn.execute "insert into sysparam (alias,guidetxt,body) values ('questionroomid','答题所在的房间编号(-2所有房间，1为第一个房间)','-2')"
  conn.execute "insert into sysparam (alias,guidetxt,body) values ('questionminpeople','答题最小在线人数(低于此不产生)','20')"
  conn.execute "insert into sysparam (alias,guidetxt,body) values ('questionmaxpeople','答题最大在线人数(高于此不产生)','200')"
  conn.execute "insert into sysparam (alias,guidetxt,body) values ('questionasktimes','答题提示次数(每一分钟提示一次，超过几次自动取消)','2')"
  conn.execute "insert into sysparam (alias,guidetxt,body) values ('questiontimeinterval','每次答题完毕后和下一次答题之间的时间间隔(分钟)','2')"
  conn.execute "insert into sysparam (alias,guidetxt,body) values ('showloseanswer','是否显示不正确回答信息(0隐藏，1显示)','0')"
  conn.execute "insert into sysparam (alias,guidetxt,body) values ('questionaskshow','答题提问格式[用两个冒号隔开的是发言颜色和姓名颜色]','##：智力竞赛开始啦！<big style=color:red><b>$Q</b>[$T]</big>，有谁知道？答对有奖！::#008888::#000099')"
  conn.execute "insert into sysparam (alias,guidetxt,body) values ('questionloseshow','答题失败格式[用两个冒号隔开的是发言颜色和姓名颜色]','##：<big style=color:red><b>$Q</b>[$T]</big>，%%的答案是：<u style=color:red>$A</u>，跟正确答案差得不远哟。大家继续努力呀！::#008888::#000099')"
  conn.execute "insert into sysparam (alias,guidetxt,body) values ('answersuccessshow','答题回答成功格式[用两个冒号隔开的是发言颜色和姓名颜色]','##：%%给出了正确的答案：<u style=color:red>$A</u>，%%获得$N点经验值的奖励！我好崇拜%%呀！::#008888::#000099')"
  conn.execute "insert into sysparam (alias,guidetxt,body) values ('questionendshow','答题结束格式[用两个冒号隔开的是发言颜色和姓名颜色]','##：<big style=color:red><b>$Q</b>[$T]</big>，这么简单的问题居然没有人知道？我忙其他的去了。回头见！::#008888::#000099')"
end if
conn.close
set conn=nothing
cschat.ConstStr=ConstStr
cschat.preglobal_1 application
set cschat=nothing
errText="<font color=green>操作成功</font>：你成功地在数据库里添加了答题参数设置！"
response.redirect("showerr.asp?errtext="&errtext)%>








