<% function gettipnum14() dim tmprs14 tmprs14=conn.execute("Select Count(userid) from danranyixiaouser where groupid=1") gettipnum14=tmprs14(0) set tmprs14=nothing if isnull(gettipnum14) then gettipnum14=0 end function %>

[新增会员]　[活跃会员]　[会员排行]     认证会员 数量 <%=gettipnum14()%> 名

[华北地区]  北京市  天津市  河北省  山西省  内蒙古自治区  <% set rs=server.createobject("adodb.recordset") i=0 sql="SELECT * FROM danranyixiaouser where groupid=1 and provinceid=1 order by id desc" rs.open sql,conn,1,1 if rs.eof then response.write" 没有会员 " else do while not rs.eof %> <% i=i+1 if i>=49 then exit do if i mod 7=0 and i>=7 then %> <% end if rs.movenext loop end if rs.close %> <% select case rs("Sex") case "女" response.write"" case "男" response.write"" end select %> .html" target="_blank"><%=rs("userid")%> [东北地区]  辽宁省  吉林省  黑龙江省  <% set rs=server.createobject("adodb.recordset") i=0 sql="SELECT * FROM danranyixiaouser where groupid=1 and provinceid=2 order by id desc" rs.open sql,conn,1,1 if rs.eof then response.write" 没有会员 " else do while not rs.eof %> <% i=i+1 if i>=49 then exit do if i mod 7=0 and i>=7 then %> <% end if rs.movenext loop end if rs.close %> <% select case rs("Sex") case "女" response.write"" case "男" response.write"" end select %> .html" target="_blank"><%=rs("userid")%> [华东地区]  上海市  江苏省  浙江省  安徽省  福建省  江西省  山东省  台湾省  <% set rs=server.createobject("adodb.recordset") i=0 sql="SELECT * FROM danranyixiaouser where groupid=1 and provinceid=3 order by id desc" rs.open sql,conn,1,1 if rs.eof then response.write" 没有会员 " else do while not rs.eof %> <% i=i+1 if i>=49 then exit do if i mod 7=0 and i>=7 then %> <% end if rs.movenext loop end if rs.close %> <% select case rs("Sex") case "女" response.write"" case "男" response.write"" end select %> .html" target="_blank"><%=rs("userid")%> [中南地区]  河南省  湖北省  湖南省  广东省  广西自治区  海南省  香港市  澳门市  <% set rs=server.createobject("adodb.recordset") i=0 sql="SELECT * FROM danranyixiaouser where groupid=1 and provinceid=4 order by id desc" rs.open sql,conn,1,1 if rs.eof then response.write" 没有会员 " else do while not rs.eof %> <% i=i+1 if i>=49 then exit do if i mod 7=0 and i>=7 then %> <% end if rs.movenext loop end if rs.close %> <% select case rs("Sex") case "女" response.write"" case "男" response.write"" end select %> .html" target="_blank"><%=rs("userid")%> [西南地区]  重庆市  四川省  贵州省  云南省  西藏自治区  <% set rs=server.createobject("adodb.recordset") i=0 sql="SELECT * FROM danranyixiaouser where groupid=1 and provinceid=5 order by id desc" rs.open sql,conn,1,1 if rs.eof then response.write" 没有会员 " else do while not rs.eof %> <% i=i+1 if i>=49 then exit do if i mod 7=0 and i>=7 then %> <% end if rs.movenext loop end if rs.close %> <% select case rs("Sex") case "女" response.write"" case "男" response.write"" end select %> .html" target="_blank"><%=rs("userid")%> [西北地区]  陕西省  甘肃省  青海省  宁夏自治区  新疆自治区  <% set rs=server.createobject("adodb.recordset") i=0 sql="SELECT * FROM danranyixiaouser where groupid=1 and provinceid=6 order by id desc" rs.open sql,conn,1,1 if rs.eof then response.write" 没有会员 " else do while not rs.eof %> <% i=i+1 if i>=49 then exit do if i mod 7=0 and i>=7 then %> <% end if rs.movenext loop end if rs.close %> <% select case rs("Sex") case "女" response.write"" case "男" response.write"" end select %> .html" target="_blank"><%=rs("userid")%>

<% end if %>