📄 list.asp
字号:
<%If session("UserName")="" then Response.redirect "quit.asp"
'超时,需重新登录 %>
<Html>
<head>
<meta http-equiv=refresh content='5;url=list.asp'>
<title>显示聊天内容界面</title>
</head>
<body >
<%
If Request("Clsapp")="yes" then '开始清除屏幕,即将application("Says")变量清空
application("Says")=""
application("Says")="<font color=red>"+session("username") + "</font> 为大家清除屏幕!"
End If
usersays=Trim(request("says"))
if usersays<>"" then
If Session("lastsays")<>usersays then '不能连续输出两次相同的发言信息
Session("lastsays")=usersays
application("Says")="<font color=red>"+session("username") + ":</font> " + request("says") & "<br>" +application("Says")
End If
end if
Response.Write application("Says") '显示大家的发言信息
%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -