<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="cf.asp"-->
<%
Session("cfxybbsusername")=request.cookies("username")&Application("username"&forum_sn)

%>

<html>
<head>

<style>
A:link,A:active,A:visited{TEXT-DECORATION:none }
A:hover{TEXT-DECORATION: underline}
BODY,TD{
FONT-SIZE: 12px;
FONT-FAMILY: "Verdana,宋体";
}
</style>
<%response.write "</head><link href=images/skins/"&Request.Cookies("skins")&"/bbs.css rel=stylesheet>"%>
</head>
<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<script language="VBScript">
Sub Button_OnClick1()
if Document.cf.message.Value<>"" then
if right(Document.cf.message.Value,1)="\" and not right(Document.cf.message.Value,2)="\\" then Document.cf.message.Value=Document.cf.message.Value&"\"
parent.cfchuli.location="cfchuli.asp?message=" & Document.cf.message.Value
Document.cf.message.Value=""
Document.cf.message.focus()
end if
end sub

Sub Button_OnClick2()
if Document.cf.message.Value = "" then
if right(Document.cf.message.Value,1)="\" and not right(Document.cf.message.Value,2)="\\" then Document.cf.message.Value=Document.cf.message.Value&"\"
parent.cfchuli.location="cfchuli.asp?message=" & Document.cf.message.Value
Document.cf.message.Value=""
Document.cf.message.focus()
end if
end sub
</script>
<table width="100%" border="0" cellspacing="0" cellpadding="4" class="a4">
<tr align="center"><form name="cf" method="post" action="cfchuli.asp">
<td>
<b>发言：</b><input type="text" name="message" value="<%=request("message")%>" maxlength=70 size=46>　<input value=" 发 送 " width="45" height="20" type=button onclick="Button_OnClick1()">　<%if guanlicheck(session("cfxybbsusername")) then response.write "<input value=' 清 空 ' width='45' height='20' type=button onclick='Button_OnClick2()'> 　<a href='cfedit.asp' target='_blank'><font title=删除或修改聊天记录>管 理</font></a>" end if %>
</td>
</form></tr>
</table>
</body>
</html>
