chat.asp

来自「简单ＡＳＰ实现聊天室 简单ＡＳＰ实现聊天室」· ASP 代码 · 共 30 行

ASP
30 行
字号 
<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>

chat.asp - 源码说明

本页面展示了「简单ＡＳＰ实现聊天室 简单ＡＳＰ实现聊天室」中的 chat.asp 源码文件，采用 ASP 编程语言编写，共 30 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫开发者社区收录了大量与ASP相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

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