say.asp

一个用vb开发的比较好的聊天系统

<!--#include file="usercheck.asp"-->
<%T=request.form("T")
  says=request.form("says")
  usercolor=request.form("usercolor")
  userface=request.form("userface")
  ws=request.form("ws")
  says=replace(says,"<","&lt;")
  says=replace(says,">","&gt;")
  says=replace(says,"script","")
  says=replace(says,"#","")
  says=replace(says,"&","")
  if says="" then response.end
  if T="大家" then ws=0
  if ws="" then ws=0
  if left(says,2)="//" then
       ws=0
       says=replace(says,"//","<a href=# onclick=parent.sd.towho('"&UserName&"');>"&UserName&"</a>")
       says=replace(says,"%%","<a href=# onclick=parent.sd.towho('"&T&"');>"&T&"</a>")
       says="<font color=#009900>【动作】</font><font color="&usercolor&">"&says&"</font> <font style=font-size=9pt>["&now()&"]</font>"
  else
      if ws=1 then
               saystate="私聊"
      else 
               saystate="对话"
      end if
      says="<font color=#009900>【"&saystate&"】</font><font color="&usercolor&"><a href=# onclick=parent.sd.towho('"&UserName&"');>"&UserName&"</a>"&userface&"对<a href=# onclick=parent.sd.towho('"&T&"');>"&T&"</a>说："&says&"</font> <font style=font-size=9pt>["&now()&"]</font>"
  end if
  call InsertChat(says,UserName,T,ws,now)
%>
<script language="javascript">
 parent.my.document.writeln("<%=says&"<br>"%>");
 parent.top1.document.location.href='reload.asp';
</script>