📄 list.asp

📁 《asp网页设计》作者沈才梁源代码,共十章

💻 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 + -