<!--#include file="../Inc.asp"-->
<!--#include file="../ydzq.asp"-->
<%call head()
Call saycardc(""&zonene&"")

dim TP,zonejb,zonenum,chatjb,zoneyuejb
TP=request("TP")
IF TP<>"" then

zonejb=request("zonejb")
zonenum=request("zonenum")
chatjb=request("chatjb")
zoneyuejb=request("zoneyuejb")
if zonejb="" or Isnumeric(zonejb)=False then
  Call Error("数目无效！")
end if
if zonenum="" or Isnumeric(zonenum)=False then
  Call Error("数目无效！")
end if
if chatjb="" or Isnumeric(chatjb)=False then
  Call Error("数目无效！")
end if
if zoneyuejb="" or Isnumeric(zoneyuejb)=False then
  Call Error("数目无效！")
end if
set rs=Server.CreateObject("ADODB.Recordset")
rs.open"select zonejb,zonenum,chatjb,zoneyuejb from twapp",conn,1,2
rs("zonenum")=zonenum
rs("zonejb")=zonejb
rs("chatjb")=chatjb
rs("zoneyuejb")=zoneyuejb
rs.update
rs.close
set rs=nothing
response.write""&zonene&"设置成功！"

ELSE
set rs=Server.CreateObject("ADODB.Recordset")
rs.open"select zonejb,zonenum,chatjb,zoneyuejb from twapp",conn,1,1
if not rs.eof then
zonenum=rs("zonenum")
zonejb=rs("zonejb")
chatjb=rs("chatjb")
zoneyuejb=rs("zoneyuejb")
end if
rs.close
set rs=nothing
response.write"创建"&zonene&"需"&getcent&"数<br/>"
if saytk>1 then
Response.write "<form name=""form"" method=""post"" action=""zoneset.asp?sid="&sid&"&amp;saytk="&saytk&""">"
response.write"<input name=""zonejb"" value="""&zonejb&"""/><br/>"
response.write""&zonene&"开放论坛所需成员数<br/>"
response.write"<input name=""zonenum"" value="""&zonenum&"""/><br/>"
response.write""&zonene&"聊天室申请所需"&getcent&"数<br/>"
response.write"<input name=""chatjb"" value="""&chatjb&"""/><br/>"
response.write""&zonene&"每日收税"&getcent&"数<br/>"
response.write"<input name=""zoneyuejb"" value="""&zoneyuejb&"""/><br/>"
response.write "<input type=""hidden"" name=""tp"" value=""1""/>"
response.write "<input type=""submit"" name=""Submit"" value=""确定设置""></form><br/>"
else
response.write"<input name=""zonejb"&tt&""" value="""&zonejb&"""/><br/>"
response.write""&zonene&"开放论坛所需成员数<br/>"
response.write"<input name=""zonenum"&tt&""" value="""&zonenum&"""/><br/>"
response.write""&zonene&"聊天室申请所需"&getcent&"数<br/>"
response.write"<input name=""chatjb"&tt&""" value="""&chatjb&"""/><br/>"
response.write""&zonene&"每日收税"&getcent&"数<br/>"
response.write"<input name=""zoneyuejb"&tt&""" value="""&zoneyuejb&"""/><br/>"
response.write"<anchor>[确定设置]<go href='zoneset.asp?sid="&sid&"&amp;saytk="&saytk&"' method='post' accept-charset='utf-8'>"
response.write"<postfield name='zonejb' value='$(zonejb"&tt&")'/>"
response.write"<postfield name='zonenum' value='$(zonenum"&tt&")'/>"
response.write"<postfield name='chatjb' value='$(chatjb"&tt&")'/>"
response.write"<postfield name='zoneyuejb' value='$(zoneyuejb"&tt&")'/>"
response.write"<postfield name='TP' value='1'/>"
response.write"</go></anchor>"end if
END IF
conn.close
set conn=nothing
response.write"<br/><a href=""adminbbs.asp?sid="&sid&"&amp;saytk="&saytk&""">["&zonene&"管理]</a>"

%><!--#include file="fanhui.asp"-->
<%
call headsay()%>
