

聊天室销售:

x-chat system 最新版,自上次发布3.0以后,又做了多处修改和完善。包括提高了系统的稳定性，在算法上进行了优化，修改了几处错误和小的BUG，增加了系统发生错误时的容错和错误恢复的功能，还有其它N处小的改动！ 

<<商品与质量>>杂志社网站(华南)刚用我的聊天室举办了一次网上会议,测试时269人在线系统运行完全正常.

软件演示:http://www.315ts.net/chat


7:51 2005-1-28

用户被赶出应该怎么去实现呢？

以前的做法是，将信息写入xml node 在客户端解析的时候，如果A被赶，A的客户端运行的时候，将检测出来。然后利用客户端脚本，将页面跳转到out.asp，从而实现A的被赶！

简单的来说就是发出版主赶A的指令，A收到后，自己很乖的执行之！可以说是毫无反抗的退出。

　
22:56 2005-4-6

我计划把我的聊天室再好好弄弄。。

和朋友做成视频的。这个市场其实很大的。再一个就是给以前付出那么多的一个交待吧。

这个东东我花费了非常之大的心血。但是却得到不到。这很不公平，而且失败！所以我要挽回！


21:51 2005-4-10

加上泡点功能，毕竟这是增加游戏性的很重要的。泡点儿，转让，排行，新的几个像加到图片短语或者是贴图中去。另一套头像想法启用了。这次要想法新加至少二十个图片短语。丰富内容。并且做成是后台可以添加的。

已经做的：

首页重新美化了一下，非常青春的风格，而且聊天室房间按照大型聊天网站的布局重新安排了。（以前的是一个房间显示一行，很傻的，现在的一行显示两个，如果美工好的话完全可以做成网易和新浪的那种样式。方便了大家美化，而且给大家修改这个东东提供了一种思路吧算是！）

将以前的主面板（就是聊天页面最下面的那个区域，以后说主面板都是说这里的）的重置换成了点歌，因为这个重置实在是形同虚设的。


6:46 2005-4-11

把意见箱做到系统帮助中去。用户排行　改名为　聊神榜　或别的！系统设定改为个人设定或别的。

加入更多娱乐性的东东，比如说社区跳马，请你找花茬，成语接龙等。http://localhost/code/ClassMate/2181/这个目录下有，另外，动网的插件都可以放在这里用。

11:12 2005-4-18

要抓紧时间，专心致志的做事情！ 要努力！天道酬勤！！

以前曾经做上了每个房间不进入后台就可以控制房间是否开放的功能。这个功能可以集成到后台。而且这个前台应该是已经可以用了。

高泽龙，要努力的做事情！老天爷不会亏待你的。。

不管是这个聊天室，还是别的，比如说那个短信的系统，或者是那个中国展览网

8:21 2005-4-19

加了后台控制房间开放与关闭的功能。现在是版主可以在前台登陆控制自己所在房间的开放与关闭，后台超级用户可以控制所有房间的开放与关闭。


default2.asp可以实现首页版主登陆控制房间的开放与关闭！default_guanli.asp default_guanli2.asp 三个文件来共同实现。

对admin_room做了些许美化。


admin_function.asp    response.write("alert('"+str+"\n\n刷新本页将看到效果！');") 因为执行以后看不到效果，告诉用户需要刷新或再次打开本页面才能看到。

15:50 2005-4-19

myinfo.asp修正了一个错误！原来的<!--#include 了一个不存在的文件。登陆页面原来限制呢称长度不超过8，现在改成了十六.因为有的用户确实想弄一个长些的呢称。

15:58 2005-4-19

今天晚上找一个可以用的WEB EDITOR，使我的后台可以发布系统广告和公告。

点歌的功能，今天晚上做一下。

用户登陆以后可以修改头像才行。即便是游客。。

16:10 2005-4-20

今天遇到了两个错误:一个是RELOAD.asp的,另一个是global.asa的.虽然reload.asp一直有错误,但是这次终于暴露出来了.

这可能会对我彻底修复系统潜在的错误会有帮助.

19:10 2005-4-24

加上FSO的后台设定最好。

19:18 2005-4-24

     if(oDom.parseError.errorCode != 0)
       {
	  
	  //4-24 18:22最新修改 当自己发言时出错 
	  //为了容错 小的错误不至于引起整个系统的失败
	  alert("对不起，input页面->SendMsg()函数发生错误！\n\n请向我们反馈这些信息，谢谢！");
	  //parent.ShowWin(300,200,"xmlparseerror.htm");
	  

    //--------------------------------------------------------这段是后来加上的
	parent.store.SetLTime();//更新上次发言时间
	delete(aryF);delete(aryT);delete(arysC);delete(arycL);delete(arynC);delete(aryE);
	delete(oDom)
	delete(oSend)
	delete(tmpHtml)
    //--------------------------------------------------------这段是后来加上的

         return }
      else
	  {
        outputsays(oDom);}
	parent.store.SetLTime();//更新上次发言时间
	delete(aryF);delete(aryT);delete(arysC);delete(arycL);delete(arynC);delete(aryE);
	delete(oDom)
	delete(oSend)
	delete(tmpHtml)


    if(oRDom.parseError.errorCode != 0)
      {
	  
	  //4-24 18:22最新修改 当搜索新数据的时候出错 
	  //为了容错 小的错误不至于引起整个系统的失败
	  alert("对不起，input页面 GetXMLData()函数发生错误！\n\n请向我们反馈这些信息，谢谢！");
	  //parent.ShowWin(300,200,"xmlparseerror.htm");

	  

    //--------------------------------------------------------这段是后来加上的
   delete(ORDom);delete(Path);   
    //--------------------------------------------------------这段是后来加上的


       return }
    else
	  {
       outputsays(oRDom);}
   delete(ORDom);delete(Path);   
  }

input.asp页面，对DOM解析可能出现的错误，做了尽可能的容错处理。


19:20 2005-4-24

reload.asp文件，做了尽可能严谨的处理，减少错误的发生。

On Error Resume Next

rem 20.04.2005 4:13 PM 曾经出现了c_talkinfo不是数组的情况导致本页面出错,
rem 进而导致XML解析时出错.整个系统无法运行!所以在此先判断!

rem 对于不是数组该如何处理还没有确定
If Not Isarray(c_talkinfo) Then
	Response.Write "</Msg>"
	Response.End
End If

Application.UnLock()

ubnum=ubound(c_talkinfo)   '===========================这句曾经出错

19:58 2005-4-24

管理登陆页面进行了简单的美化

20:15 2005-4-24

admin_notice.asp 页面修改。根目录下/edit目录是一个WEB Editor 是刚拷过来的。

ubbcode.asp没用了。admin_notice_preview.asp没用了。title.asp中去了用到UBB函数的地方.

初始化了一个关于产品宣传的公告内容。
　　
21:29 2005-5-19

打算加上用户泡分的功能！应该是什么样的机制呢？还有没有继续弄这个聊天室的必要呢？

用户获得与在线时间相同的点数，点数决定用户的等级。


‘=============================================

7:43 2005-9-30


这是大钟和那个朋友提出的意见

这段时间要重新弄一下我的聊天室!十一假期，除了玩儿，和老婆亲热，有事儿干了!

刚才突然也想到了解决聊天室解析XML数据出错的问题!

那就是将所有的聊天对话内容的队列完全重置，虽然这是一种下策，但绝对是可以解决的!

15:35 2005-10-5

其实最好的实现控制的办法是用很规范的命名方法将系统每一部分操作做标识，这样无论是将来跟踪日志，用户及系统动作，还原，监控，出现混乱时诊断并且进行排除都会是很好的!

可惜那需要非常大的精力和时间!

15:53 2005-10-5

刚发现原来的日记丢了一部分好像，FAINT!

say.asp文件中加上了限制词语的过滤功能，这个功能原来的其实没有!

rem 开始不文明词语和禁止词汇的过滤
for i=0 to ubound(filarray)
sC=Replace(sC,filarray(i),"#%^$*@#")
next
for i=0 to ubound(forbidword)
sC=Replace(sC,forbidword(i),"#%^$*@#")
next

<!--#include file="config.asp"-->
后再Option Explicit 
出错，因为在这之前已经定义变量了!

reload.asp

If Not Isarray(c_talkinfo) Then
	Response.Write "</Msg>"
	Response.End
ELSE
	Application.UnLock()
	ubnum=ubound(c_talkinfo)   '===========================这句曾经出错
	
	c_Lid=session("c_userroomLid") 
	newLid=c_Lid
	for i=c_talkinfo(0)+4 to ubnum step 4
		   if (c_talkinfo(i)>c_Lid) then
				Response.Write c_talkinfo(i+3)
			   if (newLid<c_talkinfo(i)) then newLid=c_talkinfo(i)
		   end if
	next
	for i=1 to c_talkinfo(0) step 4
		   if (c_talkinfo(i)>c_Lid) then
				Response.Write c_talkinfo(i+3)
			   if (newLid<c_talkinfo(i)) then newLid=c_talkinfo(i)
		   end if
	next
	Response.Write "</Msg>"
	session("c_userroomLid")=newLid
End If

原来的是：
If Not Isarray(c_talkinfo) Then
	Response.Write "</Msg>"
	Response.End
End If

后面是数组的处理，有时编译时仍会认为错误，所以放在两个分支中实现了!

regagree.asp将原来的清风聊天室(我刚做时起的名称)改为了系统设置中的聊天室名称，可以自行设置。

reg.asp check.asp regagree.asp等好几个页面中将原来的黑色文字换为了白色(黑色与背景色太近)

chat.asp，input.asp做了改动，将所有现在程序并未实现的界面去掉了!

点歌，用户排行等全都去了!

21:02 2005-10-7

对于他们提到的，踢人不起作用我刚才看了，认为其实是起作用的，只不过是踢的动作滞后时间稍微长了一些，5000个时间单位，可能略微显得长一些，这个将来有了环境再好好的看看!


21:05 2005-10-7

刚开始以为首页底部说明中：如果登陆过，直接进入这个功能处理的不太好，比如说没有考虑用户原来所在的房间等。但我刚才看了一下，这个其实不用考虑的，因为直接进入CHAT.htm页面(经过process页面再进入chat.htm结果是一样的，都没有传递什么参数)





