gradeaddok.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"
if zzbird_master<>info(0) then Response.Redirect "err.asp?kind=62"
whatgrade=Request.Form("whatgrade")
autoup=Request.Form("autoup")
upvalue=Request.Form("upvalue")
say=Request.Form("say")
title=Request.Form("title")
texiao=Request.Form("texiao")
pic=Request.Form("pic")
libadd=Request.Form("libadd")
libdel=Request.Form("libdel")
selftouxian=Request.Form("selftouxian")
touxian=Request.Form("touxian")
kick=Request.Form("kick")
ip=Request.Form("ip")
hongzha=Request.Form("hongzha")
kf=Request.Form("kf")
manpoll=Request.Form("manpoll")
niming=Request.Form("niming")
seeniming=Request.Form("seeniming")
seeip=Request.Form("seeip")
room=Request.Form("room")
radio=Request.Form("radio")
gbook=Request.Form("gbook")
gonggao=Request.Form("gonggao")
gradeup=Request.Form("gradeup")
gradeupmax=Request.Form("gradeupmax")
gradedown=Request.Form("gradedown")
gradedownmin=Request.Form("gradedownmin")
gradeall=Request.Form("gradeall")
disip=Request.Form("disip")
user=Request.Form("user")
unip=Request.Form("unip")
html=Request.Form("html")
if not IsNumeric(seeip) then Response.Redirect "err.asp?kind=65"
seeip=int(seeip)
if seeip>4 or seeip<0 then Response.Redirect "err.asp?kind=66"
if autoup="ON" and not IsNumeric(upvalue) then Response.Redirect "err.asp?kind=64"
if gradeall<>"ON" then
 if gradeup="ON" and not (IsNumeric(gradeupmax)) then Response.Redirect "err.asp?kind=67"
 if gradedown="ON" and not (IsNumeric(gradedownmin)) then Response.Redirect "err.asp?kind=68"
end if
if autoup<>"ON" then upvalue=0
if gradeup<>"ON" then gradeupmax=0
if gradedown<>"ON" then gradedownmin=0
if gradeall="ON" then
 gradeup=false
 gradeupmax=0
 gradedown=false
 gradedownmin=0
end if

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

if autoup="ON" then
autoup=true
else
autoup=false
end if
if say="ON" then
say=true
else
say=false
end if
if title="ON" then
title=true
else
title=false
end if
if texiao="ON" then
texiao=true
else
texiao=false
end if
if pic="ON" then
pic=true
else
pic=false
end if
if libadd="ON" then
libadd=true
else
libadd=false
end if
if libdel="ON" then
libdel=true
else
libdel=false
end if
if selftouxian="ON" then
selftouxian=true
else
selftouxian=false
end if
if touxian="ON" then
touxian=true
else
touxian=false
end if
if kick="ON" then
kick=true
else
kick=false
end if
if ip="ON" then
ip=true
else
ip=false
end if
if hongzha="ON" then
hongzha=true
else
hongzha=false
end if
if room="ON" then
room=true
else
room=false
end if
if disip="ON" then
disip=true
else
disip=false
end if
if radio="ON" then
radio=true
else
radio=false
end if
if gradeup="ON" then
gradeup=true
else
gradeup=false
end if
if gradedown="ON" then
gradedown=true
else
gradedown=false
end if
if gradeall="ON" then
gradeall=true
else
gradeall=false
end if
if gbook="ON" then
gbook=true
else
gbook=false
end if
if gonggao="ON" then
gonggao=true
else
gonggao=false
end if
if user="ON" then
user=true
else
user=false
end if
if unip="ON" then
unip=true
else
unip=false
end if
if kf="ON" then
kf=true
else
kf=false
end if
if manpoll="ON" then
manpoll=true
else
manpoll=false
end if
if html="ON" then
html=true
else
html=false
end if
if seeniming="ON" then
seeniming=true
else
seeniming=false
end if
if niming="ON" then
niming=true
else
niming=false
end if
Set Conn=server.createobject("ADODB.CONNECTION")
Conn.Open Application("zzbird_conn")
upsql="update gradeinfo set grade=grade+1 where grade>="&whatgrade
conn.Execute(upsql)
Set rs=server.createobject("adodb.recordset")
sql="select * from gradeinfo where (id is null)"
rs.open sql,conn,1,3
rs.addnew
Rs("grade")=whatgrade
Rs("autoup")=autoup
Rs("value")=upvalue
Rs("say")=say
Rs("title")=title
Rs("texiao")=texiao
Rs("pic")=pic
Rs("libadd")=libadd
Rs("libdel")=libdel
Rs("seeip")=seeip
Rs("selftouxian")=selftouxian
Rs("touxian")=touxian
Rs("kick")=kick
Rs("ip")=ip
Rs("hongzha")=hongzha
Rs("room")=room
Rs("disip")=disip
Rs("radio")=radio
Rs("upgrade")=gradeup
Rs("upgrademax")=gradeupmax
Rs("downgrade")=gradedown
Rs("downgrademin")=gradedownmin
Rs("allgrade")=gradeall
Rs("gbook")=gbook
Rs("gonggao")=gonggao
Rs("user")=user
Rs("unip")=unip
Rs("kf")=kf
Rs("manpoll")=manpoll
Rs("html")=html
Rs("seeniming")=seeniming
Rs("niming")=niming
Rs.Update
Rs.Close

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"
%>