WEB源码(ASP,PHP,...)

开发平台：

HTML/CSS

showname.asp：源码内容

							<style type="text/css">
<!--
body {
	background-color: #9999FF;
	background-image: url(lbg.jpg);
}
table {
	font-size: 12px;
	font-weight: lighter;
	color: #000000;
	text-decoration: blink;
	border: medium none #99FF00;
}
-->
</style>
<table width="100%">
<tr>
<td>
在线网友
<hr>
</td>
</tr>
<tr>
<td>
<!-- #include file="conn.asp" -->
<%
'定义数组
dim timername()
redim timername(50)
dim timertime()
redim timertime(50)
dim i,n
dim mi
dim ho
'获得当前时间
mi=MINUTE(TIME)
ho=HOUR(TIME)
if len(mi)<2 then
mi="0"&mi
end if
if len(mi)<1 then
mi="0"&"0"
end if
if len(ho)<2 then
ho="0"&ho
end if
if len(ho)<1 then
ho="0"&"0"
end if
nowtime=ho&mi
'将数据库的名单赋值给数组
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 step 1
     timername(i)=rs("username")
	 timertime(i)=rs("onlinetime")
        rs.movenext
    if rs.EOF Then Exit For
    next  
'现在时间与数组时间比较大于2分针,则删除该在线名单
for i=1 to 50 step 1
t=timertime(i)
if clng(nowtime-t)>2 or clng(nowtime-t)=2 or clng(t-nowtime)>10 then
set rsdell=Server.CreateObject("ADODB.RecordSet")
sqldell="delete * from online where username='"&timername(i)&"'"
rsdell.open sqldell,conn,1,3
end if
next
'显示最新在线名单
set rsout=Server.CreateObject("ADODB.RecordSet")
sqlout="select  * from  online  where id ORDER BY id DESC"
rsout.open sqlout,conn,1,1
for i=1 to 50 step 1
     response.Write(rsout("username"))
	 response.Write("<br>")
 rsout.movenext
    if rsout.EOF Then Exit For
next
 response.Write("<br>")
for h=1 to 50 step 1
 response.Write("::::")
 response.Write("<br>")
next
'更新自己在线时间,防止被踢出
set rsupdata=Server.CreateObject("ADODB.RecordSet")
sqlupdata="select * from online where username='"&session("username")&"'"
rsupdata.open sqlupdata,conn,1,3
rsupdata("onlinetime")=nowtime
rsupdata.update
'???????????
%>
</td>
</tr>
</table>
<tr>
 <td align="center"><form name=loading>
<table border=0 cellpadding=0 cellspacing=0 width="86%" height="100%">
<tr>
   <TD align="center" valign="top">
   
   <p><input  type="hidden" name=chart size=46 style="font-family:Arial; font-weight:bolder; color:black; background-color:#EAEAEA; padding:0px; border-style:none;">
<br>
<input type="hidden" name=percent size=46 style="font-family:Arial; color:black; background-color:#EAEAEA;text-align:center; border-width:medium; border-style:none;">
<script>var bar = 0 
var line = "||" 
var amount ="||" 
count() 
function count(){ 
bar= bar+0.5 
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></p></TD>
</tr>
</table>
</FORM></td>
<td></td>
<tr>
</table>
<!-- START NNR Site Census V5.1 -->
<!-- COPYRIGHT 2004 Nielsen // Netratings -->

						