📄 chat.asp
字号:
<%
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))
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -