<!-- #include file="inc/config.asp" -->
<!-- #include file="inc/inc.user.asp" -->
<%

call doWebHead()
call doSkinParse("user_list","")
call doWebEnd()

sub doPageLoad()
	ctl.loadUI()
	dim tmpSubTitle
	select case (cp.action)
	case "emoney"		: tmpSubTitle="财富排行"
	case "integral"		: tmpSubTitle="积分排行"
	case "exp"		: tmpSubTitle="经验排行"
	case "strength"		: tmpSubTitle="体力排行"
	case "bbs_post"		: tmpSubTitle="发贴排行"
	case "prestige"		: tmpSubTitle="威望排行"
	case else		: tmpSubTitle="用户列表"
	end select
	cp.title=tmpSubTitle
end sub

sub doPageParse()
	dim s
	dim tmpID,tmpQuery,tmpOrder,tmpOrders
	set s=new libSearch
	
	tmpID="userid"
	tmpQuery=""
	tmpOrder="desc"
	tmpOrders=""
		
	select case (cp.action)
	case "search"
		's.setField("username")
		's.setFields("username=6")
		's.doParse()
		'tmpQuery=s.toAppendQuery(tmpQuery,"")
		'tmpQueryAppend=""
		'if int(userid)>0 then tmpQueryAppend="userid="&userid
		'tmpQuery=ops.db.toAppend(tmpQuery,tmpQueryAppend,"")
	case "emoney"
		tmpID="u_emoney"
	case "integral"
		tmpID="u_integral"
	case "exp"
		tmpID="u_exp"
	case "strength"
		tmpID="u_strength"
	case "bbs_post"
		tmpID="u_bbs_counter"
	case "prestige"
		tmpID="u_prestige"
		tmpQuery="u_prestige>0"
	case else
	end select
	
	listData.setDataCfg "url","?action="&cp.action&"&keyword="&s.keyword&"&sea_term="&s.term
	listData.setListNum(20)
	listData.setDataDB "table","db_user"
	listData.setDataDB "id",tmpID
	listData.setDataDB "field","userid,username,u_sex,u_emoney,u_integral,u_exp,u_strength,u_bbs_counter,u_prestige,u_tim"
	listData.setDataDB "query",tmpQuery
	listData.setDataDB "order",tmpOrder
	listData.setDataDB "orders",tmpOrders
	listData.doLoad()
	listData.doParse()
end sub
%>