高分悬赏，请各位给点儿意见……

mardonma 2010-07-23 04:04:14

我在做一个交友网站，里面有个在线聊天模块。
这个模块功能大概是这样的：
①登录后的会员选择和其他会员聊天，在新页面的文本域中输入聊天内容，“发送”后，信息存入数据库。
②如果接收者在线，则马上会有相应的消息提示，点击可以查看消息，并可以选择回复等操作。如果不在线，则在下次登录时看到消息提示……
第一步，很简单，已经做好了。关键是第二步，不管浏览者在哪个页面都能看到有消息提示。这个消息提示该用什么呀的方式呢？关键的地方，就是局部刷新：当有人发送了消息时，马上会有提示，也就是说要定时刷新。。
总之，第二步我现在搞不定，没有思路。请大虾们指点。最好能具体一些，谢谢了！（我是用Asp+VbScript SQL Server 2005 做的）

...全文

176 19 打赏收藏转发到动态举报

写回复

用AI写文章

19 条回复

切换为时间正序

请发表友善的回复…

发表回复

mfdipq 2010-07-31

打赏
举报

学习~~~~~~~~

xcgh 2010-07-31

打赏
举报

给你个推技术代码，自己搞定，见笑，没经过大批量测试，可以共同研究
<script language="javascript1.2" src="./inc/prototype.js"></script>
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr class="beijing1">
<td height="31" class="leftzi1" align="center"><button style='cursor:hand;MARGIN-LEFT:2px;width:204px;height:25px;font-size:12px;border:1px solid #A4B3C8;background-color:#E5E3E4;' type="button" onclick="javascript:openWindowCenter3('./lookAllNews.asp',500,400)"><span id="MsgNum"></span></button></td>
</tr>
</table><script language="javascript1.2" src="./inc/acceptMsg.js"></script>
acceptMsg.js文件内容
var Comet = Class.create();
Comet.prototype = {

timestamp: 0,
url: './pushMsgNews.asp',
noerror: true,

initialize: function() { },

connect: function()
{
this.ajax = new Ajax.Request(this.url, {
method: 'get',
parameters: { 'timestamp' : this.timestamp },
onSuccess: function(transport) {
// handle the server response
var response = transport.responseText.evalJSON();
this.comet.timestamp = response['timestamp'];
this.comet.handleResponse(response);
this.comet.noerror = true;
},
onComplete: function(transport) {
// send a new ajax request when this request is finished
if (!this.comet.noerror)
// if a connection problem occurs, try to reconnect each 5 seconds
setTimeout(function(){ comet.connect() }, 5000);
else
this.comet.connect();
this.comet.noerror = false;
}
});
this.ajax.comet = this;
},

disconnect: function()
{
},

handleResponse: function(response)
{
$('MsgNum').innerHTML = response['msg'];
},

doRequest: function(request)
{
new Ajax.Request(this.url, {
method: 'get',
parameters: { 'msg' : request }
});
}
}
var comet = new Comet();
comet.connect();
pushMsgNews.asp文件
<%@ Language = "VBScript" codepage = "936" %>




<%
Response.Charset="gb2312"
'@ EnableSessionState = False'指令关闭网页会话跟踪
Response.Buffer = true'当页面输出时间比较长时，先把输出的内容先放到缓存里面，获取或设置一个值，该值指示是否缓冲输出，并在完成处理整个响应之后将其发送。
table_name = "t_message"
'接收信息存库
If(trim(request.form("message"))<> "") Then
Redim fieldarr(0)
fieldarr(0) = (new JSON).toJSON("senduser", session("UserName"), true)
indb table_name, fieldarr, "|btnSave|btnReset|"
response.end
End If

'当前id
receiveTime = Now()

'currentId = return_one("SELECT @@IDENTITY AS ID", 0)
currentId = return_one("SELECT max(id) from "&table_name&" where username = '"& session("UserName") &"' and ifread = '0'", 0)

If(Not IsNumeric(Trim(currentId))) Then
currentId = 0
End If
'多少条消息
msgNum = return_one("SELECT count(id) from "&table_name&" where username = '"& session("UserName") &"' and ifread = '0'", 0)
sql = "select * from "&table_name&" where (username = '"& session("UserName") &"' or senduser = '"& session("UserName") &"') and id = "& currentId &" and ifread = '0' order by d_time desc"
'Response.Write sql
set rs = server.Createobject("adodb.Recordset")
rs.Open sql,conn,1,1
If(not rs.eof) Then
'暂停程序
Do While datediff("s", rs("d_time"), receiveTime)> 1
Call delaySec(1)
'Response.ExpiresAbsolute = Now()- 1'这一句就是在上面放在缓存里面的内容显示完毕后,就将缓存立即过期,等于清空
'Response.Expires = 0'设置缓存过期，写在页面的最上端，后面跟的是一个时间，就是过期的时间，0表示立即过期。
'Response.CacheControl = "no-cache"
'Response.AddHeader "Pragma", "No-Cache"
receiveTime = rs("d_time")
conn.Execute("update "&table_name&" set ifread='1' where username = '"& session("UserName") &"' and ifread='0'")
Loop

'发送信息
If(Response.IsClientConnected) Then
'================================
'在这里修改或自定义要执行的ASP代码
msgStructure = (new JSON).toJSON("", rs, true)'json的字符串格式不一样，所以用了替换
msgStructure = Replace(msgStructure, """"": ", "")
msgStructure = Replace(msgStructure, "[", "")
msgStructure = Replace(msgStructure, "]", "")
Response.Write msgStructure
'================================
Response.Flush
Response.Clear
End If
Else
data_close()
response.end
End if
data_close()
%>