<!--#include file="../inc/Bll.asp"-->
<!--#include file="../inc/Constant.asp"-->
<!--#include file="../inc/Md5.asp"-->
<!--#include file="../inc/App.asp"-->
<%
'i_User_PaymentLevel_Style,i_User_InComeLevel_Style,i_User_NickName,i_User_Site|i_User_Height|i_User_Weight|i_User_BWH|i_User_Birthday|i_User_Mail|i_User_QQ|i_User_Label|i_User_Face
dim tRS,tArg,tValue,rid
if Request.QueryString("ac")="getinfo" then
	if Request.QueryString("rid")="" then Rend
	if not IsNumeric(Request.QueryString("rid")) then Rend
	rid=Request.QueryString("rid")
	set tRS = DB_CONN.EXECUTE("select * ,(select count(*) from [i_User_Attention] where [i_User_Attention_GUID]=[i_User_ID]) as 'FansNum',(select [i_User_PaymentLevel_Style] from [i_User_PaymentLevel] where [i_User_PayNum]>=[i_User_PaymentLevel_MinNum] and [i_User_PayNum]<[i_User_PaymentLevel_MaxNum]) as 'i_User_PaymentLevel_Style', (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 'i_User_InComeLevel_Style' from [i_User_Info] a join [i_Sys_Room] b on a.[i_User_ID]=b.[i_Sys_Room_AdminUserID] where [i_Sys_Room_ID]="&rid)
	tArg = Split(Request.QueryString("Arg"),"|")
	tValue = Split(Request.QueryString("Value"),"|")
	for i=0 to ubound(tArg)
		Rw tArg(i)&"='"&tRS(tValue(i))&"';"
	next
	Rend
end if


%>