online.asp

不是我做的一个留言板

<%
        RESPONSE.WRITE "<table border=3 width=100% cellspacing=3 cellpadding=3  bgcolor="&list_borderbg_color&">"
        RESPONSE.WRITE "<tr><td width=100% background="&web_background&"/top_foot_img/bg4.gif align=center >"
	RESPONSE.WRITE l_foot_online &"</td></tr><tr><td align=center bgc"
        RESPONSE.WRITE "olor='"&list_bg_color&"' background="&web_background&"/top_foot_img/bg4.gif>"

nowMinute=Minute(now)-3
nowhour=hour(now())
nowdate=day(now())
nowmonth=month(now)
nowyear=year(now())

set rs=server.CreateObject("adodb.recordset")
sql="select username,usergroup,ip,on_web,logtime from [user] where log_ok='ok'and year(logtime)="&nowyear&" and month(logtime)="& nowmonth &" and day(logtime)="&nowdate&" and hour(logtime)="&nowhour&" and hour(logtime)="& nowhour &" and Minute(logtime)>"&nowMinute
rs.open sql,conn,1,1
do while not rs.eof
        RESPONSE.WRITE "<center><a href=# title='<font color=#ff0000>"
        RESPONSE.WRITE L_FOOT_USERNAME &":"&rs("username")&"<br>"&L_FOOT_USERIP&":"&rs("ip")&"<br>"
        RESPONSE.WRITE L_FOOT_USERGROUP&":"&rs("usergroup")&"<br>"
        RESPONSE.WRITE L_FOOT_webonline2 &":"&rs("on_web")&"<br>"
        RESPONSE.WRITE L_FOOT_onlinetime2 &":"&rs("logtime")&"</font>" 
%>' onClick="javascript:window.open('../main/member.asp?id=<%=rs("username")%> ','','width=<%=win_w%>,height=<%=win_h%>,left=<%=win_left%>,top=<%=win_top%>')">
<%
	RESPONSE.WRITE user_group_f(rs("usergroup"),0)
	RESPONSE.WRITE "|"&rs("username")&"|</a>"
on_i=on_i+1
if on_i=6 then
        RESPONSE.WRITE "<br>" 
end if
rs.movenext
loop
rs.close
set rs=nothing

%>