?? list.asp
字號:
<!--#include file="connection.asp"-->
<!--#include file="check.asp"-->
<HTML><HEAD><TITLE>Untitled Document</TITLE>
<meta HTTP-EQUIV=REFRESH CONTENT=60;URL=list.asp>
<META content="text/html; charset=gb2312" http-equiv=Content-Type><LINK
href="oa.css" rel=stylesheet>
<SCRIPT language=javascript>
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");
}
</SCRIPT>
<% nowtime=now()
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<'"&shijian&"'-3"
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
%>
<META content="MSHTML 5.00.2614.3500" name=GENERATOR></HEAD>
<BODY bgColor=#276db2 leftMargin=0 topMargin=5 marginheight="0" marginwidth="0">
<TABLE align=center border=0 cellPadding=0 cellSpacing=0 width=100>
<TBODY>
<TR align=middle>
<TD><FONT color=#ffffff>在線人員列表</FONT></TD></TR>
<TR align=middle>
<TD height=5></TD></TR>
<TR align=middle>
<FORM action="" method=post name=form1>
<TD><SELECT multiple name=list
ondblclick=Javascript:OpenSmallWindows(this.form.list.options[this.form.list.selectedIndex].value)
size=25 style="BACKGROUND-COLOR: #f9f9f9; FONT-SIZE: 9pt; WIDTH: 100px">
<OPTION>----在線<%=my_rs.recordcount%>人----</OPTION>
<%do while not my_rs.eof%>
<OPTION
value="show.asp?receiveuser=<%=my_rs("姓名")%>&id=<%=my_rs("id")%>"><%=my_rs("姓名")%></OPTION>
<%my_rs.movenext
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
%>
<OPTION>----離線<%=my_rs.recordcount%>人----</OPTION>
<%do while not my_rs.eof%>
<OPTION
value="show.asp?receiveuser=<%=my_rs("姓名")%>&id=<%=my_rs("id")%>"><%=my_rs("姓名")%></OPTION>
<%my_rs.movenext
loop
my_rs.close
set my_rs=nothing
%>
</SELECT>
</TD></FORM></TR></TBODY></TABLE>
</BODY></HTML>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -