?? online.asp
字號:
<!-- #include file="setup.asp" -->
<%
top
%>
<title>在線人員</title>
<style>TABLE{BORDER-TOP:0px;BORDER-LEFT:0px;BORDER-BOTTOM:1px}TD{BORDER-RIGHT:0px;BORDER-TOP:0px}
</style>
<table width=750 align="center" border="0">
<tr>
<td vAlign="top" width="30%"><img src="images/logo.gif" border="0"></td>
<td> <img src="images/closedfold.gif" border="0"> <a href="index.asp"><%=clubname%></a><br>
<img src="images/bar.gif" border="0"><img src="images/openfold.gif" border="0"> 查看在線會員資料</td>
</tr>
</table><BR>
<TABLE cellSpacing=0 width=750 align=center bgColor=a4b6d7 border=0>
<TBODY>
<TR>
<TD height=1></TD></TR></TBODY></TABLE>
<%
count=conn.execute("Select count(sessionid)from online")(0)
regonline=conn.execute("Select count(sessionid)from online where username<>''")(0)
pagesetup=20 '設定帖子每頁的顯示數量
sql="select * from online order by lasttime Desc"
rs.Open sql,Conn
If Count/pagesetup > (Count\pagesetup) then
TotalPage=(Count\pagesetup)+1
else TotalPage=(Count\pagesetup)
End If
PageCount= 0
RS.MoveFirst
if Request.QueryString("ToPage")<>"" then PageCount = cint(Request.QueryString("ToPage"))
if PageCount <=0 then PageCount = 1
if PageCount > TotalPage then PageCount = TotalPage
RS.Move (PageCount-1) * pagesetup
i=0
Do While Not RS.EOF and i<pagesetup
i=i+1
if Request.Cookies("lookip")<>"1" and membercode<4 then
ips=split(rs("ip"),".")
ip=""&ips(0)&"."&ips(1)&".*.*"
else
ip=""&rs("ip")&""
end if
if rs("username")="" then
username="訪 客"
elseif rs("eremite")=1 then
username="隱 身"
else
username="<img src=images/face/"&rs("userface")&".gif width=16 height=16> <a href=profile.asp?username="&rs("username")&">"&rs("username")&"</a>"
end if
place2=""
if rs("act")<>"" then
place2 = "瀏覽“<a href="&rs("acturl")&">"&rs("act")&"</a>”"
place = "『 "&rs("bbsname")&" 』"
else
place = "『 <a href="&rs("acturl")&">"&rs("bbsname")&"</a> 』"
end if
allline=""&allline&"<TABLE borderColor=a4b6d7 cellSpacing=0 cellPadding=1 width=750 align=center border=1><TBODY><TR align=middle bgColor=c4d4e5><TD width=107 bgColor=ecf5ff height=24>"&ip&"</TD><TD width=138 bgColor=f2f8ff height=24>"&rs("cometime")&"</TD><TD width=101 bgColor=ecf5ff height=24>"&username&"</TD><TD width=125 bgColor=f2f8ff height=24>"&place&" </TD><TD width=125 bgColor=f2f8ff height=24>"&place2&" </TD><TD width=132 bgColor=ecf5ff height=24>"&rs("lasttime")&"</TD></TR></TBODY></TABLE>"
rs.movenext
loop
rs.close
%>
<TABLE borderColor=a4b6d7 cellSpacing=0 cellPadding=1 width=750 align=center
bgColor=0bc000 border=1>
<TBODY>
<TR bgColor=c4d4e5 height=25>
<TD align=middle bgColor=#ECF5FF colSpan=7
height=23>目前論壇總共有 <%=count%> 人在線。其中注冊用戶 <%=regonline%> 人,訪客 <%=count-regonline%> 人。</TD></TR></TBODY></TABLE>
<TABLE borderColor=a4b6d7 cellSpacing=0 cellPadding=1 width=750 align=center
border=1>
<TBODY>
<TR align=middle bgColor=c4d4e5>
<TD width=107 height=23 background=images/title_sub.gif>IP地址</TD>
<TD width=138 height=23 background=images/title_sub.gif>登陸時間</TD>
<TD width=101 height=23 background=images/title_sub.gif>用戶名</TD>
<TD width=125 height=23 background=images/title_sub.gif>當前位置</TD>
<TD width=125 height=23 background=images/title_sub.gif>當前動作</TD>
<TD width=132 height=23 background=images/title_sub.gif>活動時間</TD>
</TR></TBODY></TABLE>
<%=allline%>
<center>
Page:[
<%
for i=1 to TotalPage
If i<>PageCount then
Response.Write "<a href=?topage="& i &">" & i & "</a> "
else
Response.Write ""&i&" "
end if
next
%>
]<br>
<%
htmlend
%>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -