gradedelok.asp

基于ASP开发的聊天室源码

<!--#INCLUDE FILE="config.asp" -->
<%
Response.Expires=0
if not IsArray(Session("info")) then Response.Redirect "err.asp?kind=20"
info=Session("info")
if InStr(Application("maninfo"),"," & info(0) & ",")<>0 then Response.Redirect "manyou.asp"
gradeinfoold=Application("gradeinfo")
if zzbird_master<>info(0) then Response.Redirect "err.asp?kind=62"

dim online_()
redim online_(0)
myonline = info(0) & "|" & info(4) & "|" & info(5) & "|" & info(1) & "|" & info(9) & "|" & info(12)
Application.Lock
temp_name=Replace(Application("zzbird_name"),",","",1,1)
temp_name=temp_name & ","
nowname=split(temp_name,",,")
for i=0 to ubound(nowname)-1
if InStr(Application("maninfo"),nowname(i))=0 and info(0)<>nowname(i) then Application("maninfo")=Application("maninfo") & "5," & nowname(i) & ",;"
next
roominfoold=Application("roominfo")
for j=0 to ubound(roominfoold)
Application("zzbird_name_"&roominfoold(j,0))=""
Application("online"&roominfoold(j,0))=online_
next
redim online_(1)
online_(1)=myonline
Application("online" & info(7))=online_
Application("zzbird_name_" & info(7))="," & info(0) & ","
Application("zzbird_name")="," & info(0) & ","
Application.Unlock

whatgrade=int(Request.Form("whatgrade"))
chuli=int(Request.Form("chuli"))
if info(1)>=whatgrade then
info(1)=info(1)-1
Session("info")=info
end if
Set Conn=server.createobject("ADODB.CONNECTION")
Conn.Open Application("zzbird_conn")
sql="delete from gradeinfo where grade=" & whatgrade
conn.Execute(sql)
sql="update gradeinfo set grade=grade-1 where grade>" & whatgrade
conn.Execute(sql)
sql="update userinfo set grade=grade-1 where grade>=" & whatgrade
conn.Execute(sql)

Set rs=server.createobject("adodb.recordset")
sql="select * from gradeinfo order by grade"
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网站管理员擅自手工修改了级别数据库,对保留数据进行操作导致程序无法运行 .\r\n\r\n             ----------"&zzbird_chatroomname&"');</script>"
  Response.End
 End If
 co=int(rs.recordcount-1)
 dim gradeinfo()
 redim gradeinfo(co,30)
 for i=0 to co
  gradeinfo(i,0)=Rs("autoup")
  gradeinfo(i,1)=Rs("value")
  gradeinfo(i,2)=Rs("say")
  gradeinfo(i,3)=Rs("title")
  gradeinfo(i,4)=Rs("texiao")
  gradeinfo(i,5)=Rs("pic")
  gradeinfo(i,6)=Rs("libadd")
  gradeinfo(i,7)=Rs("libdel")
  gradeinfo(i,8)=Rs("seeip")
  gradeinfo(i,9)=Rs("selftouxian")
  gradeinfo(i,10)=Rs("touxian")
  gradeinfo(i,11)=Rs("kick")
  gradeinfo(i,12)=Rs("ip")
  gradeinfo(i,13)=Rs("hongzha")
  gradeinfo(i,14)=Rs("room")
  gradeinfo(i,15)=Rs("disip")
  gradeinfo(i,16)=Rs("radio")
  gradeinfo(i,17)=Rs("upgrade")
  gradeinfo(i,18)=Rs("upgrademax")
  gradeinfo(i,19)=Rs("downgrade")
  gradeinfo(i,20)=Rs("downgrademin")
  gradeinfo(i,21)=Rs("allgrade")
  gradeinfo(i,22)=Rs("gbook")
  gradeinfo(i,23)=Rs("gonggao")
  gradeinfo(i,24)=Rs("user")
  gradeinfo(i,25)=Rs("unip")
  gradeinfo(i,26)=Rs("niming")
  gradeinfo(i,27)=Rs("kf")
  gradeinfo(i,28)=Rs("manpoll")
  gradeinfo(i,29)=Rs("html")
  gradeinfo(i,30)=Rs("seeniming")
  rs.MoveNext
 next
rs.Close
Set rs=Nothing
Conn.Close
Set Conn=Nothing
 man_say=","
 man_title=","
 man_texiao=","
 man_pic=","
 man_selftouxian=","
 man_touxian=","
 man_kick=","
 man_ip=","
 man_hongzha=","
 man_html=","
 for i=0 to co
  if gradeinfo(i,2)=true then man_say = man_say & cstr(i) & ","
  if gradeinfo(i,3)=true then man_title = man_title & cstr(i) & ","
  if gradeinfo(i,4)=true then man_texiao = man_texiao & cstr(i) & ","
  if gradeinfo(i,5)=true then man_pic = man_pic & cstr(i) & ","
  if gradeinfo(i,9)=true then man_selftouxian = man_selftouxian & cstr(i) & ","
  if gradeinfo(i,10)=true then man_touxian = man_touxian & cstr(i) & ","
  if gradeinfo(i,11)=true then man_kick = man_kick & cstr(i) & ","
  if gradeinfo(i,12)=true then man_ip = man_ip & cstr(i) & ","
  if gradeinfo(i,13)=true then man_hongzha = man_hongzha & cstr(i) & ","
  if gradeinfo(i,29)=true then man_html = man_html & cstr(i) & ","
 next
Application.Lock
 Application("gradeinfo")=gradeinfo
 Application("zzbird_man_say")=man_say
 Application("zzbird_man_title")=man_title
 Application("zzbird_man_texiao")=man_texiao
 Application("zzbird_man_pic")=man_pic
 Application("zzbird_man_selftouxian")=man_selftouxian
 Application("zzbird_man_touxian")=man_touxian
 Application("zzbird_man_kick")=man_kick
 Application("zzbird_man_ip")=man_ip
 Application("zzbird_man_hongzha")=man_hongzha
 Application("zzbird_man_html")=man_html
Application.UnLock

Response.Redirect "grade.asp?reload=ok"
%>