online.asp

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
%>