online.asp

此文件为一个电子同学录

<%
Rem 
Rem 判断用户系统信息
function usersysinfo(info,getinfo)
if instr(info,";")>0 then
	dim usersys
	usersys=split(info,";")
	if ubound(usersys)>=2 then
	usersys(1)=replace(usersys(1),"MSIE","Internet Explorer")
	usersys(2)=replace(usersys(2),")","")
	usersys(2)=replace(usersys(2),"NT 5.1","XP")
	usersys(2)=replace(usersys(2),"NT 5.0","2000")
	usersys(2)=replace(usersys(2),"9x","Me")
	usersys(1)="浏 览 器：" & Trim(usersys(1))
	usersys(2)="操作系统：" & Trim(usersys(2))
	if getinfo=1 then
		usersysinfo=usersys(1)
	else
		usersysinfo=usersys(2)
	end if
	else
	if getinfo=1 then
		usersysinfo="浏 览 器：未知"
	else
		usersysinfo="操作系统：未知"
	end if
	end if
else
	if getinfo=1 then
		usersysinfo="未知"
	else
		usersysinfo="未知"
	end if
end if
end function

sub onlineuser()
dim sip,Brstr,ActiveTime,userip,UComeFrom,sgroup
	sql="select * from online "
	set rs=conn.execute(sql)
	do while not rs.eof
		sip=rs("ip")
		Brstr="<br>"
		sgroup="用户类别：" & rs("usergroup") & "" & Brstr
		ActiveTime="来访时间：" & rs("startime") & Brstr & "活动时间：" & rs("lastimebk") & Brstr
		userip="真实ＩＰ：" & sip
		UComeFrom=Brstr & "用户来源：" & address(sip)
	response.write "&nbsp;<a href=userinfo.asp?id="&rs("userid")&" target=_blank title="""& sgroup & ActiveTime &  UserIP & UComeFrom &""">"&htmlencode(rs("realname"))&"</a>"
	rs.movenext
	loop
end sub
%>