XMLHTTP+javascript+Asp写得聊天室 无刷新实现(六)

2016-01-29 17:35 5 1 收藏

XMLHTTP+javascript+Asp写得聊天室 无刷新实现(六),XMLHTTP+&#106avascript+Asp写得聊天室,无刷新实现(六)

【 tulaoshi.com - ASP 】

  #############续send.asp#################

var oRDom=new ActiveXObject("Microsoft.XMLDOM");
oRDom.async=false;
var Path="reload.asp";
var tCok;
function Clock()
{cRld++;
if (cRld10){cRld=1;GetXmlData();}
clearTimeout(tCok);
tCok=setTimeout("Clock()",1000);
}
function GetXmlData() //这就是刷新用户XML数据的函数
{cRld=1;
oRDom.load(Path)
if(oRDom.parseError.errorCode != 0)
{alert("Sorry.出现了错误");
return }
else
{
var aryF=oRDom.documentElement.selectNodes("F");
var aryT=oRDom.documentElement.selectNodes("T");
var arysC=oRDom.documentElement.selectNodes("sC");
var arycL=oRDom.documentElement.selectNodes("cL");
var arysJ=oRDom.documentElement.selectNodes("sJ");
var aryE=oRDom.documentElement.selectNodes("E");
var tmpHtml="";
lengt=aryF.length;
for(var i=0;i<lengt;i++){
img="<img src="http://img.jcwcn.com/attachment/portal/jcwcj/2005-12/10/05121001091113429.gif" width=12 height=12 border=0";
tmpHtml="<font style='cursor:hand;color:"+arycL(i).text+"'"+eV[aryE(i).text*2]+rp2(arysC(i).text,"{^amp]","&")+"</font  <span class=t["+arysJ(i).text+"]</span<br";
tmpHtml=rp2(tmpHtml,"$F","<a href="javascript:parent.sd.towho('"+aryF(i).text+"');""+img+aryF(i).text+"</a");
tmpHtml=rp2(tmpHtml,"$T","<a href="javascript:parent.sd.towho('"+aryT(i).text+"');""+aryT(i).text+"</a");
if (aryF(i).text==Me || aryT(i).text==Me)
{ parent.my.Ly.innerHTML+=tmpHtml;
} else
parent.pub.Ly.innerHTML+=tmpHtml;
}
}
delete(aryF);delete(aryT);delete(arysC);delete(arycL);delete(arysJ);
}
function towho(un){
document.say.T.options[0].value=un;
document.say.T.options[0].text=un;
document.say.says.focus();return;}
</script
<base onmouseover="parent.window.status='欢迎光临 蓝蝶精品网 www.ChinaOk.net 站长:NetNice QICQ:6097356 ';return true;"
</head
<body bgcolor="#76b4d9" topmargin="4" leftmargin="1"
<table BORDER="0" width="767" cellspacing="0" cellpadding="0"
<tr<td width="735" height="16" align="left" nowrap
<form method="post" action="save.asp" name="say" target="b" onsubmit='return(checksays());'
<input type="hidden" name="oldsays"
<input name="F" maxlength="10" size="10" value="<%=session("u_name")%" readonly style="BACKGROUND-COLOR: #76aadd; BORDER-BOTTOM: 0px double; BORDER-LEFT: 0px double; BORDER-RIGHT: 0px double; BORDER-TOP: 0px double; COLOR: #ffffff; TEXT-ALIGN: right"
对 <select name="T" onclick="this.options[0].value='大家'; document.say.T.options[0].text='大家'; document.say.says.focus();"
<option value="大家" selected大家</option
</select 说:<input type=text name="says" maxlength="150" size="50" style="BACKGROUND-COLOR: #ffffff; BORDER-BOTTOM: 1px double; BORDER-LEFT: 1px double; BORDER-RIGHT: 1px double; BORDER-TOP: 1px double; COLOR: #000000" accesskey="t" title="发表对话区(Alt+T)可激活!" LANGUAGE="javascript "
<input type="submit" name="send" value="发言" class="an" accesskey="s" onmouseover="this.style.color='3366dd'" onmouseout="this.style.color='663300'" title="(Alt+S)"
</form</td</tr</table
<div style="HEIGHT: 80px;

来源:http://www.tulaoshi.com/n/20160129/1502019.html

延伸阅读
标签: ASP
  合肥 程双明         经 常 在Internet 上 冲 浪 的 网 友 恐 怕 很 少 有 人 没 有 去 过 聊 天 室 胡乱神聊。 你 只 要 稍 微 留 意 一 下 就会 发 现 这 些 聊 天 室 大 多 是 用CGI 程 序 或 者 用JAVA 开 发 的 Applet 维 护 的。 开 发 过 这 类CGI 或Applet ...
标签: ASP
  作者:网络之门    聊天室程序是一个application和session对象结合性很强的asp程序。首先,它比较具有实时性,聊天速度太慢,那么没有人会喜欢的,而且在多人同时发言的时侯,如果程序处理不好,那么难免会发生张官李戴的现象,比如说明明张三说的话在先。李四说的话在后,但显示出来的结果却是倒转了。还有就...
标签: ASP
  作者:网络之门 几个要好的网友在聊天室里闲聊的时侯,总会遇上有些话题是不想同一聊天室内别的聊友看见的,那么聊天室支持悄悄话功能将是什分有必要的了,实现悄悄话的方法很多,现在小虎介绍一下利用session对象来实现它,用session对象来实现悄悄话,是有优缺点的,因为session对象的应用,其实就是客户端cookies的...
标签: ASP
  群言 sense 我曾经做过一个比较复杂的聊天室,几乎拥有BBS聊天室的所有功能,但因为是用application做的,所以比较浪费资源。我觉得用数据库做更可靠,更简单。 可以设定这样的一个数据库chat,结构如下: 字段名 类型 长度 备注 1.. OBJECT CHAR 10 操作对象,ALL或某人 2...
标签: ASP
  作者:网络之门 上两节介绍了如何处理聊天室内的谈话内容以及悄悄话的特殊处理,至此。我们去看看谈话内容是如何在客户端显示出来的。请先看看我们的显示对话文件(top.asp) *top.asp <% @language="vbscript" % <% Response.Expires=0 'response.buffer=true % ...

经验教程

667

收藏

82
微博分享 QQ分享 QQ空间 手机页面 收藏网站 回到头部