list.asp

来自「《asp网页设计》作者沈才梁源代码,共十章」· ASP 代码 · 共 28 行

ASP
28
字号
<%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 + =
减小字号Ctrl + -
显示快捷键?