<!-- #include file="../include/skin.asp" -->
<%
tit="聊天编辑"
call web_head(0,0,5,0,0)
%>
</head>
<body  leftmargin="0" topmargin="0" marginwidth="0" marginheight="0"><center>
<%
if login_mode<>"admin" then 
 response.write "<script language=javascript>alert(""您没有管理权限！"");</script>"
 response.end
else
select case action
case "clean"
 Application.lock 
 Application("message")=""
 Application.unlock
 response.write "<script language=javascript>parent.showmsg.location.href='chat_showmsg.asp';parent.sendm.location=""chat_send.asp"";</script>"
case "editchk"
 Application.lock 
 Application("message")=request("editword")
 Application.unlock
case else
 call chat_edit()
end select
end if
%>
</center>
</body> 
</html>
<%
call web_clears(1)

sub chat_edit()
%>
<table width="100%" border="0" cellpadding="0" cellspacing="0" onsubmit="javascript:window.close();">
<form name="edit" action="?action=editchk" method="POST">
<tr><td align="center"><textarea name="editword" cols="120" rows="25"><%=Application("message")%></textarea></td></tr>
<tr><td align="center"><input type="submit" value="提交" name="B1" onclick="javascript:window.close();">&nbsp;&nbsp;<input type="reset" value="还原" name="B2"></td></tr>
</form>
</table>
<%
end sub

%>