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

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

var oRDom=new ActiveXObject("Microsoft.XMLDOM");
oRDom.async=false;
var Path="reload.asp";
var tCok;
function Clock()
{cRld++;
if (cRld>10){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://edu.cnzz.cn/NewsInfo/girl.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 >
</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" >
<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" >
<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" title="(Alt+S)">
</form></td></tr></table>
<div style="HEIGHT: 80px; LEFT: 15px; POSITION: absolute; TOP: 30px; WIDTH: 600px">
<form name="oT">
<table BORDER="0" width="600" cellspacing="0" cellpadding="0">
<tr>
<td width="160" height="16" align="center" nowrap valign="top">
<input accesskey="a" type="checkbox" name="as" checked ><A onclick=moveself(); title=" “激活/禁止”对话区自动滚屏(Alt+A)!">滚屏</A>

</td>
<td width="230" height="16" align="left" nowrap valign="top"> <span title=" 改变你的发言的字体颜色(Alt+F)!">
<select name=usercolor accesskey="f" >
<OPTION selected style="COLOR: #000000" value="000000">默认颜色</OPTION>
<OPTION style="COLOR: #000000" value="#000000">黑色沉静</OPTION>
<option style="COLOR: #ff0000" value='#FF0000'>红色热情</option>
<option style="COLOR: #0000ff" value='#0000FF'>蓝色开朗</option>
<option style="COLOR: #ff00ff" value='#FF00FF'>桃色浪漫</option>
<option style="COLOR: #009900" value='#009900'>绿色青春</option>
<option style="COLOR: #009999" value='#009999'>青色清爽</option>
<option style="COLOR: #990099" value='#990099'>紫色拘谨</option>
<option style="COLOR: #990000" value='#990000'>暗夜兴奋</option>
<option style="COLOR: #000099" value='#000099'>深蓝忧郁</option>
<option style="COLOR: #999900" value='#999900'>卡其制服</option>
<option style="COLOR: #ff9900" value='#FF9900'>镏金岁月</option>
<option style="COLOR: #0099ff" value='#0099FF'>湖波荡漾</option>
<option style="COLOR: #9900ff" value='#9900FF'>发亮蓝紫</option>
<option style="COLOR: #ff0099" value='#FF0099'>爱的暗示</option>
<option style="COLOR: #006600" value='#006600'>墨绿深沉</option>
<option style="COLOR: #333333" value='#333333'>灰色轨迹</option>
<option style="COLOR: #999999" value='#999999'>伦敦灰雾</option>
</select></span>
<span title=" 改变您的说话时的表情(Alt+Q)!" ><select accesskey="q" name=userface style="FONT-SIZE: 9pt;width:65px" size="1">
<script language="Javascript">
for(var iF=0;iF<eV.length;iF+=2)
{document.writeln("<option value=\""+eV[iF]+"\">"+eV[iF+1]);
}
</script>
</select></span> <input TYPE="checkbox" name="ws" id="ws" accesskey="m" ><A title=" 和聊友说句悄悄话(Alt+M)!"><label for=ws >私聊</label></A> </td>
<td width="250" height="16" align="left" nowrap valign="top">
   <INPUT id=clock name=clock type=button value=1200 class="an" title="如果您长时间不发言(潜水),请注意:当计数器减至零时,您将被被踢出!" style="color:#ff3300;width:60;" disabled>
</td>
</tr>
</table> </form>
</div>
<script>
write();
GetXmlData();
Clock();
</script>
</body>
</html>

时间: 2025-01-21 04:01:51

XMLHTTP+Javascript+Asp写得聊天室,无刷新实现(六)的相关文章

XMLHTTP+Javascript+Asp写得聊天室,无刷新实现(一)

javascript|xml|聊天室|刷新|无刷新 使用XML.而无须不断刷新*.ASP.无刷新实现发言的逐条显示.使用Application变量存储聊天记录,所以要需要建立一个虚拟目录服务器端不需要支持XML,只要支持ASP和能建立虚拟目录就可以了. 以下代码在nt4.0+iis4.0上通过.我估计在你的win2000下也差不多吧.如果有问题,请多多赐教:netnice@chinaok.net ##########index.asp##############################

XMLHTTP+Javascript+Asp写得聊天室,无刷新实现(五)

javascript|xml|聊天室|刷新|无刷新 这是最重要的一个了.也很大.我的习惯不太好.没有加详细的注释,认真看吧.#########send.asp##############<html> <head><META content="text/html; charset=gb2312" http-equiv=Content-Type> <meta http-equiv='pragma' content='no-cache'><

XMLHTTP+Javascript+Asp写得聊天室,无刷新实现(四)

javascript|xml|聊天室|刷新|无刷新 ########say.asp############## <% Option Explicit dim F,T,sC,cL,E,W,sJResponse.ContentType="text/xml"F=Request.Form ("F")T=Request.Form ("T") sC=Request.Form ("sC")cL=Request.Form ("

XMLHTTP+Javascript+Asp写得聊天室,无刷新实现(三)

javascript|xml|聊天室|刷新|无刷新 ################reload.asp############## <%'Response.ContentType="text/xml"Response.Write "<?xml version=""1.0"" encoding=""GB2312""?>" Response.Write "<

XMLHTTP+Javascript+Asp写得聊天室,无刷新实现(二)

javascript|xml|聊天室|刷新|无刷新 ################main.asp###################### <%Response.Buffer=trueResponse.Expires=0userName=Request.Form("username")if username="" then Response.Redirect "index.asp" session("u_name"

XMLHTTP+Javascript+Asp写得聊天室,无刷新实现。原创代码放送!服务器支持Asp即

########say.asp##############<% Option Explicit dim F,T,sC,cL,E,W,sJResponse.ContentType="text/xml"F=Request.Form ("F")T=Request.Form ("T")sC=Request.Form ("sC")cL=Request.Form ("cL")E=Request.Form(&quo

XMLHTTP+&amp;#106avascript+Asp写得聊天室,无刷新实现。原创代码放送!服务器支持Asp即可使用(二)

xml|服务器|聊天室|刷新|无刷新|原创 ################main.asp###################### <%Response.Buffer=trueResponse.Expires=0userName=Request.Form("username")if username="" then Response.Redirect "index.asp"session("u_name")=use

nodejs写的聊天室chome一直在报错求解

问题描述 nodejs写的聊天室chome一直在报错求解 写了一个聊天室,但是chrome控制台一直在报错,这是我的项目目录:html部分代码 <!DOCTYPE html><html> <head> <meta charset=""utf-8"" /> <title></title> <link rel=""stylesheet"" href=&q

ASP.NET网站聊天室的设计与实现(第3节)_实用技巧

大家都玩过网站聊天室吧,那知道它是怎么实现的吗? 今天我们就来设计一个网站聊天室,用户输入用户名登陆聊天室,采用框架结构实现. 学习内容:第一步,聊天室首页与简单计数器设计1.打开VS2008.在"解决方案'101'下新建网站,命名为Chatroom.默认首页文件为Default.aspx. 2.为Default.aspx添加窗体控件,切换到"设计"视图,从左侧工具箱标准组中拖出2个Lable控件,1个Textbox控件,一个Button控件,最后给输入昵称的Textbox文