autokick.asp

基于ASP开发的聊天室源码

<!--#INCLUDE FILE="config.asp" -->
<!--#INCLUDE FILE="function.asp" -->
<%
if IsArray(Session("info")) then
 info=Session("info")
 if InStr(Application("maninfo"),"," & info(0) & ",")<>0 then Response.Redirect "manyou.asp"
 info(3)="o"
 Session("info")=info
 id=int(Request("id"))
select case id
 case 1
 ly="说脏话，警告又不听。"
 case 2
 ly="乱刷屏，警告又不听。"
 case 3
 ly="试图攻击聊天室，该操作已经被拒绝。"
 case else
 ly="违反聊天室纪律。"
end select
Set Conn=server.createobject("ADODB.CONNECTION")
Conn.Open Application("zzbird_conn")
Set Rs=server.createobject("adodb.recordset")
sql="select * from kickinfo where (id is null)"
rs.open sql,conn,1,3
rs.addnew
Rs("who")=info(0)
Rs("ip")="0.0.0.0"
Rs("kind")=1
Rs("time")=now
Rs.Update
Rs.Close
sql="select * from manlog where (id is null)"
rs.open sql,conn,1,3
rs.addnew
Rs("who")=info(0)
Rs("manager")=info(10)
Rs("ip")="0.0.0.0"
Rs("kind")=1
Rs("liyou")=ly
Rs("niming")=false
Rs("time")=now
Rs.Update
Rs.Close
Set Rs=Nothing
Conn.Close
Set Conn=Nothing
 kick=Replace(zzbird_kick,"(manager)"," <img border='0' height='16' width='16' src='images/ICO/40-2.gif'><font color=#008000>"&info(10)&"</font> ")
 kick=Replace(kick,"(name)"," <img border='0' height='16' width='16' src='images/ICO/" & info(4) & "-2.gif'><font color=#008000>" & info(0) & "</font> ")
 w1=info(0)
 w2=""
 w3="kick"
 w4="[<img src='images/sys.gif'>踢人]"&kick&"（理由：" & ly & "）<font style='font-size: 8pt' color='#808080'>("& CStr(time) &")</font><bgsound src='other/kick.wav' loop='1'>"
 w5=info(6)
 saveword w1,w2,w3,w4,w5
 Session.Abandon
 Response.Redirect "err.asp?kind=50"
else
Response.Redirect "err.asp?kind=15"
end if
%>