班级网站系统

				
				
				
				
				
				
				
				
				
				
				  
				     
				      在线用户
				        
								set conn=server.createobject("adodb.connection")
				conn.open ConnString
				
				defDate = dateadd("s", -60, now)
				
				strSql ="SELECT * from Members where M_Last_Visited >#" & defDate & "# order by M_Name"    
				'Response.Write StrSql
				set rs = conn.Execute (StrSql)
				
				i=0
				do until rs.Eof 
					if i mod 2= 0 then 
						CColor = "#CCFFFF"
					else
						CColor = "#CCCCFF"
					End if
					
					Response.Write ""
					Response.Write "" & rs("M_Name") & ""
					Response.Write ""
						
					i=i+1
					rs.MoveNext
				loop
				
				'## 关闭数据库连接
				rs.close
				set rs=nothing
				
				conn.close
				set conn=nothing
				%>