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

<%
Auto_Login2()
'cid,roomid,face,nick,time,content
if Request.QueryString("ac")="getcommentlist" then 
	RS_End
	dim CurrentPage,k,Re,tpid
	if Request.QueryString("pid")="" then REND
	if not IsNumeric(Request.QueryString("pid")) then REND
	tpid = Request.QueryString("pid")
	Re="var CommentRe=""{data:["
	Set RS=DB_CONN.EXECUTE("select *,(select [i_User_NickName] from [i_User_Info] where [i_User_ID]=[i_User_Log_Comment_UID]) as [nick],(select [i_User_Face] from [i_User_Info] where [i_User_ID]=[i_User_Log_Comment_UID]) as [face],(select [i_Sys_Room_ID] from [i_Sys_Room] where [i_Sys_Room_AdminUserID]=[i_User_Log_Comment_UID]) as [roomid] from [i_User_Log_Comment] where [i_User_Log_Comment_LogID]="&tpid&" order by [i_User_Log_Comment_Date] desc")
	while (not RS.eof)
		if k>0 then Re=Re&","		
		Re=Re&"{cid:'"&RS("i_User_Log_Comment_ID")&"',roomid:'"&RS("roomid")&"',face:'"&RS("face")&"',nick:'"&RS("nick")&"',time:'"&RS("i_User_Log_Comment_Date")&"',content:'"&Text2Html(Get_SafeStr(RS("i_User_Log_Comment_Content")))&"'}"
		k=k+1
		RS.MoveNext
	Wend
	Re=Re&"],recordcount:"&RS.recordcount&"}"";"
	RS_End
	RW Re
	Rend
end if
%>