clear.asp

来自「简单网站的编写」· ASP 代码 · 共 46 行

ASP
46
字号
<!-- 清空聊天界面,没有调用这个文件 -->
<!--#INCLUDE FILE="config.asp" -->
<% if session("user")<>"" then
      application.lock
        for x =1 to 39
	      application("systemsay" & x)  = ""
          application("sexsay" & x)     = ""
          application("me" & x)         = ""
          application("color" & x)      = ""
          application("showip" & x)     = ""
          application("mood" & x)       = ""
          application("to" & x)         = ""
          application("siliao" & x)     = ""
          application("zixiao" & x)     = ""
          application("page" & x)       = ""
          application("tuan" & x)       = ""
          application("tietu" & x)      = ""
          application("saytime" & x)    = ""
        next
		  application("systemsay" & 40) = "yes"
          application("me" & 40)        = session("user")
          application("sexsay" & 40)    = session("sex")
          application("color" & 40)     = "#0000FF"
          application("showip" & 40)    = session("ip")
          application("mood" & 40)      = ""
          application("to" & 40)        = ""
          application("siliao" & 40)    = ""
          application("zixiao" & 40)    = ""
          application("page" & 40)      = " 清空了一下聊天室的信息!"
          application("tuan" & 40)      = ""
          application("tietu" & 40)     = ""
          application("saytime" & 40)   = time
          application.unlock
%>
<html>
<head>
<title>清空信息</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="css/style.css" rel="stylesheet" type="text/css">
</head>
<body>
<br><center>聊天室的界面已经清空!<br><br>
<input type="button" class="normal" value="关闭" onclick="javascript:window.close();"></center>
</body>
</html>
<% end if %>

⌨️ 快捷键说明

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