我自己写的聊天室源代码（七）
*****************************聊天处理******************************<%'chatadmin.asp%>
<%response.buffer = true%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>聊天处理</title>
<meta name="GENERATOR" content="Microsoft FrontPage 3.0">
<meta name="Microsoft Theme" content="none, default">
<meta name="Microsoft Border" content="none">
</head>
<%
dim sc_name,sc_pass,sc_pass1,sc_ip,sc_flag,sc_易做图,sc_comin,sc_goout,sc_userflag,sc_bq(100),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")
'用户在线检查
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
补充：asp教程,高级应用
