gn.asp

应用于高等院校党团思想教育

<%@ LANGUAGE=VBScript.Encode %>
<%Response.Buffer=true
Response.Expires=0
scrname=Request.ServerVariables("SCRIPT_NAME")
if Instr(LCase(scrname),"gnchat.asp")=0 then Response.Redirect "error.asp?id=002"
nickname=Session("hxf_u_nickname")
useronlinename=Application("hxf_c_useronlinename")
Session("hxf_u_sift")="0"
Session("hxf_u_filname")=" ,"
if Application("hxf_c_closedoor")="1" then Response.Redirect "error.asp?id=100"
if int(Application("hxf_c_chatrs"))>=int(Application("hxf_c_maxpeople")) then Response.Redirect "error.asp?id=101"
allhttp=LCase(Request.ServerVariables("ALL_HTTP"))
if Application("hxf_c_disproxy")="1" and (Instr(allhttp,"proxy")<>0 or Instr(allhttp,"http_via")<>0 or Instr(allhttp,"http_pragma")<>0) then Response.Redirect "error.asp?id=011"
if nickname="" then Response.Redirect "error.asp?id=210"
if nickname="聊天室管理员" then Response.Redirect "error.asp?id=301"
n=Year(date())
y=Month(date())
r=Day(date())
s=Hour(time())
f=Minute(time())
m=Second(time())
if len(y)=1 then y="0" & y
if len(r)=1 then r="0" & r
if len(s)=1 then s="0" & s
if len(f)=1 then f="0" & f
if len(m)=1 then m="0" & m
sj=n & "-" & y & "-" & r & " " & s & ":" & f & ":" & m
t=s & ":" & f & ":" & m
Session("hxf_u_lastsaytime")=sj
jb=Application("hxf_c_jb")
if Session("hxf_u_inthechat")<>"1" then
if InStr(LCase(useronlinename)," " & LCase(nickname) & " ")<>0 then Response.Redirect "error.asp?id=300"
Session("hxf_u_inthechat")="1"
Session("hxf_u_savetime")=sj
Session("hxf_u_lasttime")=sj
Application.Lock
onlinelist=Application("hxf_c_onlinelist")
dim newonlinelist()
useronlinename=""
onliners=0
js=1
yjl=0
ubl=UBound(onlinelist)
for i=1 to ubl step 6
 if DateDiff("n",onlinelist(i+5),sj)<=60 then
  if yjl=0 and StrComp(onlinelist(i+1),nickname,1)=1 then
   yjl=1
   onliners=onliners+2
   useronlinename=useronlinename & " " & nickname & " " & onlinelist(i+1)
   Redim Preserve newonlinelist(js),newonlinelist(js+1),newonlinelist(js+2),newonlinelist(js+3),newonlinelist(js+4),newonlinelist(js+5),newonlinelist(js+6),newonlinelist(js+7),newonlinelist(js+8),newonlinelist(js+9),newonlinelist(js+10),newonlinelist(js+11)
   newonlinelist(js)=0
   newonlinelist(js+1)=nickname
   newonlinelist(js+2)=Request.ServerVariables("REMOTE_ADDR")
   newonlinelist(js+3)=Session("hxf_u_gender")
   newonlinelist(js+4)=sj
   newonlinelist(js+5)=sj
   newonlinelist(js+6)=onlinelist(i)
   newonlinelist(js+7)=onlinelist(i+1)
   newonlinelist(js+8)=onlinelist(i+2)
   newonlinelist(js+9)=onlinelist(i+3)
   newonlinelist(js+10)=onlinelist(i+4)
   newonlinelist(js+11)=onlinelist(i+5)
   js=js+12
  else
   onliners=onliners+1
   useronlinename=useronlinename & " " & onlinelist(i+1)
   Redim Preserve newonlinelist(js),newonlinelist(js+1),newonlinelist(js+2),newonlinelist(js+3),newonlinelist(js+4),newonlinelist(js+5)
   newonlinelist(js)=onlinelist(i)
   newonlinelist(js+1)=onlinelist(i+1)
   newonlinelist(js+2)=onlinelist(i+2)
   newonlinelist(js+3)=onlinelist(i+3)
   newonlinelist(js+4)=onlinelist(i+4)
   newonlinelist(js+5)=onlinelist(i+5)
   js=js+6
  end if
 end if
next
if yjl=0 then
 onliners=onliners+1
 useronlinename=useronlinename & " " & nickname
 Redim Preserve newonlinelist(js),newonlinelist(js+1),newonlinelist(js+2),newonlinelist(js+3),newonlinelist(js+4),newonlinelist(js+5)
 newonlinelist(js)=0
 newonlinelist(js+1)=nickname
 newonlinelist(js+2)=Request.ServerVariables("REMOTE_ADDR")
 newonlinelist(js+3)=Session("hxf_u_gender")
 newonlinelist(js+4)=sj
 newonlinelist(js+5)=sj
end if
useronlinename=useronlinename&" "
if onliners=0 then
 dim listnull(0)
 Application("hxf_c_onlinelist")=listnull
else
 Application("hxf_c_onlinelist")=newonlinelist
end if
Application("hxf_c_useronlinename")=useronlinename