<%
UserTrue=True
Conn.Execute("Update Tb_User Set User_Count=User_Count+1 Where ID="&UserID&"")
SqlCount=SqlCount+1
Response.Write "<script language=""JavaScript"" src=""../../inc/common.js"" type=""text/javascript""></script>" & Chr(13)
Dim ArticleArr,RsCount,SqlStr,WhereStr,iii,ClassName,Title,wh,zy,foot
WhereStr="Where User_ID="& UserID &" And Article_Hid<>1"
ClassName=CblogObj.QueryStringPage("classname",True)
IF ClassName<>"" Then
	WhereStr=WhereStr & " And Left(Article_ByClass,7)='" & ClassName & "'"
ElseIF CblogObj.QueryStringPage("Month",True)<>"" Then
	WhereStr=WhereStr & " And Article_ByMonth Like '" & QueryStringPage("Month",True) & "%'"
End IF
IF CblogObj.GetRequest("Tag")<>"" Then
	WhereStr=WhereStr & " And Article_Tag Like '%" & GetRequest("Tag") & "%'"
End IF
IF CblogObj.QueryStringPage("date",True)<>"" Then
	WhereStr=WhereStr & " And Article_Time Like '%" & QueryStringPage("date",True) & "%'"
End IF
SqlStr="Select Article_ID,User_Name,Article_Title,Article_Hid,Article_Zy,Whather,Article_Time,Article_ByClass,Article_Bl,Article_Form,See_Count,Re_Count From Article "& WhereStr &" Order By Article_Hid Desc,Article_ID Desc"
Set Rs = Server.CreateObject("Adodb.RecordSet")
Rs.open SqlStr,Conn, 1, 1
SqlCount=SqlCount+1
If Not Rs.Eof Then
	Rs.PageSize = UserPageSize
	MaxP=rs.PageCount
	Rs.AbsolutePage=CblogObj.QueryPage
	RsCount=Rs.RecordCount
	ArticleArr = Rs.GetRows(UserPageSize)
	Rs.Close:Set Rs=nothing
	CblogObj.PageList RsCount,CblogObj.QueryPage,UserPageSize,16,False
	for iii=0 to Ubound(ArticleArr,2)
		title="<a href=""Show.asp?/_articleid/"&ArticleArr(0,iii)&".html"">"&ArticleArr(2,iii)&"</a>" & Chr(13)
		wh="[ " & ArticleArr(6,iii) & " | 作者:" & UserName & " | 出处:" & ArticleArr(9,iii) & " | 天气:" & ArticleArr(5,iii) & " ]" & Chr(13)
		zy=UBBCode(ArticleArr(4,iii)) & Chr(13)
		foot="分类:<a href=""default.asp?/_classname/"& Left(ArticleArr(7,iii),7) &".html"">" & Mid(ArticleArr(7,iii),8) & "</a> | 部落:<a href=""../../ToBuoluo.asp?classname="& ArticleArr(8,iii) &""">" & ArticleArr(8,iii) & "</a> | 评论:" & ArticleArr(11,iii) & " | <a href=""Show.asp?/_articleid/"&ArticleArr(0,iii)&".html"">阅读全文</a>(" & ArticleArr(10,iii) & ")" & Chr(13)
%>
