📄 close.asp
字号:
<% option explicit %>
<!--#include File="function.asp"-->
<html>
<head><title>退出</title>
<script>
<!--
window.close();
window.parent.close();
//parent.UserList.history.go(0);
-->
</script>
</head>
<%
Dim i,PicURL,UserName
if Session("NickName")="" then Response.end
PicURL=Left(Session("NickName"),2)
UserName=Replace(Session("NickName"),PicURL,"")
PicURL=PicURL&".gif"
Application.Lock()
Application("UserListStr")=Replace(Application("UserListStr"),","&Session("NickName")&",",",")
Application("ID")=Application("ID")+1
i=YuShu(Application("ID"))
Application(i)="<div style='font-size:12px'><b>[公告]</b><img width=16 height=16 src=images/pic/"&PicURL&">"&UserName&"离开聊天室了</div><script>parent.UserList.history.go(0);</script>"
Application.UnLock()
Session("NickName")=""
%>
<body>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -