index.asp
<html>
<frameset rows="*,60">
<frame name="message" src="message.asp">
<frame name="say" src="say.asp">
</frameset><noframes></noframes>
</html>
message.asp
<html><head>
<title>显示发言页面</title>
<meta http-equiv="refresh" content="5">
</head>
<body>
<% Response.Write Application("strChat") '显示聊天内容 %>
</body>
</html
say.asp
<html>
<body>
<form name="form1" method="post" action="">
昵称：<input type="text" name="txtName" size="10">
发言：<input type="text" name="txtSay" size="30">
<input type="submit" value=" 发送 ">
</form>
<%
'如果提交了表单，就将发言内容添加到Application对象中
If Trim(Request.Form("txtName"))<>"" And Trim(Request.Form("txtSay"))<>"" Then
'下面获取本次发言字符串，包括发言人和发言内容
Dim strSay
strSay=Request.Form("txtName") & "在" &Now()& "说：" & Request.Form("txtSay") & "<br>"
'下面将本次发言添加到聊天内容中
Application.Lock '先锁定
Application("strChat")=strSay & Application("strChat")
Application.Unlock '解除锁定
End if
%>
</body> </html>
求助大神如何在这个简易聊天室中选择和使用表情，以及显示在线成员。
拜托！拜托