📄 chat_quit.asp

📁 asp 网站开发技术介绍

💻 ASP

字号:

<%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 + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -