showname.asp

课程设计系列（ASP）代码开发的聊天室程序。

<style type="text/css">
<!--
body,td,th {
	color: #000000;
}
.style1 {font-size: 16px}
-->
</style><table width="100%">
<tr>
<td>
  <span class="style1">在线网友</span>
  <hr></td>
</tr>
<tr>
<td>
<!-- #include file="conn.asp" -->
<%
'定义数组
dim timername()
redim timername(50)
dim timertime()
redim timertime(50)
dim i,n,fen,shi
fen=minute(time)
shi=hour(time) 
if len(fen)<2 then
fen="0"&fen
end if
if len(fen)<1 then
fen="0"&"0"
end if
if len(shi)<2 then
shi="0"&shi
end if
if len(shi)<1 then
shi="0"&"0"
end if
'将时间中的小时和分钟用4位数来表示
nowtime=shi&fen
'将数据库的名单赋值给数组
set rs=Server.CreateObject("ADODB.RecordSet")
sql="select  * from  online  where id ORDER BY id DESC"
rs.open sql,conn,1,1
	for i=1 to 50 '把数据库中的用户名和其在线时间保存到数组中
     timername(i)=rs("username")
	 timertime(i)=rs("onlinetime")
     rs.movenext
     if rs.EOF Then Exit For
    next  
'网友在线时长超过5分钟，则被从数据库中删除，即踢出聊天室
for i=1 to 50
t=timertime(i)
if clng(nowtime-t)>5 or clng(nowtime-t)=15 or clng(t-nowtime)>15 then
set rs1=Server.CreateObject("ADODB.RecordSet")
sql="delete * from online where username='"&timername(i)&"'"
rs1.open sql,conn,1,3
end if
next
response.Write("<table>")
'显示最新在线名单
set rs2=Server.CreateObject("ADODB.RecordSet")
sql="select  * from  online  where id ORDER BY id DESC"
rs2.open sql,conn,1,1
Do while not rs2.EOF 
	 response.Write("<tr><td>")
     response.Write(rs2("username"))
	 rs2.movenext
Loop
 response.Write("</table>")
set rs3=Server.CreateObject("ADODB.RecordSet")
sql="select * from online where username='"&session("username")&"'"
rs3.open sql,conn,1,3
rs3("onlinetime")=nowtime
rs3.update
%></td>
</tr>
<tr>
 <td align="center">
 <form name="loading">
<table border=0 cellpadding=0 cellspacing=0 width="100%" height="100%">
<tr>
   <td align="center" valign="top">   
<input  type="hidden" name="chart">
<input type="hidden" name="percent">
	<script>
	//刷新页面
	var bar = 0 
	var line = "||" 
	var amount ="||" 
	count() 
	function count(){ 
	bar= bar+1 
	amount =amount + line 
	document.loading.chart.value=amount 
	document.loading.percent.value=bar+"%" 
	if (bar<99) 
	{setTimeout("count()",20);} 
	else 
	{window.location = "showname.asp";;}
	}
	</script>
</table>
</form></td>
<tr>
</table>