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

<%
Auto_Login2()

if Request.QueryString("ac")="getVideoList" then 
	RS_End
	dim CurrentPage,k,Re,pid
	if Request.QueryString("pid")="" then REND
	if not IsNumeric(Request.QueryString("pid")) then REND
	pid = Request.QueryString("pid")
	Re="var Re=""{data:["
	Set RS=DB_CONN.EXECUTE("select * from [i_User_Log] where [i_User_Log_ID]="&pid&" and [i_User_Log_Type]=2 order by [i_User_Log_Date] desc")
	while (not RS.eof)
		if k>0 then Re=Re&","		
		Re=Re&"{time:'"&RS("i_User_Log_Date")&"',pid:'"&RS("i_User_Log_ID")&"',pic:'"&RS("i_User_Log_Path")&"',title:'"&RS("i_User_Log_Title")&"',viewnum:'"&RS("i_User_Log_ViewNum")&"',cnum:'"&RS("i_User_Log_CommentNum")&"'}"
		k=k+1
		RS.MoveNext
	Wend
	Re=Re&"],recordcount:"&RS.recordcount&"}"";"
	RS_End
	RW Re
	Rend
end if
%>