kick.asp

使用flash Socket 实现聊天室功能

<% 
Set MyFileObject = Server.CreateObject("Scripting.FileSystemObject")
Set MyTextFile = MyFileObject.CreateTextFile("G:\写作\flashxmlchat\source\login.xml", 8, TRUE)
MyTextFile.WriteLine(Request.Form)

set objDom = server.CreateObject("microsoft.xmldom")
objDom.loadxml(Request.Form)
set objname = objdom.documentElement.SelectSingleNode("//KICK/ID")
oldid = objname.text
'处理踢人动作
dim i,j,num
  i = 1
  j = 1
  num = 0
  do while j<>0
    j = instr(i,application("VisitorName"), ";", 1)
    if j<>0 then
      num = num + 1
      str = mid(application("VisitorName"), i, j-i)
      temppos = instr(1, str, ";", 1) + 1
      UserNum = mid(str, temppos)
      if UserNum = oldid then
        i = i -1
        j = j + 1
        application("VisitorName") = mid(application("VisitorName"),1,i) & mid(application("VisitorName"),j)
        exit do
      end if
    end if
    i = j + 1
loop

'返回
response.write("<REFRESH><RESULT kflag=""true"" ccontent=""" & application("AllCanSee") & """ talker=""" & application("VisitorName") & """>aa</RESULT></REFRESH>")
%>