[ <%
If Request("Area")<>"" Then
Response.Write Request("Area")
Else
Response.Write "全国"
End If
%> ] 在线用户(只显示有形象照的用户)
共有 [ <%= Application("TotalUsers") %> ] 位用户在线,VIP用户在在线列表中,加红,突出显示. 点这里快速升级VIP
昵称 | 所在地区 | 注册时间 |
" target="_blank"><%=rs("User_Account")%> | <%=rs("User_Shen")%> | <%=rs("User_Star")%> |
提示:该地区分类暂无会员纪录 |
<%
if page <>1 then
Response.Write "首页 "
end if
tmppage = page - 1
if tmppage <= 0 then
tmppage = 1
else
Response.Write"上一页"
end if
tmppage = page + 1
if tmppage >rs.PageCount then
tmppage = page
else
Response.Write " 下一页 "
end if
if Cstr(page) <> Cstr(rs.PageCount) and Cstr(rs.PageCount) <> 0 then
Response.Write "第"&rs.PageCount&"页"
end if
Response.Write " "&rs.RecordCount&" 个会员 "
if Cstr(rs.PageCount) <> 0 then
Response.Write "" & page & " / "&rs.PageCount&"页"
end if
rs.close
set rs=nothing
conn.close
set conn=nothing
Else
%>
<%
if Len(Trim(Request("page")))=0 Then '返回目标页码的判断
page=1
Else
page=CInt(Trim(Request("page")))
End if
set rs=Server.CreateObject("ADODB.RecordSet")
sql="select * from User_Info Where User_Shen='"&Area&"' order by User_Id desc"
rs.open sql,conn,1,1
rs.PageSize=30
if not rs.eof then
rs.AbsolutePage=page
for k=1 to rs.PageSize
%>
<%=rs("User_Account")%>
<%=rs("User_Shen")%>
<%=rs("User_Star")%>
<%
rs.movenext
if rs.EOF Then Exit For
next
end if
%>
<%
if rs.EOF=rs.BOF and Request("Area")<>"" Then
%>
<%End if%>
提示:该地区分类暂无会员纪录 |
<%
if page <>1 then
Response.Write "首页 "
end if
tmppage = page - 1
if tmppage <= 0 then
tmppage = 1
else
Response.Write"上一页"
end if
tmppage = page + 1
if tmppage >rs.PageCount then
tmppage = page
else
Response.Write " 下一页 "
end if
if Cstr(page) <> Cstr(rs.PageCount) and Cstr(rs.PageCount) <> 0 then
Response.Write "第"&rs.PageCount&"页"
end if
Response.Write " "&rs.RecordCount&" 个会员 "
if Cstr(rs.PageCount) <> 0 then
Response.Write "" & page & " / "&rs.PageCount&"页"
end if
rs.close
set rs=nothing
conn.close
set conn=nothing
End if
%>