📄 quitchat.asp
字号:
<%@ LANGUAGE = "VBScript" %>
<%response.buffer=true%>
<%
application.lock
Application("UserNum")=Application("UserNum")-1
Application("show")="<p><font color='#1e90ff'>"&session("UserName") &"</font> 离开聊天室...(Leave this chat room)</p>" &Application("show")
application.unlock
str="<OPTION value="&session("UserName")&">"&session("UserName")&"</option>"
if instrrev(application("listname"),str)<>0 then
del_start=instr(application("listname"),str)-1
del_end=del_start+len(str)
str_start=left(application("listname"),del_start)
str_end=right(application("listname"),len(application("listname")) -del_end)
application.lock
application("listname")=str_start+str_end
application.unlock
end if
Session("Leave")=true
'Session.Abandon
response.redirect "enter.asp"
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -