logo.asp
用户登陆页面
<%
if request.Form("nameid")<>"" then
session("name")=request.Form("nameid")
end if
%>
xia.asp
用户发言区域
<%
if trim(request("liuyan"))<>"" thenapplication.Lock
application("name")=session("name")
application("show")=request("liuyan")&"<br>"&application("show")
application.UnLock
end if
%>
shang.asp
显示发言信息区域
<%
response.Write application("name")
response.Write application("show")
%>
我是这样写的代码,,可以互相聊天,但不能记录发言人的名称