<!--#include file=conn.asp-->
<!--#include file=config.asp-->
<!--#include file=const.asp-->
<!--#include file=char.asp-->
<%
 '=========================================================
' File: Userstar.asp
' Version:3.0
' Date: 2005-11-7
' Script Written by xmrxw
'=========================================================
' Copyright (C) 2004,2005 Xmrxw.Com All rights reserved.
' Web: http://www.xmrxw.com,http://www.xmzxw.com
' Email: info@mssky.com,super@mssky.com
' QQ：10689579　Msn：zdlmicr@hotmail.com
'=========================================================
response.buffer=true
if request("action")="new" then
stats="新进会员"
elseif request("action")="hits" then
stats="最具人气"
else
stats="首页之星"
end if
call nav()
if founderr then
	call head_var("","")
	call Mslove_error()
else
	call head_var(stats,"Userstar.asp")
call tumppages()'翻页处理
strFileName="Userstar.asp?action="&request("action")&""
call main()
end if
call activeonline()
call footer()

sub main()%>
<TABLE cellSpacing=0 cellPadding=0 width=750 align=center border=0 style="border-right:#999999 1px solid;border-left:#999999 1px solid">
  <TBODY>
    <TR> 
      <TD height=28 vAlign=top bgColor=#f8f8f8>&nbsp;</TD>
    </TR>
    <TR>
      <TD height=171 vAlign=top bgColor=#f8f8f8><table width="100%" border="0" cellspacing="0" cellpadding="0">
        <%dim it
		set rs=server.createobject("adodb.recordset")
if request("action")="top" then
	sql="select Username,UserSex,Userface from Ms_user where Istop=1 and Left(Userface,3)<>'ima' order by Topdate desc,Userid"
elseif request("action")="new" then
sql="select Username,UserSex,Userface from Ms_user where Left(Userface,3)<>'ima' order by Userid desc"
elseif request("action")="hits" then
sql="select Username,UserSex,Userface from Ms_user where Left(Userface,3)<>'ima' order by UserViews desc,Userid"
end if
	rs.Open sql,conn,1,1
if not (rs.eof and rs.bof) then
it=0
call rspages()
%>
        <tr>
          <%do while not rs.eof and page_count<Cint(MaxPerPage)
it=it+1%>
          <td align="center">
		  <table width="100%" border="0" cellspacing="0" cellpadding="0">
              <tr>
                <td width=120 height="123" align="center"><img src="<%=rs(2)%>" width="95" height="115" border="0" /></td>
              </tr>
              <tr>
                <td height="32" align="center"><a href="dispuser.asp?username=<%=rs(0)%>"><font color="#FF0000"><%=rs(0)%></font></a> 
                      <%if rs(1)=1 then
	response.Write("酷哥")
	else
	response.Write("靓女")
	end if%>
                </td>
               
              </tr>
          </table></td>
		   <%if it>0 and it mod 6 =0 then
			  response.write("</tr><tr>")
			  end if
			  page_count=page_count+1
  rs.movenext
  loop
  end if%>
        </tr>
        <tr>
          <td colspan=6><%if totalrec>0 then
		  	call showpage(strFileName)
		  end if%></td>
        </tr>
      </table></TD>
    </TR>
  </TBODY>
</TABLE>
<%
rs.close
end sub
%>