<%
	Next
	ArticleArr=Empty
	CblogObj.PageList RsCount,CblogObj.QueryPage,UserPageSize,16,False
Else
	Rs.Close:Set Rs=nothing
	Response.Write "<div class=""articleslist"">"
	Response.Write "<h1>没有发表任何日志</h1>"
	Response.Write "</div>"
End IF
%>