<% top %>

<%ClubTree%> → 会员列表

border=0 class=a2> <% order=HTMLEncode(Request("order")) if Len(order)>9 then error("

非法操作") if order="" then order="experience" if Request("hailan")="mohu" then sql=" from user where instr(username,'"&Request("moHuusername")&"')>0" else if left(order,1)="1" then order=replace(order,"1","") sql=" from user where instr(UserInfo,'"&order&"')>0" else sql=" from user order by "&order&" Desc" end if end If '获得总记录 Dim zongShu pagesize=20 '设定每页的显示数量 zongShu=CLng(conn.execute("select count(*)"&sql)(0)) TotalPage=zongShu\pagesize If zongshu Mod pageSize>0 Then TotalPage=TotalPage+1 PageCount = cint(Request.QueryString("ToPage")) if PageCount <1 then PageCount = 1 if PageCount > TotalPage then PageCount = TotalPage PageCounts = pageCount*pagesize-pagesize 'on error resume next rs.Open "select *"&sql&" limit "&pageCounts&","&pagesize&"",Conn,1 if rs.eof then error("

没有找到符合要求的用户。") i=0 Do While Not RS.EOF i=i+1 if rs("userhome")<>"http://" then userhome="" else userhome="" end if s=split(rs("UserInfo"),"\") userinfo=s(1)+"."+s(2) %>

<% RS.MoveNext loop RS.Close %>

用户名	短讯息	注册时间	发表文章	回复文章	省份 -选择省份-北京安徽重庆福建甘肃广东广西贵州海南河北黑龙江河南湖北湖南内蒙古江苏江西吉林辽宁宁夏青海山西山东上海四川天津西藏新疆云南浙江陕西 香港 澳门 台湾	经验值	最后登录时间	登录次数
><%=rs("username")%>	','','width=320,height=170')">	<%=rs("regtime")%>	<%=rs("posttopic")%>	<%=rs("postrevert")%>	<%=userinfo%>	<%=rs("experience")%>	<%=rs("landtime")%>	<%=rs("degree")%>

查询用户名：>

[<%ShowPage TotalPage,PageCount,"order="&Request("order")&"&hailan="&Request("hailan")&"&moHuusername="&Request("moHuusername")%> ]

<% htmlend %>