chat.asp

来自「这是一个用ASP写的聊天室」· ASP 代码 · 共 25 行

<% 
Response.Expires = 0
action = Request.QueryString("action")
msg = Request.form("msg")
user = Request.form("user")
id = Request.form("id")
If Len(id) = 0 Then
	id = "default"
End If
Application.Lock
If action = "send" Then
	list = Application(id)
	list = list + user + ": " + msg + chr(13)
	Application(id) = list
End If
If action = "clear" Then
	list = ""
	Application(id) = list
End If
If action = "update" Then
	list = Application(id)
End If
Application.Unlock
response.write("list="+Server.URLEncode(list))
%>