<!-- #include file="conn.asp" -->
<!-- #include file="admin.asp" -->
<%Call Head()%>
<%If Request("SubmitFlag") <> "" Then

       
'----------------------------------------------------------------
'			生成confignew.asp文件
'----------------------------------------------------------------
dim YD_Config,YD_File

YD_File= Server.MapPath("/inc/pz/confignew.asp")'生成configsell.asp文件路径

YD_Config="<%"
YD_Config=YD_Config+chr(13)&chr(10)&"restrcontent=Array("&Request.Form("restrcontent")&")" '如果还要加入，请在上面后面的括号前加入：,"XXX""
YD_Config=YD_Config+chr(13)&chr(10)&"%"&">"
Call CreatedTextFiles(YD_File,YD_Config)
Call cardz("配置成功","saytkpz.asp?sid="&sid&"&amp;saytk="&saytk&"")

Response.Write "成功设置！正在返回..."
Else
Call saycardd("配置")
%>
注意,此处设置需严格按照格式输入，否则出错，切记(具体格式参见功能帮助)<br/>
快捷回复:<input name="restrcontent<%=minute(now)%><%=second(now)%>" type="text" value=""/><br/>
<anchor>[配置文件]
<go href="confignew.asp?SubmitFlag=true&amp;saytk=<%=saytk%>&amp;sid=<%=sid%>" method="post">
<postfield name="restrcontent" value="$(restrcontent<%=minute(now)%><%=second(now)%>)"/>
</go>
</anchor>
<%end if%><br/>
<a href="index.asp?saytk=<%=saytk%>&amp;sid=<%=sid%>">[后台管理]</a><br/>
</p></card></wml>