
<!--#include file="../inc.asp"-->
<!--#include file="../ydzq.asp"-->
<!--#INCLUDE file="conn1.asp"-->

<%call head()
call saycardd("江湖后台")
tp=request("tp")
   set rs=Server.CreateObject("ADODB.Recordset")
  rs.open"select top 1 id from users order by id",conn,1,1
if keys<>1 or myid<>rs("id") then
call error("抱歉您还不是管理员无法操作")
end if
if tp=1 then
if Request("jhnc")="" then
call error("抱歉江湖名不能为空")
end if
if Request("em1")="" then
call error("抱歉恶魔大门开启时间不能为空")
end if
if Request("em2")="" then
call error("抱歉恶魔大门关闭时间不能为空")
end if


dim YD_Config,YD_File
YD_File= Server.MapPath("shezhi1.asp")'生成admin.asp文件路径
YD_Config="<%"
YD_Config=YD_Config+chr(13)&chr(10)&"jhnc="""&Request.Form("jhnc")&"""" '江湖名
YD_Config=YD_Config+chr(13)&chr(10)&"logo1="""&Request.Form("logo1")&"""" 'LOGO
YD_Config=YD_Config+chr(13)&chr(10)&"jhltid="""&Request.Form("jhltid")&"""" '恶魔大门关闭时间
YD_Config=YD_Config+chr(13)&chr(10)&"%"&">"
Call CreatedTextFiles(YD_File,YD_Config)
response.Write"设置成功"
else
call xlanlj("shezhi.asp?saytk="&saytk&"&amp;sid="&sid&"")
response.Write"江湖名：<br/>"
response.Write"<input name=""jhnc"" type=""text"" value="""&ubb1(jhnc)&"""/><br/>"
response.Write"LOGO：<br/>"
response.Write"<input name=""logo1"" type=""text"" value="""&ubb1(logo1)&"""/><br/>"
response.Write"江湖论坛指定ID：<br/>"
response.Write"<input name=""jhltid"" type=""text"" value="""&ubb1(jhltid)&"""/><br/>"
if saytk>1 then
call xltjlj("tp","1")
call xlanlj1("确定设置")
else
response.Write"<anchor>[确定设置]"
response.Write"<go href=""shezhi.asp?sid="&sid&"&amp;saytk="&saytk&""" method=""post"">"
response.Write"<postfield name=""jhnc"" value=""$(jhnc)""/>"
response.Write"<postfield name=""logo1"" value=""$(logo1)""/>"
response.Write"<postfield name=""jhltid"" value=""$(jhltid)""/>"
response.Write"<postfield name=""tp"" value=""1""/>"
response.Write"</go></anchor>"
end if


     liao.Close
      Set liao=Nothing

end if




%><br/>
-----------<br/>
<a href="/bbs/yxxe/index.asp?sid=<%=sid%>&amp;saytk=<%=saytk%>">江湖首页</a><br/>
<a href="/bbs/index.asp?sid=<%=sid%>&amp;saytk=<%=saytk%>">社区首页</a><br/>
<a href="/BBS/index.asp?sid=<%=sid%>&amp;saytk=<%=saytk%>">网站首页</a><br/>
<%call head1()%>