exit.asp

基于ASP开发的聊天室源码

<%Response.Expires=0
Response.ExpiresAbsolute = Now() - 1
Response.AddHeader "Pragma","No-Cache"
Response.AddHeader "Cache-Control","Private"
Response.CacheControl = "No-Cache"
Dim conn,rs,sql,nowvalue,oldgrade,nowgrade,i,otherinfo,myonline,outchat,line
if not IsArray(Session("info")) then Response.Redirect "err.asp?kind=13"
 info=Session("info")
 if InStr(Application("maninfo"),"," & info(0) & ",")<>0 then Response.Redirect "manyou.asp"
 info(3)="o"
 Session("info")=info
 %>
<!--#INCLUDE FILE="config.asp" -->
<%
dadiff=DateDiff("s",info(2),now)
davalue=int(dadiff/60)
outchat=Replace(zzbird_outchat,"(name)"," <img border='0' height='16' width='16' src='images/ICO/" & info(4) & "-2.gif'><font color=#0000ff>" & info(0) & "</font> ")
Application.Lock
words=Application("zzbird_words")
line=Application("zzbird_line")
Application("zzbird_line")=line+1
for i=1 to 234
words(i)=words(i+6)
next
words(235)=line+1
words(236)=info(0)
words(237)=""
words(238)="del"
words(239)="<bgsound src='other/out.wav' loop='1'>[<img src='images/sys.gif'>退出]" & outchat & "<font style='font-size: 8pt' color='#808080'>(" & CStr(time) & ")</font>"
words(240)=info(6)
Application("zzbird_words")=words
Application.UnLock

Set Conn=server.createobject("ADODB.CONNECTION")
Conn.Open Application("zzbird_conn")
Set rs=Server.CreateObject("ADODB.RecordSet")
sql="select * from userinfo where user='" & info(0) & "'"
rs.open sql,conn,1,3
if Rs.Eof and Rs.bof then
 Rs.Close
 Set Rs=Nothing
 Conn.Close
 Set Conn=Nothing
 Session.Abandon
 Response.Redirect "err.asp?kind=500"
else
 Rs("value")=Rs("value")+davalue
 nowvalue=Rs("value")
 nowgrade=Rs("grade")
 gradeinfo=Application("gradeinfo")
 if Rs("lockgrade")<>true then
 nowgrade=1
 for i=1 to ubound(gradeinfo)
  if gradeinfo(i,0)=true and nowvalue>=gradeinfo(i,1) then nowgrade=i
 next
 Rs("grade")=nowgrade
 end if
 if Rs("lastmonth")=month(date) then
  Rs("monthv")=Rs("monthv")+davalue
 else
  Rs("lastmonth")=month(date)
  Rs("monthv")=davalue
 end if
 Rs.Update
 rs.Close
 Set Rs=Nothing
 Conn.close
 Set Conn=Nothing
 Session.Abandon
end if
%>
<script language="javascript">
if(self.name=="chatxp001"){top.window.close();}else{top.location.href="default.asp";}
</script>