| 请找出并分析其中使用的Application、session对象的代码：
<html>
<head>
<title>聊天室</title>
</head>
<%
session("user_name")=request("user_name") '将用户呢称保存到session中
'下面几句返回来访者信息
Dim sayStr
sayStr="来自" & Request.ServerVariables("Remote_Addr")&
"的" '来访者IP地址
sayStr=sayStr & "<b>" & session("user_name")
& "</b>" '来访者呢称
sayStr=sayStr & "于" & time & "大驾光临"
'来访时间
sayStr="<font color='red'>" & sayStr & "</font>"
'红色显示
'下面几句将来访信息保存到application中
Application.Lock '先锁定
Application("show")= sayStr & "<br>"
& Application("show") '返回聊天信息
Application("user_online")=Application("user_online")+1
'在线人数加1
Application.Unlock '解除锁定
%>
<frameset rows="*,14%">
<frame name="main" src="main.asp" >
<frame name="input" src="input.asp">
<noframes>
<body scroll="no">
<p>此网页使用了框架，但您的浏览器不支持框架。</p>
</body>
</noframes>
</frameset>
</html>
|
教学前言
相关的基础知识
Web的基本概念及相关知识