<!--#include file="conn.asp"-->
<!--#include file="inc/bloginfo.asp"-->
<!--#include file="inc/userinfo.asp"-->
<!--#include file="inc/function.asp"-->
<!--#include file="inc/showcode.asp"-->
<!--#include file="inc/calendar.asp"-->
<%
dim show_subjectid,strurl
dim keyword,selecttype '搜索
keyword=ReplaceBadChar(request("keyword"))
selecttype=ReplaceBadChar(request("selecttype"))
show_subjectid=clng(request.QueryString("subjectid"))
response.Write "<meta name='description' content='"&user_blogname&"'>"& vbcrlf
response.Write "<title>"&user_blogname&"</title>" & vbcrlf
response.Write "</head>" & vbcrlf
response.Write "<body>" & vbcrlf
call usershow()
call sub_showlog(user_showlog_num)
show=replace(show,"$show_log$",show_log)
response.Write show
set rs=nothing
call bottom()

sub sub_showlog(num)
	dim show_logcyc,show_topic,show_loginfo,show_logtext,show_more
	dim show_emot,show_author,show_addtime,show_topictxt
	dim rs,rssubject,sql
	dim vipsee
	dim cmd
	dim count,pagesize,pagecount,page,temp
	'=======以下为分页设置=====================
	pagesize=num '每页显示多少篇日志
	strurl="blog.asp?name="&show_username
	sql=""
	if show_subjectid>0 then
		strurl="blog.asp?name="&show_username&"&subjectid="&show_subjectid
		sql=" and subjectid="&show_subjectid
	end if
	if keyword<>"" then
		select case selecttype
		case "topic"
		sql=" and topic like '%"&keyword&"%'"
		strurl="blog.asp?name="&show_username&"&keyword="&keyword&"&selecttype="&selecttype
		case "logtext"
		sql=" and logtext like '%"&keyword&"%'"
		strurl="blog.asp?name="&show_username&"&keyword="&keyword&"&selecttype="&selecttype	
		end select
	end if
	if selectdate<>"" then
		if issqldate then
			sql=" and datediff(d,'"&selectdate&"',addtime)=0"
		else
			sql=" and datediff('d','"&selectdate&"',addtime)=0"
		end if
		strurl="blog.asp?name="&show_username&"&date="&selectdate
	end if
	if Request.Cookies(cookiesname)("userlevel")=8 and vip_prosee="true" then
		vipsee=true
	else
		vipsee=false
	end if
	if not (Request.Cookies(cookiesname)("UserName")=show_username or Request.Cookies(cookiesname)("userlevel")=9 or vipsee=true )then
		sql=sql&" and ishide<>'true' "
	end if
	if issqldate then
		set cmd = Server.CreateObject("ADODB.Command")
		Set Cmd.ActiveConnection=conn
		Cmd.CommandType=4
		Cmd.CommandText="ob_user_pagecount"
		Cmd("@show_username")=show_username
		Cmd("@addstr")=sql				
		set rs=cmd.Execute
	else
		set rs=conn.execute("select count(id) from blog where passcheck<>'false' and username='"&show_username&"'"&sql )
	end if
	count=rs(0)
	if (count mod pagesize)=0 then
    	pagecount= count \ pagesize
	else
    	pagecount= (count \ pagesize)+1
	end if
	if request.querystring("page")<>"" then
    	page=cint(request.querystring("page"))
	    if page<=0 then page=1
	else
    	page=1
	end if
	'===============以下为显示代码===============
	if issqldate then
		set cmd = Server.CreateObject("ADODB.Command")
		Set Cmd.ActiveConnection=conn
		Cmd.CommandType=4
		Cmd.CommandText="ob_user_showlog"
		Cmd("@show_username")=show_username
		Cmd("@addstr")=sql				
		set rs=cmd.Execute
		set cmd=nothing
	else
		set rs=conn.execute("select face,topic,subjectid,id,username,addtime,logtext,ishide,commentnum,showword,ispassword,iis,trackback,isbest,blog_password,author from blog where passcheck<>'false' and username='"&show_username&"'"&sql&" order by addtime desc")
	end if
	if not rs.eof then
		if page <>1 then rs.move pagesize*(page-1)
			for temp=1 to pagesize
				if rs.eof then exit for
					if rs(0)="0" then
						show_emot=""
						else
						show_emot="<img src=images/face/"&rs(0)&".gif >"
					end if
						if isnull(rs(15)) then
							if nickname<>"" then show_author=nickname else show_author=rs(4)
						else 
							if rs(15)=rs(4) then
								if nickname<>"" then show_author=nickname else show_author=rs(4)
							else
								dim rstmp
								set rstmp=conn.execute("select nickname from [user] where username='"&rs(15)&"'")
								if rstmp.eof then
									show_author=rs(15)
								else
									if rstmp(0)<>"" then show_author=rstmp(0) else show_author=rs(15)
								end if
								set rstmp=nothing
							end if
						end if
						show_addtime=rs(5)
						show_topic=show_emot
						if rs(2)>0 then
							set rssubject=conn.execute("select id,subjectname from subject where id="&rs(2))
							if not (rssubject.eof and rssubject.bof) then
								show_topic=show_topic&"<a href=blog.asp?name="&rs(4)&"&subjectid="&rssubject(0)&">["&rssubject(1)&"]"
							end if
						end if
					show_topictxt="<a href=more.asp?name="&rs(4)&"&id="&rs(3)&">"&rs(1)&"</a>"
					if rs(13)="true" then
						show_topictxt=show_topictxt&"　<img src=images/jhinfo.gif >"
					end if
					show_topic=show_topic&show_topictxt
					show_loginfo=show_author&" 发表于 "&show_addtime
					show_more="<a href=more.asp?name="&rs(4)&"&id="&rs(3)&">阅读全文("&rs(11)&")</a>"
					show_more=show_more&" | "&"<a href=more.asp?name="&rs(4)&"&id="&rs(3)&"#comment>回复("&rs(8)&")</a>"
					show_more=show_more&" | "&"<a href=showtb.asp?id="&rs(3)&" target=_blank>引用("&rs(12)&")</a>"
					
					if rs(10)<>"" and Request.Cookies(cookiesname)("UserName")<>rs(4) and Request.Cookies(cookiesname)("userlevel")<>9 and vipsee=false then
						show_logtext="<div align=center><a href=more.asp?name="&rs(4)&"&id="&rs(3)&">此日志需要密码访问。</a></div>"
					elseif rs(14)<>"" and Request.Cookies(cookiesname)("UserName")<>rs(4) and Request.Cookies(cookiesname)("userlevel")<>9 and vipsee=false and Request.Cookies(cookiesname)("blog_password")<>rs(14) then
						show_logtext="<div align=center><a href=more.asp?name="&rs(4)&"&id="&rs(3)&">该blog需要密码访问。</a></div>"
					else
						show_logtext=filtscript(rs(6))
						show_logtext=trimlog(show_logtext,rs(9))
						show_logtext=filtimg(show_logtext)
						if blog_profilt="true" then
							show_logtext=profilthtm(show_logtext)
						end if
					end if
					show_logcyc=replace(show_logtmp,"$show_topic$",show_topic)
					show_logcyc=replace(show_logcyc,"$show_loginfo$",show_loginfo)
					show_logcyc=replace(show_logcyc,"$show_logtext$",show_logtext)
					show_logcyc=replace(show_logcyc,"$show_more$",show_more)
					show_logcyc=replace(show_logcyc,"$show_emot$",show_emot)
					show_logcyc=replace(show_logcyc,"$show_author$",show_author)
					show_logcyc=replace(show_logcyc,"$show_addtime$",show_addtime)
					show_logcyc=replace(show_logcyc,"$show_topictxt$",show_topictxt)
				rs.movenext
			show_log=show_log&show_logcyc
			next		
	
	'===================分页尾部=======================
	dim pagelist
	dim pot,i
	strurl=joinchar(strurl)
	if page-1 mod 10=0 then
       pot=(page-1) \ 10
	else
       pot=(page-1) \ 10
	end if
 
	if page=1 then 
        pagelist=" <font face=webdings color='red'>9</font> "
	else
        pagelist=" <a href='"&strurl&"page=1' title=首页><font face=webdings>9</font></a> "
	end if
 
	if pot*10>0 then pagelist=pagelist &  " <a href='"&strurl&"page="&Cstr(pot*10)&"' title=上十页><font face=webdings>7</font></a> "
 
	pagelist=pagelist & "<b>" 
 
	for i=pot*10+1 to Pot*10+10
          if i=cint(Page) then
                    pagelist=pagelist & " <font color='red'>"+Cstr(i)+"</font> "
          else
     pagelist=pagelist & " <a href='"&strurl&"page="&Cstr(i)&"'>"+Cstr(i)+"</a> "
          end if
          if i=pagecount then exit for 
	next
 
	pagelist=pagelist & "</b>"

	if i<pagecount then pagelist=pagelist & " <a href='"&strurl&"page="&Cstr(i)&"' title=下十页><font face=webdings>8</font></a> "
	if Page=pagecount then
           pagelist=pagelist & "<font face=webdings color='red'>:</font>"
	else
           pagelist=pagelist & " <a href='"&strurl&"page="&Cstr(pagecount)&"' title=尾页><font face=webdings>:</font></a> "
	end if
	dim showpage
'	showpage="页次："&page&"/"&pagecount&"　"
'	showpage=showpage&"每页："&pagesize
'	showpage=showpage&"　日志数：<b>"&count&"</b>"
	showpage=showpage&"<div align=center>"&pagelist&"</div>"
	show_log=show_log&showpage
	set rssubject=nothing
	else
		show_log="暂时未有任何日志！"
	end if
end sub
%>