<!-- #include file="../inc.asp" -->
<!-- #include file="../ydzq.asp" -->
<!-- #include file="saypz.asp" --><%
call head
If keys=1 then
else
call error("权限不足")
end if
If Request("SubmitFlag") <> "" Then
dim YD_Config1,YD_File1
YD_File1= Server.MapPath("saypz.asp")
YD_Config1="<%"
YD_Config1=YD_Config1+chr(13)&chr(10)&"gbnrzs="""&Request.Form("gbnrzs")&""""
YD_Config1=YD_Config1+chr(13)&chr(10)&"%"&">"
Call CreatedTextFiles(YD_File1,YD_Config1)

Call cardz("配置成功","index.asp?sid="&sid&"&amp;saytk="&saytk&"")

Response.Write "成功设置！正在返回..."
Else
Call saycardd("广播配置")
%>
<%if saytk>1 then
Response.write "<form name=""form"" method=""post"" action=""saytkdbsz.asp?SubmitFlag=true&amp;sid="&sid&"&amp;saytk="&saytk&""">"%>

广播字数:<input name="gbnrzs" type="text" value="<%=ubb1(gbnrzs)%>"/><br/>
<%response.write "<input type=""submit"" name=""Submit"" value=""配置文件""></form>"%>
<%else%>
广播字数:<input name="gbnrzs<%=minute(now)%><%=second(now)%>" type="text" value="<%=ubb1(gbnrzs)%>"/><br/>
<anchor>[确定配置]
<go href="sz.asp?SubmitFlag=true&amp;sid=<%=sid%>&amp;saytk=<%=saytk%>" method="post">
<postfield name="gbnrzs" value="$(gbnrzs<%=minute(now)%><%=second(now)%>)"/>
</go>
</anchor>
<%end if




end if
%><br/><a href="index.asp?sid=<%=sid%>&amp;saytk=<%=saytk%>">返回广播</a><br/><%
call head1%>