<!--#include file="../inc/Bll.asp"-->
<!--#include file="../inc/Constant.asp"-->
<!--#include file="../inc/Md5.asp"-->

<%
Auto_Login2()

dim SumPay,SumIncome,CurrentPage,k,Re,t,p,inum,maxin,classid,key
if Request.QueryString("ac")="GetPicWall" then 
	RS_End
	if Request.QueryString("inum")="" then RW "var RoomListRe='参数错误！';":REND
	if not IsNumeric(Request.QueryString("inum")) then RW "var RoomListRe='参数错误！';":REND
	inum = Clng(Request.QueryString("inum"))
	if Request.QueryString("maxin")="" then RW "var RoomListRe='参数错误！';":REND
	if not IsNumeric(Request.QueryString("maxin")) then RW "var RoomListRe='参数错误！';":REND
	maxin = Clng(Request.QueryString("maxin"))
	Re="{data:["	
	Set RS=DB_CONN.EXECUTE("select top 29 *,(select [i_User_InComeLevel_Style] from [i_User_IncomeLevel] where [i_User_IncomeNum]>=[i_User_IncomeLevel_MinNum] and [i_User_IncomeNum]<[i_User_IncomeLevel_MaxNum]) as 'incomeclass',DateDiff(n,[i_User_ForUpdateTime],getdate()) as 'islive' from [i_User_Info] a join [i_Sys_Room] b on a.[i_User_ID]=b.[i_Sys_Room_AdminUserID] where [i_User_Face] is not null and [i_User_Face]!='' and [i_User_ForUpdateTime] is not null and [i_User_LastLiveTime] is not null and [i_User_IncomeNum]>="&inum&" and [i_User_IncomeNum]<"&maxin&" order by newid()")
	RS.pagesize=29
	if isempty(Request.QueryString("page")) or Request.QueryString("page")="" then CurrentPage=1 else CurrentPage=Cint(Request.QueryString("page")) end if
	if not RS.eof then RS.absolutepage = CurrentPage
	while (not RS.eof and k<RS.pagesize )
		if k>0 then Re=Re&","
		Re=Re&"{userId:0,roomId:'"&RS("i_Sys_Room_ID")&"',nickName:'"&vbsEscape(Get_SafeStr(RS("i_User_NickName")))&"',photoPath:'"&RS("i_User_Face")&"',privateMesg:'"&vbsEscape(RS("i_user_label")&" ")&"',isArt:0,starLevel:'1',starIcon:'"&RS("incomeclass")&"',status:1}"
		k=k+1
		RS.MoveNext
	Wend
	Re=Re&"]}"
	RS_End
	RW Re
	Rend
end if

%>