  已去掉讨论组..

  实现了这个客户端自荐

　如果用户选择了‘知道了，不要再提醒我！’，则并不会因为用户重新连接而又开始提醒。


  暂时规定：15显示　list区宽度为140px;17显示　宽度为180px


  公告页面加一说明：您可以将常用的公告或广告设置复制到记事本中保存起来，以后再用到赶到粘贴过来就行了。

   input页面中的快捷键Ctrl+Enter,虽然做了，但是控制不是很好。想去掉。因为涉及到一个禁止用户无间断地连续发送。做这个快捷键，虽然也可以控制间隔一定的时间。因为一个回车就足以了。用户输入完毕，按一下回车。这就很方便了。

   input页面回车键直接发送（这一点需加到说明文档中）


   做封锁IP的时候，需要考虑到process.asp,永久封锁的endtime应该是多少。

   application("c_sysuser")已去掉，因为此变量有些多余，被Application("c_useronline")替代,画记录同时在线人数
   
   initchat.asp需要全部重做
   
   session("c_guest")将要去掉因为，已实际上失去了它存在的价值
   
   inspecter很多需要修改，已太旧了

   正式启用了密码的加密，用的是jk_md5算法。新增加了表manager，且后台登陆页面已用上了这个。别的暂且都还没用上。

 admin_room.asp中不能强制删除房间，如果房间用户不为0，您可以先强制关闭该房间，而后再删除。删除会将数据库中的内容删除，而应急处理中各项操作不涉及到数据库的修改。只做本次服务器启动之用。

   暂时这样规定：15显示器，右边的LIST栏显示宽度为140，底部INPUT为70；17显示器右边的显示宽度为180，底部INPUT为80。

   session("c_username")后台管理员登陆，系统自动设为“系统管理员”，所以如果要改变变量名称，需要考虑到此处！！！！

   开始正式处理关于非法字符的问题：写入数据库的内容，用户的呢称等。

   首先做的是关于写入数据库内容的检查。对于所有加入数据库中的内容都要用到trdb(mess)来加以规范

function trdb(mess)
  mess=trim(zhgl(mess))
  mess=server.HTMLEncode(mess)
  mess=replace(mess,chr(34),"&quot;")
  mess=replace(mess,"'","&#39;")
  mess=replace(mess,"  ","　")
  mess=replace(mess,chr(10),"")
  trdb=replace(mess,chr(13),"<br>")
end function

放于了dbfunc.asp中。


对提交密码进行加密，并作出规范化

function trpass(preString)
  Dim texts
  Dim seed
  Dim i,length
  prestring = trim(preString)
  length = len(preString)
  seed = length
  Randomize(length)
  texts = ""
  for i = 1 to length
    seed = int(94*rnd(-asc(mid(preString,i,1))-seed*asc(right(prestring,1)))+32)
    texts = texts & chr(seed) & chr(int(94*rnd(-seed)+32))
  next
  texts=replace(texts,"'","")
  trpass=replace(texts,chr(34),"")
end function
代码来源：传说水吧，现已启用。这种适用于普通用户的密码加码，对于系统管理员用的是jk_md5加密

使用方法：

在此之前，保证得到的表单值是不为空的，别的没有任何限制
sPass=trPass(sPass)
sPass=trPass(sPass)
if rs("passwd")=sPass then
insert into ..........................(直接作为字段内容，加入数据库中）

在整个应用程序内，将掉线时间，自动退出时间，暂离时间，暂离自动回复句数等值全面调低。。。。。

现在的默认值是这样的：掉线时间：3分钟，自动退出：5分钟，暂离时间为6分钟，暂离自动回复句数为10句。

会话超时是7分钟，这样在超时之前，一般可以正常退出，即便用户不使用global.asa的session.onend事件，也不会造成，用户使用的APP无法销毁的损失　


session.onend的处理，

改变了Application("c_useronline")这一标识总在线人数的变量的用法，它还是需要的，因为得更新最高在线人数。现在在default.asp页面中求出来，直接innerText到上面的当前在线人数span中去这样应该是行的

因为还是有一些莫名其妙的错误，所以要对代码做一些精简。

注意，这一版内容与网上正在使用的还是有一些出入的，有时间做一下统一。

application("c_roomvisite"&cstr(room_id)):暂时不用，已经去了

与网上的文件相比，少了一个loading.asp
