chat_quit.asp

来自「asp 网站开发技术介绍」· ASP 代码 · 共 31 行

ASP
31
字号
<%response.buffer=true%>
<Html>
<Head><Title>退出聊天室</Title>
<Meta http-equiv = "Content-Type" Content = "text/html; charset = gb2312">
<Meta name = "Keywords" content = "ljy">
</Head>
<Body>
<%
str="<p>"
str=str&session("chat_name")
str=str&"离开聊天室...."
str=str &"</p>"
application("chat_num")=application("chat_num")-1
application("chat_words")=str&application("chat_words")
application.unlock
str="<option value="&session("chat_name")&">"
str=str&session("chat_name")&"</option>"
if instrrev(application("chat_list"),str)<>0 then
del=instr(application("chat_list"),str)-1
del1=del+len(str)
str=left(application("chat_list"),del)
str1=right(application("chat_list"),len(application("chat_list"))-del1)
application.lock
 application("chat_list")=str+str1
application.unlock
end if 
%>
</Body>
</Html>

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?