繁體中文当前位置: 首页 > 图文教程 > 网络编程 > ASP > 聊天室自做 Follow Me
- ASP
- ASP中数据库调用中常见错误的现象和解决方法
- ASP取出HTML里面的图片地址的函数
- 关于分页查询和性能问题
- 利用Asp生成整站静态
- 用ASP+XMLHTTP编写一个天气预报程序
- 轻松检测浏览器是否接受Cookies信息
- 净化网络环境：ASP程序实现过滤脏话
- 入门：防范SQL注入攻击的新办法
- 如何对ASP.NET进行性能优化
- ASP无法更新ACCESS数据库解决方法
- ASP：利用ASP把图片上传到数据库
- ASP：用ASP编程实现网络内容快速查找
- ASP:用ASP打造一个小型的网页BBS系统
- ASP:用Asp编程实现QQ的在线情况查询
- 通过表单创建word的一个例子
- 在ASP中轻松实现记录集分页显示
- ASP中实现小偷程序的原理和简单示例
- ASP：6行代码实现无组件上传
- 实用篇:用asp实现QQ在线查询
- 如何轻松打造ASP计数器
ASP 中的 聊天室自做 Follow Me
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-11-03 浏览: 20 ::
收藏到网摘: n/a
目前聊天室显示对话的方式一般有两种。一是每隔 x 秒就把整个对话显示区刷新一遍，此方的弊端显而易见：数据传输量大且屏幕有闪烁感；其二是有新的发言时，才将该内容传递给客户端，并添加在原有对话的尾部，此法数据传输量就比较小且屏幕是平滑滚动，视觉效果好。第一种方法的实现已经有很多资料介绍，因此本文将介绍第二种刷新方式。
设计思路：
⑴服务器端只保留最新的30条发言作为缓冲区，新的发言内容将最旧的发言挤出。
⑵每句发言都分配一个递增的序号。客户端最后出现的发言的序号记录在 Session 中。
⑶利用隐藏框架进行刷新，刷新时，将 Session 值与缓冲区的每句发言的序号进行比较，如果序号大于 Session 值说明该发言是新的，就将该发言的数据取出，并将该发言的序号值赋给 Session。
⑷对话显示区使用 document.open() 打开后，就不再关闭，当隐藏框架刷新时有新数据取出并传到客户端时，将这些原始数据格式化为要显示的内容（此工作可以在服务器端执行，但为减轻服务器的负担，就将对话的合成工作移交给客户），然后调用 document.writeln 方法将发言的内容写到对话显示区的尾部。
⑸在对话显示区中放置一段自动滚屏的代码，使屏幕自动向下滚动，并可通过发言区的复选框来选择是否自动滚屏。
实现方法：
一、本程序只需要 4 个文件即可实现：
⑴chat.asp：聊天室框架文件，负责初始化程序运行环境并随机分配四位数的数字做为用户名，再把页面从上到下分成四部分，顶、底两个框架高度为 0。
⑵chatfyq.htm：发言区，提供输入姓名、发言的文本框，及一个发言按钮和一个自动滚屏的开关（复选框），并定义在客户端执行的 JavaScript：checksays()（对发言进行有效性检测）、cls()（清空对话显示区的内容）、write()（初始化对话显示区，定义页面颜色、文字大小，并放置滚屏代码）、sw(username)（在对话区点击人名时，将人名写到发言框中）、w(un,sa,tn,dt)（将原始数据合成为完整的发言内容，并添加到对话显示区的尾部）。
⑶chatt.asp：此文件位于顶部的隐藏框架（高度为 0）中定时刷新，把新的发言的原始数据使用 <script Language=JavaScript>parent.f2.w("姓名","发言内容","原始姓名","发言时间")</script> 的格式输出到客户端，即可调用 chatfyq.htm 中定义的 w(un,sa,tn,dt) 函数来显示出发言内容。
⑷chatsay.asp：发言提交到此文件进行处理。此文件位于底部的隐藏框架中。将发言加入缓冲区后，立即执行和 chatt.asp 相同的代码段，将发言显示出来。（chatsay.asp 后面的代码和 chatt.asp 是相同的，之所以不在 chatsay.asp 后面使用 Response.Redirect "chatt.asp" 来调用，是为了加快速度，因为重定向方式需要建立两次连接：发言提交是连接一次，重定向时又要再连接一次，效率低。）
二、部分关键代码注释：
⑴初始化代码段：Application("chat_hh") 缓冲区中最后一句发言的序号、Session("chat_hh") 就是“设计思路⑶”中提到的 Session 值，用于记录客户端已显示的最后一句发言的序号：
'如果该序号为空，表明程序未初始化
If Application("chat_hh") = "" Then
'定义缓冲区数组，共 30 句发言
'每句发言占用 5 个位置：序号、姓名、发言内容、原始姓名、发言时间
Dim sd(150)
Application.Lock
'将数组赋值给 Application("chat_sd")，即：发言只保留在服务器内存中
Application("chat_sd") = sd
'定义初始序号为 0
Application("chat_hh") = 0
Application.UnLock
End If
'为避免序号过大，每当序号增大到 65535 时就将序号复位为 0
If Application("chat_hh") > 65535 Then
Application.Lock
Application("chat_hh") = 0
Application.UnLock
End If
'客户端用来记录已经显示到哪句发言的 Session("chat_hh")
'其值等于序号减去 12，即：新来的用户可以看到原有的 12 句发言
Session("chat_hh") = Application("chat_hh") - 12
⑵chatfyq.htm 中的 JavaScript 函数：write()：
function write(){
//使用 document.open() 打开对话显示区，打开后不关闭，这样就可以不断向里面添加新内容
parent.f1.document.open();
//向对话显示区中写入 HTML 文件头
parent.f1.document.writeln("<html><head><title
评论 (0) All
