giveyou.asp

基于ASP开发的聊天室源码

<%Response.Expires=0
Response.ExpiresAbsolute = Now() - 1
Response.AddHeader "Pragma","No-Cache"
Response.AddHeader "Cache-Control","Private"
Response.CacheControl = "No-Cache"
Dim myonline,k,a_all,oldgrade,w1,w2,w3,w4,w5
if not IsArray(Session("info")) then Response.Redirect "err.asp?kind=20"
info=Session("info")
if InStr(Application("giveyou"),"," & info(0) & ";")=0 then Response.Redirect "err2.asp?kind=08"
%>
<!--#INCLUDE FILE="function.asp" -->
<%
giveyou=split(Application("giveyou"),";")
for k=0 to ubound(giveyou)-1
 a_info=split(giveyou(k),",")
 if a_info(3)=info(0) then
 a_all=giveyou(k) & ";"
  if int(a_info(0))=1 then

    info(12)=a_info(1)
    Session("info")=info
    myonline = info(0) & "|" & info(4) & "|" & info(5) & "|" & info(1) & "|" & info(9) & "|" & info(12)
    Application.Lock
     online=Application("online" & info(7))
     onno=ubound(online)
     for i=1 to onno
      if InStr(online(i),info(0) & "|")=1 then
        online(i)=myonline
        Application("online" & info(7))=online
        exit for
      end if
     next
     Application("giveyou")=Replace(Application("giveyou"),a_all,"")
    Application.UnLock
    w1=info(0)
    w2=myonline
    w3="changeinfo"
    if a_info(1)<>"" then
     w4="[头衔]"&a_info(2)&" 册封给 <img src='images/ico/" & info(4) & "-2.gif' height='16' width='16'><a target='l3' href=javascript:parent.l3.selectuser('[" & info(0) & "]');><font color='#d90000'>" & info(0) & "</font></a> 一个头衔美其名曰“<font color='red'>"&a_info(1)&"</font>”。<font style='font-size: 8pt' color='#808080'>("& CStr(time) &")</font><font style='font-size: 9pt' color='#FF00FF'>(" & info(0) & "的浏览器正确响应)</font>"
    else
     w4="[头衔]"&a_info(2)&" 撤销了 <img src='images/ico/" & info(4) & "-2.gif' height='16' width='16'><a target='l3' href=javascript:parent.l3.selectuser('[" & info(0) & "]');><font color='#d90000'>" & info(0) & "</font></a> 的头衔。<font style='font-size: 8pt' color='#808080'>(" & CStr(time) & ")</font><font style='font-size: 9pt' color='#FF00FF'>(" & info(0) & "的浏览器正确响应)</font>"
    end if
    w5=info(6)
    saveword w1,w2,w3,w4,w5

  elseif int(a_info(0))=2 or int(a_info(0))=3 then

    oldgrade=info(1)
    info(1)=int(a_info(1))
    Session("info")=info
    myonline = info(0) & "|" & info(4) & "|" & info(5) & "|" & info(1) & "|" & info(9) & "|" & info(12)
    Application.Lock
     online=Application("online" & info(7))
     onno=ubound(online)
     for i=1 to onno
      if InStr(online(i),info(0) & "|")=1 then
        online(i)=myonline
        Application("online" & info(7))=online
        exit for
      end if
     next
     Application("giveyou")=Replace(Application("giveyou"),a_all,"")
    Application.UnLock
    w1=info(0)
    w2=myonline
    w3="changeinfo"
    w4="[级别]" & a_info(2) & " 将 <img src='images/ico/" & info(4) & "-2.gif' height='16' width='16'><a target='l3' href=javascript:parent.l3.selectuser('[" & info(0) & "]');><font color='#d90000'>" & info(0) & "</font></a> 的等级由 <font color='red'>" & oldgrade & "</font> 级变更为 <font color='red'>" & a_info(1) & "</font> 级。"
    if int(a_info(0))=2 then
    w4=w4 & "(锁定)"
    else
    w4=w4 & "(不锁定)"
    end if
    w4=w4 & "<font style='font-size: 8pt' color='#808080'>(" & CStr(time) & ")</font><font style='font-size: 9pt' color='#FF00FF'>(" & info(0) & "的浏览器正确响应)</font>"
    w5=info(6)
    saveword w1,w2,w3,w4,w5

  end if
 end if
next
%>