📄 man_gonggaook.asp

📁 基于ASP开发的聊天室源码
💻 ASP
字号:
<!--#INCLUDE FILE="config.asp" -->
<script language="jscript" runat="server">
function check(v)
{
v=escape(v)
return v
}
</script>
<script language="vbscript" runat="server">
dim gg,html
if not IsArray(Session("info")) then Response.Redirect "err.asp?kind=20"
info=Session("info")
if InStr(Application("maninfo"),"," & info(0) & ",")<>0 then Response.Redirect "manyou.asp"
gradeinfo=Application("gradeinfo")
if gradeinfo(info(1),23)<>true then Response.Redirect "err1.asp?kind=15"
html=Request.Form("html")
gg=Request.Form("gg")
if len(gg)>300 then Response.Redirect "err2.asp?kind=05"
gg=server.HTMLEncode(gg)
gg=check(gg)
if zzbird_gonggao=gg then Response.Redirect "err2.asp?kind=09"

set fso=server.createobject("scripting.filesystemobject")
file=server.mappath("config.asp")
set fs=fso.opentextfile(file,2,true)
fs.writeline "<" & "%"
fs.writeline "const zzbird_chatroomname=" & chr(34) & zzbird_chatroomname & chr(34)
fs.writeline "const zzbird_master=" & chr(34) & zzbird_master & chr(34)
if zzbird_open=true then 
 fs.writeline "const zzbird_open=true"
else
 fs.writeline "const zzbird_open=false"
end if
if zzbird_reg=true then
 fs.writeline "const zzbird_reg=true"
else
 fs.writeline "const zzbird_reg=false"
end if
fs.writeline "const zzbird_intochat=" & chr(34) & zzbird_intochat & chr(34)
fs.writeline "const zzbird_outchat=" & chr(34) & zzbird_outchat & chr(34)
fs.writeline "const zzbird_outdown=" & chr(34) & zzbird_outdown & chr(34)
fs.writeline "const zzbird_drop=" & chr(34) & zzbird_drop & chr(34)
fs.writeline "const zzbird_changename=" & chr(34) & zzbird_changename & chr(34)
fs.writeline "const zzbird_kick=" & chr(34) & zzbird_kick & chr(34)
fs.writeline "const zzbird_ip=" & chr(34) & zzbird_ip & chr(34)
fs.writeline "const zzbird_unip=" & chr(34) & zzbird_unip & chr(34)
fs.writeline "const zzbird_hongzha=" & chr(34) & zzbird_hongzha & chr(34)
fs.writeline "const zzbird_kick_long=" & zzbird_kick_long
fs.writeline "const zzbird_ip_long=" & zzbird_ip_long
fs.writeline "const zzbird_hongzha_long=" & zzbird_hongzha_long
fs.writeline "const zzbird_delnameday=" & zzbird_delnameday
fs.writeline "const zzbird_clsmax=" & zzbird_clsmax
fs.writeline "const zzbird_savevaluetime=" & zzbird_savevaluetime
fs.writeline "const zzbird_reloadtime=" & zzbird_reloadtime
fs.writeline "const zzbird_badwordtime=" & zzbird_badwordtime
fs.writeline "const zzbird_timeout=" & zzbird_timeout
fs.writeline "const zzbird_chatbg=" & chr(34) & zzbird_chatbg & chr(34)
fs.writeline "const zzbird_chatbgpic=" & chr(34) & zzbird_chatbgpic & chr(34)
fs.writeline "const zzbird_chattext=" & chr(34) & zzbird_chattext & chr(34)
fs.writeline "const zzbird_chatfontsize=" & chr(34) & zzbird_chatfontsize & chr(34)
fs.writeline "const zzbird_saybg=" & chr(34) & zzbird_saybg & chr(34)
fs.writeline "const zzbird_saybgpic=" & chr(34) & zzbird_saybgpic & chr(34)
fs.writeline "const zzbird_saytext=" & chr(34) & zzbird_saytext & chr(34)
fs.writeline "const zzbird_titlebg=" & chr(34) & zzbird_titlebg & chr(34)
fs.writeline "const zzbird_titlebgpic=" & chr(34) & zzbird_titlebgpic & chr(34)
fs.writeline "const zzbird_titletext=" & chr(34) & zzbird_titletext & chr(34)
fs.writeline "const zzbird_butbg=" & chr(34) & zzbird_butbg & chr(34)
fs.writeline "const zzbird_buttext=" & chr(34) & zzbird_buttext & chr(34)
fs.writeline "const zzbird_selectbg=" & chr(34) & zzbird_selectbg & chr(34)
fs.writeline "const zzbird_selecttext=" & chr(34) & zzbird_selecttext & chr(34)
fs.writeline "const zzbird_gonggao=" & chr(34) & gg & chr(34)
fs.writeline "const zzbird_disip=" & chr(34) & zzbird_disip & chr(34)
fs.writeline "%" & ">"
fs.close
set fs=nothing
set fso=nothing
</script>
<html>
<head>



<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>公告管理</title>
<style>
<!--
fieldset     { font-size: 10pt }
-->
</style>

</head>
<body bgcolor="buttonface" style="border: 3px double buttonface">
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="46%" id="AutoNumber1" height="62">
  <tr>
    <td width="100%" height="150">
      <fieldset style="padding: 2; width:281; height:142">
      <legend><img border="0" src="images/sys.gif">公告管理</legend>
       <p align="center">公告已经成功更改，聊友可以在进入聊天室或刷新浏览器的时候看到此公告。</p>
      </fieldset>
    </td>
  </tr>
  <tr>
    <td width="100%" align="right"><input type="button" value="上一步" name="a1" onclick="history.back(1)"><input type="button" value="下一步" name="a2" disabled>
    <input type="button" value="完成" name="a3" onclick="javascript:window.close();"><input type="button" value="取消" name="a4" disabled></td>
  </tr>
</table>
</body>
</html>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -