<%
'========================================会员列表开始=====================
i=1
SQL=" Select top 100 UserID,Username,UserSex,LastLogin,UserPost From [Dv_User] order by UserPost desc"
Set rs= Server.CreateObject("adodb.recordset")
rs.open SQL,conn2,1,1
Do While Not rs.Eof
UserSex=rs("UserSex")
if UserSex=0 then
Sex="女"
elseif UserSex=1 then
Sex="男"
else
Sex="男"
end if
set rsc=conn.execute("select top 1 * from SP_member where username='"&rs("Username")&"'")
RegTime=rsc("RegTime") '注册时间
rsc.close : set rsc=nothing
%>
