<% Dim keyword,sex,t keyword=CheckStr(trim(request("KeyWord"))) If sex<>"" then sex=LaoYRequest(request("sex")) End if t=LaoYRequest(request("t")) %> 用户列表-<%=SiteTitle%>
<%=Head%> <%=Menu%>
<%=search%>您现在的位置:首页 >> 会员列表
会员搜索:
    <% Set mypage=new xdownpage mypage.getconn=conn mypage.getsql=server.createobject("adodb.recordset") If keyword<>"" then mysql="select * From ["&tbname&"_User] Where yn = 1 and (UserName = '"&keyword&"' or TrueName like '%"&keyword&"%' or province like '%"&keyword&"%' or city like '%"&keyword&"%')" else mysql="select * From ["&tbname&"_User] Where yn = 1" end if If sex<>"" then mysql = mysql & " and sex = "&sex&"" End if if t=0 then mysql = mysql & " order by id desc" elseif t=1 then mysql = mysql & " order by UserMoney desc" end if mypage.getsql = mysql mypage.pagesize=30 set rs=mypage.getrs() for i=1 to mypage.pagesize if not rs.eof then %> <% rs.movenext else exit for end if next %>
    用户名 性别 年龄 籍贯 <%=moneyname%> 注册时间
    " target="_blank"><%=rs("UserName")%> <%If rs("Sex")=1 then Response.Write("男") else Response.Write("") end if%> <%=datediff("yyyy",rs("birthday"),Now())%> <%=rs("province")%><%=rs("city")%> <%=rs("UserMoney")%> <%=rs("RegTime")%>
    <%=mypage.showpage()%>
<%Echo ShowAD(3)%>
最新文章
    <%Call ShowArticle(0,10,5,"·",100,"no","DateAndTime desc,ID desc",0,1,0)%>
<%=Copy%>