man_roomdel.asp

基于ASP开发的聊天室源码

<%
Response.Expires=0
Response.ExpiresAbsolute = Now() - 1
Response.AddHeader "Pragma","No-Cache"
Response.AddHeader "Cache-Control","Private"
Response.CacheControl = "No-Cache"
Dim id,emp,Conn,Sql
if not IsArray(Session("info")) then Response.Redirect "err1.asp?kind=01"
info=Session("info")
if InStr(Application("maninfo"),"," & info(0) & ",")<>0 then Response.Redirect "manyou.asp"
oldgradeinfo=Application("gradeinfo")
if oldgradeinfo(info(1),14)<>true then Response.Redirect "err.asp?kind=83"
id=Int(Request("id"))
emp=Trim(Request("emp"))
Set Conn=server.createobject("ADODB.CONNECTION")
Conn.Open Application("zzbird_conn")
Set rs=server.createobject("adodb.recordset")
sql="select * from room"
rs.open sql,conn,3,3
if rs.recordcount<2 then
 Rs.Close
 Set Rs=Nothing
 Conn.Close
 Set Conn=Nothing
 Response.Redirect "err.asp?kind=99"
else
 Rs.Close
 Set Rs=Nothing
end if

SQL="Delete from room where id=" & id
Conn.Execute (SQL)

Set rs=server.createobject("adodb.recordset")
sql="select * from room"
rs.open sql,conn,3,3
If Rs.Eof and Rs.bof then
  rs.Close
  Set rs=Nothing
  Conn.Close
  Set Conn=Nothing
  Response.Write"<script>alert('读取服务器的数据库时发生错误.这可能是:\r\n\r\n\r\n网站管理员没有定义任何房间."');</script>"
  Response.End
End If
 co=int(rs.recordcount-1)
 dim roominfo()
 redim roominfo(co,5)
 dim online()
 redim online(0)
 Application.Lock
 for i=0 to co
  roominfo(i,0)=Rs("id")
  roominfo(i,1)=Rs("roomname")
  roominfo(i,2)=Rs("max")
  roominfo(i,3)=Rs("automan")
  roominfo(i,4)=Rs("mingrade")
  roominfo(i,5)=Rs("text")
  If not IsArray(Application("online"&roominfo(i,0))) Then
   Application("online"&roominfo(i,0))=online
   Application("zzbird_name_"&roominfo(i,0))=""
  End If
  rs.MoveNext
 next
 Application("roominfo")=roominfo
 Application.UnLock
rs.Close
set rs=Nothing
conn.close
set conn=nothing 

Response.Redirect "man_room.asp"
%>