进入聊天室

输入呢称：

 

发表谈话

***** 说话：

离开聊天室

聊天室 ASP 代码（P192）

1.进入聊天室表单

  输入呢称

8 <input type="text" name="nick" size="20">

10 <input type="submit" value="进入聊天室" name="B1">

Session("nick")=Request.Form("nick")

2.发表谈话表单

24 <%=Server.HTMLEncode(Session("nick"))%>说话：

25 <input type="text" name="talk">

3.输出谈话内容

<%

39 talk=Server.HTMLEncode(Trim(Request.Form("talk")))

Application.Lock

42 Application("show")="来自"

&Request.ServerVariables("REMOTE_ADDR")

&"的"

&Server.HTMLEncode(Session("nick"))

&time

&"说"

48 &talk

&"。"

49 &Application("show")

Application.UnLock

57 Response.Write(Application("show"))

%>

4.离开聊天室

33 <a href="chat.asp">离开聊天室</a>