Chat Room | Source code ***************************** Chat processing ******************************
<% ' chatadmin.asp%>
<%response.buffer = true%>
<meta http-equiv= "Content-type" content= "text/html; charset=gb2312 ">
<title> Chat Processing </title>
<meta name= "generator" content= "Microsoft FrontPage 3.0" >
<meta name= "Microsoft Theme" content= "None, Default" >
<meta name= "Microsoft Border" content= "None" >
<%
Dim Sc_name,sc_pass,sc_pass1,sc_ip,sc_flag,sc_sex,sc_comin,sc_goout,sc_userflag,sc_bq (MB), Sc_acction (100,2), SC _friend (100)
Dim Sc1_user1 (30,8), SC1_POINT,SC1_MESSAGE,SC1_USERNUM,SC1_USER,SC1_USEROUT,SC1_USEROUT1 (30,6)
Application.Lock
Sc1_point = Application ("Ap_point")
Sc1_message = Application ("Ap_message")
Sc1_usernum = Application ("Ap_usernum")
Sc1_user = Application ("Ap_user")
Sc1_userout = Application ("Ap_userout")
' User online check
For i = 1 to 30
For j = 1 to 8
Sc1_user1 (I,J) = ""
Next
For j = 1 to 6
SC1_USEROUT1 (I,J) = ""
Next
Next
SC1_FF = 0
J=0
Sc1_time = Now
For i = 1 to 30
If Trim (Sc1_user (i,1)) <> "" Then
sc1_time1 = CDate (Sc1_user (i,7))
If DateDiff ("s", Sc1_time1,sc1_time) < Then
j = j + 1
For k = 1 to 8
Sc1_user1 (j,k) = Sc1_user (i,k)
Next
Else
' Online number-1
Sc1_usernum = sc1_usernum-1
' Configure parting terms
If Sc1_point > Then
Sc1_point = 1
End If
Sc1_message (sc1_point,1) = Sc1_user (i,1)
Sc1_message (sc1_point,2) = "Everyone"
Sc1_message (sc1_point,3) = Sc1_user (i,3)
Sc1_message (sc1_point,4) = ""
Sc1_message (sc1_point,5) = "8"
Sc1_message (sc1_point,6) = "<font color= ' #FF0000 ' >"
SC1_TTT = Now
If hour (SC1_TTT) < Then