当前位置：编程学习 > asp >>
答案：*****************************聊天处理******************************
<%'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
sc1_time1 = cdate(sc1_user(i,7))
if datediff("s",sc1_time1,sc1_time) < 61 then
j = j + 1
for k = 1 to 8
sc1_user1(j,k) = sc1_user(i,k)
next
else
'在线数量-1
sc1_usernum = sc1_usernum - 1
'配置离别用语
if sc1_point > 50 then
sc1_point = 1
end if
sc1_message(sc1_point,1) = sc1_user(i,1)
sc1_message(sc1_point,2) = "所有人"
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) < 10 then
sc1_message(sc1_point,7) = "0" + cstr(hour(sc_ttt)) + ":"
else
sc1_message(sc1_point,7) = "" + cstr(hour(sc_ttt)) + ":"
end if
if minute(sc1_ttt) < 10 then
sc1_message(sc1_point,7) = sc1_message(sc1_point,7) + "0" + cstr(minute(sc_ttt)) + ":"
else
sc1_message(sc1_point,7) = sc1_message(sc1_point,7) + cstr(minute(sc_ttt)) + ":"
end if
if second(sc1_ttt) < 10 then
sc1_message(sc1_point,7) = sc1_message(sc1_point,7) + "0" + cstr(second(sc_ttt))
else
sc1_message(sc1_point,7) = sc1_message(sc1_point,7) + cstr(second(sc_ttt))
end if
sc_point = sc_point + 1
if sc_point > 50 then
sc_point = 1
end if
end if
end if
next
j = 0
for i = 1 to 30
if trim(sc1_userout(i,1)) <> "" then
sc1_time1 = cdate(sc1_userout(i,5))
if datediff("s",sc1_time1,sc1_time) < 1 then
j = j +
上一个：我自己写的聊天室源代码（八）
下一个：我自己写的聊天室源代码（十_1）
- 更多asp疑问解答：
- asp正则过滤重复字符串的代码
- 用asp过滤全部html但保留br类似的符号
- 会asp，但感觉asp要过点，想学php。但我一般做的都是小公司的站，用access数
- PHP的空间可以用ASP的源代码吗？
- 以前做asp程序，现在应该怎样发展？是学.net还是php
- 以前做asp程序，现在应该怎样发展？是学.net还是php
- 想做一个市级的人才网acess,sql数据库，语言asp,jsp,php分别用哪种好
- jsp，asp，php 区别
- 我想找一个有比较多漏洞的网站的源码，比如可以asp，php注入等都可以。供学习研究用。请提供下载地址。。
- 现在候找人做个网站，用ASP，还是PHP语言去做好
- asp,php ,jsp,.net 对于做网站前台的重要吗？
- asp和php的区别是什么？
- 我是新手SEO菜鸟 请问wp dw php asp cms myspl dede 这些软件应该如何区分呀？
- 网页制作相关的三种语言：ASP JSP PHP那个好点，简单点？
- 网页制作相关的三种语言：ASP JSP PHP那个好点，简单点？