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

<%
'face,incomeclass,unick,uid,livetime,rname,fansnum,pubnotice,pubnoticehref,prinotice,prinoticehref,background,backgroundfix,styletop,stylecss,attention
if Request.QueryString("ac")="GetRoomInfo" then 
	RS_End
	dim SumPay,SumIncome,CurrentPage,k,Re,RID,isManager,UID
	if Request.QueryString("rid")="" then REND
	if not IsNumeric(Request.QueryString("rid")) then REND
	RID = Request.QueryString("rid")
	Re="var DRoomJS=""{data:["
	Set RS=DB_CONN.EXECUTE("select a.*,b.* from [i_User_Info] a join [i_Sys_Room] b on a.[i_User_ID]=b.[i_Sys_Room_AdminUserID] where b.[i_Sys_Room_ID]="&RID)
	
	while (not RS.eof)
		Re=Re&"{face:'"&RS("i_User_Face")&"',unick:'"&RS("i_User_NickName")&"',uid:'"&RS("i_User_ID")&"',rname:'"&RS("i_Sys_Room_Name")&"',pubnotice:'"&RS("i_Sys_Room_PubNotice")&"',pubnoticehref:'"&RS("i_Sys_Room_PubNoticeHref")&"',prinotice:'"&RS("i_Sys_Room_PriNotice")&"',prinoticehref:'"&RS("i_Sys_Room_PriNoticeHref")&"',background:'"&RS("i_Sys_Room_BackGround")&"',backgroundfix:'"&RS("i_Sys_Room_BackGroundFix")&"',styletop:'"&RS("i_Sys_Room_StyleTop")&"',stylecss:'"&RS("i_Sys_Room_StyleCss")&"',maxnum:"&RS("i_Sys_Room_MaxNum")&",UserLabel:'"&RS("i_User_Label")&"'}"
		RS.MoveNext
	Wend
	Re=Re&"]}"";"
	
	if RS.recordcount>0 then
		dim objStream,strFile
		strFile=server.mappath("/d/room/"&RID&".js")
		Set objStream = Server.CreateObject("ADODB.Stream")
		With objStream
			.Type = 2
			.Open
			.Charset = "utf-8"
			.Position = objStream.Size
			.WriteText = Re
			.SaveToFile strFile,2
			.Close
		End With
		Set objStream = Nothing
	end if
	RW Re
	RS_End
	Rend
end if



%>