Chat Room | Source code <% ' ************************ refresh, on *****************************%>
<% ' new.asp%>
<meta http-equiv= "Content-type" content= "text/html; charset=gb2312 ">
<title> Refresh </title>
<meta name= "generator" content= "Microsoft FrontPage 3.0" >
<meta name= "Microsoft Theme" content= "None, Default" >
<meta name= "Microsoft Border" content= "None" >
<base target= "Contents" >
<%if session ("Ss_nowflag") = 0 then%>
<script language= "JavaScript" ><!--
parent.location.href = "Default.asp"
--></script>
<%end if%>
<%if Trim (Request.Form ("B1")) <> "" Then%>
<script language= "JavaScript" ><!--
Parent.midleft.document.forms[0].acction.value = "0"
-->
</script>
<%end if%>
<script
Language= "JavaScript" ><!--
function Refr ()
{
Parent.bottom.location.href = "new.asp";
return true;
}
function Write1 (Text1)
{
Parent.topleft.document.write ("<br>" + Text1);
Parent.topleft.window.scrollTo (1,60000);
return true;
}
SetTimeout ("Refr ()", 5000);
--></script>
<%if Request.Form ("B1") <> "" Then
Sc_www = CStr (Request.Form ("who"))
%>
<script language= "JavaScript" ><!--
Parent.midleft.location.href = "Say.asp?name=<%response.write (sc_www)%>";
--></script>
<%end if%>
<body>
<%
Dim sc_what,sc_color,sc_who1,sc_who2,sc_flag,sc_bq
Dim Sc_point,sc_usernum,sc_message,sc_user,sc_user1 (30,8), SC_USEROUT,SC_USEROUT1 (30,6)
Dim Sc_ff,sc_time,sc_time1,my_message,my_message1 (M), My_point,my_usernum
If session ("Ss_nowflag") <> 0 Then
' Global variables
Application.Lock
Sc_point = Application ("Ap_point")
Sc_message = Application ("Ap_message")
Sc_usernum = Application ("Ap_usernum")
Sc_user = Application ("Ap_user")
Sc_userout = Application ("Ap_userout")
' User online check
For i = 1 to 30
For j = 1 to 8
Sc_user1 (I,J) = ""
Next
For j = 1 to 6
SC_USEROUT1 (I,J) = ""
Next
Next
SC_FF = 0
J=0
Sc_time = Now
For i = 1 to 30
If Trim (Sc_user (i,1) = Trim (Session ("Ss_name")) Then
SC_FF = 1
Sc_user (i,7) = CStr (now)
End If
If Trim (Sc_user (i,1)) <> "" Then
sc_time1 = CDate (Sc_user (i,7))
If DateDiff ("s", Sc_time1,sc_time) < Then
j = j + 1
&nb
[1] [2] [3] [4] [5] [6] [7] [8] [9] [10] Next page >>