XMLHTTP+javascript+Asp写得聊天室，无刷新实现。原创代码放送！服务器支持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://old.zzzyk.com/article/Article/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=>            tmpHtml=rp2(tmpHtml,"$T","<a href=>            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; 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 onclick="parent.pub.scrollit();parent.my.scrollit();document.say.says.focus();"><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" onchange="document.say.says.style.color=this.options[this.selectedIndex].value;">                           
<OPTION selected style="COLOR: #000000" value="000000">默认颜色</OPTION>
<OPTION style="COLOR: #000000" value="#000000">黑色沉静</OPTION>
上一个：XMLHTTP+javascript+Asp写得聊天室，无刷新实现。原创代码放送！服务器支持Asp即可使用(五)
下一个：XMLHTTP+javascript+Asp写得聊天室，无刷新实现。原创代码放送！服务器支持Asp即可使用(四)
更多图片编程知识: