Untitled Document
href="oa.css" rel=stylesheet>
function OpenSmallWindows(strURL)
{
window.open (strURL,"_blank",
"status=no,resizable=0,toolbar=no,menubar=no,scrollbars=no,width=300,height=160,left=200,top=150");
}
shijian=cstr(year(nowtime))+right("0"+cstr(month(nowtime)),2)+right("0"+cstr(day(nowtime)),2)+right("0"+cstr(hour(nowtime)),2)+right("0"+cstr(minute(nowtime)),2)
Set rs= Server.CreateObject("ADODB.Recordset")
strSql="select * from user where id="&Session("Uid")
rs.open strSql,Conn,3,3
rs("Utime")=shijian
rs.update
rs.close
set rs=nothing
Conn.execute"update user set 状态=false where Utime Conn.execute"update user set 状态=true where Utime>'"&shijian&"'-2"
strSql="select * from user where 状态="&true&" and 审核=true ORDER BY 用户名, id DESC"
set my_rs=server.createobject("adodb.recordset")
my_rs.open strsql,conn,1,1
%>
在线人员列表
ondblclick=Javascript:OpenSmallWindows(this.form.list.options[this.form.list.selectedIndex].value)
size=25 style="BACKGROUND-COLOR: #f9f9f9; FONT-SIZE: 9pt; WIDTH: 100px">
----在线人----
value="show.asp?receiveuser=&id=">
loop%>
strSql="select * from user where 状态=false and 审核=true ORDER BY 用户名, id DESC"
set my_rs=server.createobject("adodb.recordset")
my_rs.open strsql,conn,1,1
%>
----离线人----
value="show.asp?receiveuser=&id=">
loop
my_rs.close
set my_rs=nothing
%>