<!-- #INCLUDE FILE="include/config.asp" -->
<!--#include file="include/conn.asp"-->
<%
dim chatuser,username
username=trim(request.querystring("username"))
if var_null(login_username)="" then
chatuser=request.cookies("joekoe_online")("guest_name")
else
chatuser=login_username
end if
%>
<html>
<head>
<title>聊天室</title>
<meta http-equiv=Content-Type content=text/html; charset=gb2312 charset=gb2312>
<link rel=stylesheet href='images/joekoe.css' type=text/css>
<script language=javascript src='style/em_type.js'></script>
</head>
<body topmargin=0 leftmargin=0 bgcolor=<%response.write web_var(web_color,1)%>>
<form name=write_frm method="post" action="chat/pros.asp" target="pros">
<input type=hidden name=chatuser value='<%response.write chatuser%>'>
<TABLE width="100%" border=1 align=center cellPadding=0 cellSpacing=0 bordercolor="#0066FF">
<tr><td align=center valign=middle>
<% if chatuser="爱在西元前" then response.write "<a href='chat/editm.asp' target='_blank'><b>管理</b></a>" end if %>
&nbsp;&nbsp;<font class=blue><%response.write chatuser%></font>&nbsp;对 &nbsp;
<select name=username>
<option value="大家"<%if username="大家" then response.write " selected"%>>大家</option>
<%
sql="select l_username from user_login order by l_id"
set rs=conn.execute(sql)
do while not rs.eof
response.write "<option value="&rs("l_username")&""
if rs("l_username")=username then response.write " selected"
response.write ">"&rs("l_username")&"</option>"
rs.movenext
loop
rs.close:set rs=nothing
%>
</select>&nbsp;说：</td></tr>
<tr><td align=center valign=middle><input name="jk_word" type="text" value="" size="75">&nbsp;
<INPUT type=submit value=发送 name=send></td></tr>
<tr><td align=center valign=middle>
<a href=help.asp?action=ubb target=_blank><b>UBB帮助</b></a>&nbsp;&nbsp;
<script language=javascript>jk_em_type('s');</script></td></tr>
</table></form>
</body> 
</html>
