最新下载
热门教程
- 1
- 2
- 3
- 4
- 5
- 6
- 7
- 8
- 9
- 10
asp+ajax做聊天室二
时间:2008-02-16 编辑:简简单单 来源:一聚教程网
下面的代码是post.asp文件代码.比较简单所以就不说明了.
<%@Language="JavaScript" CodePage="936"%><%
var Nothing;
Response.addHeader("Cache-Control","no-cahce");
if(!Session.Contents("Chat_User"))
{
Session.Contents("Chat_User") = "Guest";
Session.Contents("Chat_Time") = (new Date).getTime();
}
if(Application.Contents("Chat_Data") == Nothing)
{
Application.Lock();
Application.Contents("Chat_Data") = "\f系统\bred\b您\bblue\b欢迎您来到聊天室。\bblack\b" + (3000 + (new Date).getTime());
Application.UnLock();
}
var PostChat = Request.QueryString.Item;
if(PostChat)
{
var Chat_Data = Application.Contents("Chat_Data").split("\f");
if(Chat_Data.length > 30) Chat_Data.shift();
Chat_Data.push(Server.HtmlEncode(unescape(PostChat)) + "\b" + (new Date).getTime());
Application.Lock();
Application.Contents("Chat_Data") = Chat_Data.join("\f");
Application.UnLock();
}
var LastTime = Session.Contents("Chat_Time");
var MyData = new Array;
var AllData = Application.Contents("Chat_Data").split("\f");
for(var C=AllData.length-1; C>=1; C--)
{
var Node = new Array;
var Item = AllData[C].split("\b");
if(Item[6] <= Session.Contents("Chat_Time")) break;
if(Item[6] > LastTime) LastTime = Item[6];
Node.push("<发送人 颜色=\"" + Item[1] + "\">" + Item[0] + "发送人>");
Node.push("<接收人 颜色=\"" + Item[3] + "\">" + Item[2] + "接收人>");
Node.push("<说话 颜色=\"" + Item[5] + "\">" + Item[4] + "说话>");
Node = Node.join("\t\t\r\n");
Node = "\t<聊天 时间=\"" + Item[6] + "\">" + Node + "\r\n\t聊天>";
MyData.push(Node);
}
Session.Contents("Chat_Time") = LastTime;
MyData.reverse();
%>
<聊天室>
<%=MyData.join("\r\n")%>
聊天室>
转载请注明出处(www.111com.net)
-
上一个: asp+ajax做聊天室一
-
下一个: ajax注册应用一
相关文章
- Asp+Ajax二级联动完美实现方法 06-02
- asp+ajax做聊天室一 02-16
- VBS 批量Ping的项目讲解 09-19
- 如何封装一个Ajax函数介绍 09-16
- ASP实现加法验证码方法 09-16
- ASP错误捕获的几种常规处理方法介绍 09-16